This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add _num_to_alpha() to test.pl
[perl5.git] / t / test_pl / _num_to_alpha.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 is( _num_to_alpha(-1), undef);
10 is( _num_to_alpha( 0), 'A');
11 is( _num_to_alpha( 1), 'B');
12
13 is( _num_to_alpha(26 - 1), 'Z');
14 is( _num_to_alpha(26    ), 'AA');
15 is( _num_to_alpha(26 + 1), 'AB');
16
17 is( _num_to_alpha(26 + 26 - 2), 'AY');
18 is( _num_to_alpha(26 + 26 - 1), 'AZ');
19 is( _num_to_alpha(26 + 26    ), 'BA');
20 is( _num_to_alpha(26 + 26 + 1), 'BB');
21
22 is( _num_to_alpha(26 ** 2 - 1), 'YZ');
23 is( _num_to_alpha(26 ** 2    ), 'ZA');
24 is( _num_to_alpha(26 ** 2 + 1), 'ZB');
25
26 is( _num_to_alpha(26 ** 2 + 26 - 1), 'ZZ');
27 is( _num_to_alpha(26 ** 2 + 26    ), 'AAA');
28 is( _num_to_alpha(26 ** 2 + 26 + 1), 'AAB');
29
30 is( _num_to_alpha(26 ** 3 + 26 ** 2 + 26 - 1 ), 'ZZZ');
31 is( _num_to_alpha(26 ** 3 + 26 ** 2 + 26     ), 'AAAA');
32 is( _num_to_alpha(26 ** 3 + 26 ** 2 + 26 + 1 ), 'AAAB');
33
34 done_testing();