use Test::More tests => 34;
-use Scalar::Vec::Util qw/vfill/;
+use Scalar::Vec::Util qw<vfill>;
-my $n = 2 ** 16;
+BEGIN {
+ *myfill = *Scalar::Vec::Util::vfill_pp;
+ *myeq = *Scalar::Vec::Util::veq_pp;
+}
-*myfill = *Scalar::Vec::Util::vfill_pp;
-*myeq = *Scalar::Vec::Util::veq_pp;
+my $n = 2 ** 16;
my ($v, $c) = ('') x 2;
my $l = 1;
while ($l <= $n) {
- myfill($c, 0, $l, 1);
- vfill($v, 0, $l, 1);
- ok(myeq($v, 0, $c, 0, $l), "vfill 0, $l, 1");
- is(length $v, length $c, "length is ok");
+ my $desc = "vfill 0, $l, 1";
+ myfill $c, 0, $l, 1;
+ vfill $v, 0, $l, 1;
+ is length $v, length $c, "$desc: length";
+ ok myeq($v, 0, $c, 0, $l), "$desc: bits";
$l *= 2;
}