6 use Test::More tests => 34 + 2;
7 use Config qw<%Config>;
9 use Scalar::Vec::Util qw<vcopy>;
12 *myfill = *Scalar::Vec::Util::vfill_pp;
13 *myeq = *Scalar::Vec::Util::veq_pp;
18 my ($v, $c) = ('') x 2;
24 my $desc = "vcopy $l";
26 vcopy $v, 0, $v, $l, $l;
28 is length $v, length $c, "$desc: length";
29 ok myeq($v, 0, $c, 0, $l), "$desc: bits";
33 my $desc = 'vcopy with fill';
34 my ($w, $k) = ('') x 2;
35 $n = ($Config{alignbytes} - 1) * 8;
37 vec($w, $_, 1) = 1 for 0 .. $n - 1;
38 vec($k, $_, 1) = 0 for 0 .. $n - 1;
39 vec($k, $_ - $p, 1) = 1 for $p .. $n - 1;
40 vcopy $w, $p, $w, 0, $n;
41 is length $w, length $k, "$desc: length";
42 ok myeq($w, 0, $k, 0, $n), "$desc: bits";