X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-veq.t;h=31ba0a8f6780cc8a8148350db1bf91059673c135;hb=607607c4f5ec537ba56acb4edc424bc71900517a;hp=418e13e29b0676bdb65481e32cadde19368d521a;hpb=f77706f0734eb34a9623cc492b5d73061fba9b62;p=perl%2Fmodules%2FScalar-Vec-Util.git diff --git a/t/11-veq.t b/t/11-veq.t index 418e13e..31ba0a8 100644 --- a/t/11-veq.t +++ b/t/11-veq.t @@ -7,23 +7,23 @@ use Test::More 'no_plan'; use Scalar::Vec::Util qw/veq SVU_SIZE/; -eval { veq undef, 0, my $y, 0, 0 }; -like($@, qr/Invalid\s+argument/, 'first argument undef croaks'); -eval { veq my $x, undef, my $y, 0, 0 }; -like($@, qr/Invalid\s+argument/, 'second argument undef croaks'); -eval { veq my $x, 0, undef, 0, 0 }; -like($@, qr/Invalid\s+argument/, 'third argument undef croaks'); -eval { veq my $x, 0, my $y, undef, 0 }; -like($@, qr/Invalid\s+argument/, 'fourth argument undef croaks'); -eval { veq my $x, 0, my $y, 0, undef }; -like($@, qr/Invalid\s+argument/, 'fifth argument undef croaks'); +for ([ 1, 'offset', -1 ], [ 3, 'offset', '-1' ], [ 4, 'length', -1 ]) { + my @args = ('1') x 5; + $args[$_->[0]] = $_->[2]; + eval { &veq(@args) }; my $line = __LINE__; + like $@, qr/^Invalid\s+negative\s+$_->[1]\s+at\s+\Q$0\E\s+line\s+$line/; +} my $p = SVU_SIZE; $p = 8 if $p < 8; my $n = 3 * $p; my $q = 1; -*myfill = *Scalar::Vec::Util::vfill_pp; +sub myfill { + (undef, my $s, my $l, my $x) = @_; + $x = 1 if $x; + vec($_[0], $_, 1) = $x for $s .. $s + $l - 1; +} sub rst { myfill($_[0], 0, $n, 0) } @@ -44,8 +44,8 @@ for my $s1 (@s) { pat $v1, $s1, $l, 0; pat $v2, $s2, $l, 0; ok(veq($v1 => $s1, $v2 => $s2, $l), "veq $s1, $s2, $l"); - ok(!veq($v1 => $s1 - 1, $v2 => $s2, $l), 'not veq_pp ' . ($s1 - 1) . ", $s2, $l") if $l > 0; - ok(!veq($v1 => $s1 + 1, $v2 => $s2, $l), 'not veq_pp ' . ($s1 + 1) . ", $s2, $l") if $l > 0; + ok(!veq($v1 => $s1 - 1, $v2 => $s2, $l), 'not veq ' . ($s1 - 1) . ", $s2, $l") if $l > 0; + ok(!veq($v1 => $s1 + 1, $v2 => $s2, $l), 'not veq ' . ($s1 + 1) . ", $s2, $l") if $l > 0; } } }