7 use Test::Leaner 'no_plan';
9 use Scalar::Vec::Util qw<vcopy SVU_SIZE>;
16 *myfill = *Scalar::Vec::Util::vfill_pp;
17 *myeq = *Scalar::Vec::Util::veq_pp;
19 sub rst { myfill($_[0], 0, $n, 0); $_[0] = '' }
22 (undef, my $a, my $b, my $x) = @_;
27 myfill($_[0], 0, $a, $x);
28 myfill($_[0], $a, $b, 1 - $x);
29 myfill($_[0], $a + $b, $n - ($a + $b), $x) if $a + $b < $n;
34 (undef, my $n, my $desc) = @_;
37 $s .= vec($_[0], $i++, 1) while $i < $n;
41 my ($v, $c) = ('') x 2;
43 my @s = (0 .. $q, ($p - $q) .. ($p + $q));
46 for my $l (0 .. $n - 1) {
49 last if $s1 + $l + $x > $n or $s1 + $x + $y > $l
50 or $s2 + $l + $x > $n or $s2 + $x + $y > $l;
51 pat $v, $s1 + $x, $l - $x - $y, 0;
54 myfill($c, $s2, $x, 0) if $x;
55 myfill($c, $s2 + $x, $l - $x - $y, 1);
56 myfill($c, $s2 + $l - $y, $y, 0) if $y;
57 vcopy $v => $s1, $v => $s2, $l;
58 ok(myeq($v, 0, $c, 0, $n), "vcopy [ $x, $y ], $s1, $s2, $l (move)") or do {
59 diag "n = $n, s1 = $s1, s2 = $s2, l = $l, x = $x, y = $y";
60 prnt $v0, $n, 'original';
62 prnt $c, $n, 'expected';
64 is(length $v, length $c, "length is ok");