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