]> git.vpit.fr Git - perl/modules/Scalar-Vec-Util.git/blob - t/01-import.t
Bump copyright year
[perl/modules/Scalar-Vec-Util.git] / t / 01-import.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 2 * 7;
7
8 require Scalar::Vec::Util;
9
10 my %syms = (
11  vfill    => '$$$$',
12  vcopy    => '$$$$$',
13  veq      => '$$$$$',
14  vshift   => '$$$$;$',
15  vrot     => '$$$$',
16  SVU_PP   => '',
17  SVU_SIZE => '',
18 );
19
20 for (keys %syms) {
21  eval { Scalar::Vec::Util->import($_) };
22  is $@,            '',        "import $_";
23  is prototype($_), $syms{$_}, "prototype $_";
24 }