- last if $s1 + $l > $n or $s2 + $l > $n;
- pat $v1, $s1, $l, 0;
- pat $v2, $s2, $l, 0;
- ok(Scalar::Vec::Util::veq_pp($v1 => $s1, $v2 => $s2, $l), "veq_pp $s1, $s2, $l");
- ok(!Scalar::Vec::Util::veq_pp($v1 => $s1 - 1, $v2 => $s2, $l), 'not veq_pp ' . ($s1 - 1) . ", $s2, $l") if $l > 0;
- ok(!Scalar::Vec::Util::veq_pp($v1 => $s1 + 1, $v2 => $s2, $l), 'not veq_pp ' . ($s1 + 1) . ", $s2, $l") if $l > 0;
+ next if $s1 + $l > $n or $s2 + $l > $n;
+ my $v1 = '';
+ my $v2 = '';
+ pat $v1, $s1, $l, 0, 0;
+ pat $v2, $s2, $l, 0, 1;
+ my $desc = "veq_pp $s1, $s2, $l";
+ ok Scalar::Vec::Util::veq_pp($v1 => $s1, $v2 => $s2, $l),
+ "$desc [1<=>2]";
+ ok Scalar::Vec::Util::veq_pp($v2 => $s2, $v1 => $s1, $l),
+ "$desc [2<=>1]";
+ if ($l > 0) {
+ ok !Scalar::Vec::Util::veq_pp($v1 => $s1 - 1, $v2 => $s2, $l),
+ 'not veq_pp ' . ($s1-1) . ", $s2, $l [1<=>2]";
+ ok !Scalar::Vec::Util::veq_pp($v1 => $s1 + 1, $v2 => $s2, $l),
+ 'not veq_pp ' . ($s1+1) . ", $s2, $l [1<=>2]";
+ }