123456789101112131415161718 use Test::More;use Bijection::XS qw/biject inverse bijection_set/;use Data::Dumper;my %unique;for (0..5000) { my $bi = biject($_); $unique{$bi}++; my $inv = inverse($bi); is ($inv, $_, "reversable $_");}is (scalar keys %unique, 5001, 'all unique'); done_testing(5002);1;
use
Test::More;
Bijection::XS
qw/biject inverse bijection_set/
;
Data::Dumper;
my
%unique
for
(0..5000) {
$bi
= biject(
$_
);
$unique
{
}++;
$inv
= inverse(
is (
,
"reversable $_"
}
scalar
keys
, 5001,
'all unique'
done_testing(5002);
1;