6 use Test::More 'no_plan';
8 use Scalar::Vec::Util qw/vshift SVU_SIZE/;
10 for ([ 1, 'offset', -1 ], [ 2, 'length', '-1' ]) {
12 $args[$_->[0]] = $_->[2];
13 eval { &vshift(@args) }; my $line = __LINE__;
14 like $@, qr/^Invalid\s+negative\s+$_->[1]\s+at\s+\Q$0\E\s+line\s+$line/;
22 *myfill = *Scalar::Vec::Util::vfill_pp;
23 *myeq = *Scalar::Vec::Util::veq_pp;
25 sub rst { myfill($_[0], 0, $n, 0); $_[0] = '' }
28 (undef, my $a, my $b, my $x) = @_;
32 myfill($_[0], 0, $a, $x);
33 myfill($_[0], $a, $b, 1 - $x);
38 (undef, my $s, my $l, my $b, my $left, my $insert) = @_;
39 myfill($_[0], 0, $s, 0);
42 myfill($_[0], $s, $b, defined $insert ? $insert : 1);
43 myfill($_[0], $s + $b, $l - $b, 1);
45 myfill($_[0], $s, $l - $b, 1);
46 myfill($_[0], $s + $l - $b, $b, defined $insert ? $insert : 1);
49 myfill($_[0], $s, $l, defined $insert ? $insert : 1);
53 my ($v, $v0, $c) = ('', '') x 2;
56 my ($left, $insert) = @_;
57 my @s = ($p - $q) .. ($p + $q);
59 for my $l (0 .. $n - 1) {
65 push @b, $l2 if $l2 != $l;
70 expect $c, $s, $l, $b, $left, $insert;
71 $b = -$b unless $left;
72 vshift $v, $s, $l => $b, $insert;
73 my $i = defined $insert ? $insert : 'undef';
74 ok(myeq($v, 0, $c, 0, $n), "vshift $s, $l, $b, $i");
75 is(length $v, length $c, "vshift $s, $l, $b, $i length");