# -*- perl -*-
use strict;
use Set::IntSpan 1.17;
my $N = 1;
sub Not { print "not " }
sub OK { print "ok ", $N++, "\n" }
my @tests =
(
[ [] , 0, 0 ],
[ [ 1 ], 0, 0 ],
[ [ 1 ], 1, 0 ],
[ [ 1 ], 2, 1 ],
[ [ 1, 2 ], 0, 0 ],
[ [ 1, 2 ], 1, 0 ],
[ [ 1, 2 ], 2, 1 ],
[ [ 1, 2 ], 3, 2 ],
[ [ 1, 3 ], 0, 0 ],
[ [ 1, 3 ], 1, 0 ],
[ [ 1, 3 ], 2, 1 ],
[ [ 1, 3 ], 3, 1 ],
[ [ 1, 3 ], 4, 2 ],
[ [ 1, 3, 5 ], 0, 0 ],
[ [ 1, 3, 5 ], 1, 0 ],
[ [ 1, 3, 5 ], 2, 1 ],
[ [ 1, 3, 5 ], 3, 1 ],
[ [ 1, 3, 5 ], 4, 2 ],
[ [ 1, 3, 5 ], 5, 2 ],
[ [ 1, 3, 5 ], 6, 3 ],
[ [ 1, 3, 5, 7 ], 0, 0 ],
[ [ 1, 3, 5, 7 ], 1, 0 ],
[ [ 1, 3, 5, 7 ], 2, 1 ],
[ [ 1, 3, 5, 7 ], 3, 1 ],
[ [ 1, 3, 5, 7 ], 4, 2 ],
[ [ 1, 3, 5, 7 ], 5, 2 ],
[ [ 1, 3, 5, 7 ], 6, 3 ],
[ [ 1, 3, 5, 7 ], 7, 3 ],
[ [ 1, 3, 5, 7 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 15, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 16, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 15, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 16, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 17, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 18, 9 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 15, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 16, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 17, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 18, 9 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 19, 9 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 20, 10 ],
);
print "1..", scalar @tests, "\n";
for my $test (@tests)
{
my($edges, $target, $expected) = @$test;
my $actual = Set::IntSpan::_bsearch($edges, $target);
$expected==$actual or Not; OK;
}