t/22-vfill-long.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 34;
   7
   8 use Scalar::Vec::Util qw<vfill>;
   9
  10 my $n = 2 ** 16;
  11
  12 *myfill = *Scalar::Vec::Util::vfill_pp;
  13 *myeq   = *Scalar::Vec::Util::veq_pp;
  14
  15 my ($v, $c) = ('') x 2;
  16
  17 my $l = 1;
  18 while ($l <= $n) {
  19  myfill($c, 0, $l, 1);
  20  vfill($v, 0, $l, 1);
  21  ok(myeq($v, 0, $c, 0, $l), "vfill 0, $l, 1");
  22  is(length $v, length $c, "length is ok");
  23  $l *= 2;
  24 }