t/12-veq-long.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7 use Config qw<%Config>;
   8
   9 use Scalar::Vec::Util qw<veq>;
  10
  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;
  15 my $i = $n / 2;
  16 while ($i >= 1) {
  17  vec($v1, $i, 1) = 1;
  18  vec($v2, $i + 1, 1) = 1;
  19  $i /= 2;
  20 }
  21 ok veq($v1, 0, $v2, 1, 10 * $n), 'long veq is loooong';