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 }