6 use Test::More tests => 34;
8 use Scalar::Vec::Util qw<vfill>;
11 *myfill = *Scalar::Vec::Util::vfill_pp;
12 *myeq = *Scalar::Vec::Util::veq_pp;
17 my ($v, $c) = ('') x 2;
21 my $desc = "vfill 0, $l, 1";
24 is length $v, length $c, "$desc: length";
25 ok myeq($v, 0, $c, 0, $l), "$desc: bits";