X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=t%2F32-vcopy-move.t;h=ddf8c472a4b1d031cd2f7b8a5b76aa0e5e40cdfd;hp=f95fbd43a2417db1b2ee44121c3cdd0ec8c0980b;hb=4dc1aa8932c595136b763a34207e4e9ee683dc53;hpb=2bade59206c8f2bd2ed64e1faa8b10cc9109b734

diff --git a/t/32-vcopy-move.t b/t/32-vcopy-move.t
index f95fbd4..ddf8c47 100644
--- a/t/32-vcopy-move.t
+++ b/t/32-vcopy-move.t
@@ -50,8 +50,7 @@ for my $s1 (@s) {
   for my $l (0 .. $n - 1) {
    for my $x (0 .. $q) {
     for my $y (0 .. $q) {
-     last if $s1 + $l + $x > $n or $s1 + $x + $y > $l
-          or $s2 + $l + $x > $n or $s2 + $x + $y > $l;
+     next if $l - $x - $y < 0 or $s2 + $l - $y < 0;
      my $desc = "vcopy [ $x, $y ], $s1, $s2, $l (move)";
      pat $v, $s1 + $x, $l - $x - $y, 0;
      my $v0 = $v;