6 use Test::More tests => 1;
7 use Config qw/%Config/;
9 use Scalar::Vec::Util qw/veq/;
11 my ($v1, $v2) = ('') x 2;
12 my $n = ($Config{alignbytes} - 1) * 8;
13 vec($v1, $_, 1) = 0 for 0 .. $n - 1;
14 vec($v2, $_, 1) = 0 for 0 .. $n - 1;
18 vec($v2, $i + 1, 1) = 1;
21 ok(veq($v1, 0, $v2, 1, 10 * $n), 'long veq is loooong');