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 BEGIN {
  11  *myfill = *Scalar::Vec::Util::vfill_pp;
  12  *myeq   = *Scalar::Vec::Util::veq_pp;
  13 }
  14
  15 my $n = 2 ** 16;
  16
  17 my ($v, $c) = ('') x 2;
  18
  19 my $l = 1;
  20 while ($l <= $n) {
  21  my $desc = "vfill 0, $l, 1";
  22  myfill $c, 0, $l, 1;
  23  vfill  $v, 0, $l, 1;
  24  is length $v, length $c,   "$desc: length";
  25  ok myeq($v, 0, $c, 0, $l), "$desc: bits";
  26  $l *= 2;
  27 }