X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F22-vfill-long.t;h=81d0041f8bae278f4beec5afba7359169dc990df;hb=2bade59206c8f2bd2ed64e1faa8b10cc9109b734;hp=b682dbea6028b4ff2c2c5e53d3002797f7868664;hpb=f77706f0734eb34a9623cc492b5d73061fba9b62;p=perl%2Fmodules%2FScalar-Vec-Util.git

diff --git a/t/22-vfill-long.t b/t/22-vfill-long.t
index b682dbe..81d0041 100644
--- a/t/22-vfill-long.t
+++ b/t/22-vfill-long.t
@@ -5,20 +5,23 @@ use warnings;
 
 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;
 }