[perl5.git] / t / test_pl / _num_to_alpha.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

is( _num_to_alpha(-1), undef);
is( _num_to_alpha( 0), 'A');
is( _num_to_alpha( 1), 'B');

is( _num_to_alpha(26 - 1), 'Z');
is( _num_to_alpha(26    ), 'AA');
is( _num_to_alpha(26 + 1), 'AB');

is( _num_to_alpha(26 + 26 - 2), 'AY');
is( _num_to_alpha(26 + 26 - 1), 'AZ');
is( _num_to_alpha(26 + 26    ), 'BA');
is( _num_to_alpha(26 + 26 + 1), 'BB');

is( _num_to_alpha(26 ** 2 - 1), 'YZ');
is( _num_to_alpha(26 ** 2    ), 'ZA');
is( _num_to_alpha(26 ** 2 + 1), 'ZB');

is( _num_to_alpha(26 ** 2 + 26 - 1), 'ZZ');
is( _num_to_alpha(26 ** 2 + 26    ), 'AAA');
is( _num_to_alpha(26 ** 2 + 26 + 1), 'AAB');

is( _num_to_alpha(26 ** 3 + 26 ** 2 + 26 - 1 ), 'ZZZ');
is( _num_to_alpha(26 ** 3 + 26 ** 2 + 26     ), 'AAAA');
is( _num_to_alpha(26 ** 3 + 26 ** 2 + 26 + 1 ), 'AAAB');

done_testing();
Commit	Line	Data
f6e25e60 BG	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();