6 use Test::More 'no_plan';
8 use Scalar::Vec::Util qw/vshift SVU_SIZE/;
15 *myfill = *Scalar::Vec::Util::vfill_pp;
16 *myeq = *Scalar::Vec::Util::veq_pp;
18 sub rst { myfill($_[0], 0, $n, 0); $_[0] = '' }
21 (undef, my $a, my $b, my $x) = @_;
25 myfill($_[0], 0, $a, $x);
26 myfill($_[0], $a, $b, 1 - $x);
31 (undef, my $s, my $l, my $b, my $left, my $insert) = @_;
32 myfill($_[0], 0, $s, 0);
35 myfill($_[0], $s, $b, defined $insert ? $insert : 1);
36 myfill($_[0], $s + $b, $l - $b, 1);
38 myfill($_[0], $s, $l - $b, 1);
39 myfill($_[0], $s + $l - $b, $b, defined $insert ? $insert : 1);
42 myfill($_[0], $s, $l, defined $insert ? $insert : 1);
46 my ($v, $v0, $c) = ('', '') x 2;
49 my ($left, $insert) = @_;
50 my @s = ($p - $q) .. ($p + $q);
52 for my $l (0 .. $n - 1) {
58 push @b, $l2 if $l2 != $l;
63 expect $c, $s, $l, $b, $left, $insert;
64 $b = -$b unless $left;
65 vshift $v, $s, $l => $b, $insert;
66 my $i = defined $insert ? $insert : 'undef';
67 ok(myeq($v, 0, $c, 0, $n), "vshift $s, $l, $b, $i");
68 is(length $v, length $c, "vshift $s, $l, $b, $i length");