t/20-vfill-pp.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'no_plan';
   7
   8 use Scalar::Vec::Util;
   9
  10 BEGIN {
  11  *myeq = *Scalar::Vec::Util::veq_pp;
  12 }
  13
  14 for ([ 1, 'offset', -1 ], [ 2, 'length', '-1' ]) {
  15  my @args  = ('1') x 4;
  16  $args[$_->[0]] = $_->[2];
  17  local $@;
  18  eval { &Scalar::Vec::Util::vfill_pp(@args) };
  19  my $err  = $@;
  20  my $line = __LINE__-2;
  21  like $err, qr/^Invalid\s+negative\s+$_->[1]\s+at\s+\Q$0\E\s+line\s+$line/,
  22       "vfill_pp(@args) failed";
  23 }
  24
  25 my $p = 8;
  26 my $n = 3 * $p;
  27 my $q = 1;
  28
  29 sub myfill {
  30  my (undef, $s, $l, $x) = @_;
  31  $x = 1 if $x;
  32  vec($_[0], $_, 1) = $x for $s .. $s + $l - 1;
  33 }
  34
  35 sub rst {
  36  myfill $_[0], 0, $n, 0;
  37  $_[0] = '';
  38 }
  39
  40 my ($v, $c) = ('') x 2;
  41
  42 my @s = ($p - $q) .. ($p + $q);
  43 for my $s (@s) {
  44  for my $l (0 .. $n - 1) {
  45   next if $s + $l > $n;
  46   my $desc = "vfill_pp $s, $l";
  47   rst $c;
  48   myfill $c, 0,  $s, 0;
  49   myfill $c, $s, $l, 1;
  50   rst $v;
  51   Scalar::Vec::Util::vfill_pp($v, 0,  $s, 0);
  52   Scalar::Vec::Util::vfill_pp($v, $s, $l, 1);
  53   is length $v, length $c,   "$desc: length";
  54   ok myeq($v, 0, $c, 0, $n), "$desc: bits";
  55  }
  56 }