From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

LNATION / Bijection-1.02 / t / 03-longer.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
use Test::More;
use Bijection qw/all/;
my @reverse = reverse @Bijection::ALPHA;
bijection_set(900000000, @reverse);
my $bi = biject(50);
is($bi, '7P5pWV');
done_testing(1);
1;