t/20-vfill-pp.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'no_plan';
   7
   8 use Scalar::Vec::Util;
   9
  10 eval { Scalar::Vec::Util::vfill_pp(undef, 0, 0, 0) };
  11 like($@, qr/Invalid\s+argument/, 'first argument undef croaks');
  12 eval { Scalar::Vec::Util::vfill_pp(my $x, undef, 0, 0) };
  13 like($@, qr/Invalid\s+argument/, 'second argument undef croaks');
  14 eval { Scalar::Vec::Util::vfill_pp(my $x, 0, undef, 0) };
  15 like($@, qr/Invalid\s+argument/, 'third argument undef croaks');
  16 eval { Scalar::Vec::Util::vfill_pp(my $x, 0, 0, undef) };
  17 like($@, qr/Invalid\s+argument/, 'fourth argument undef croaks');