trunk/t/06base62.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3846;
use blib;
use jsFind;

BEGIN { use_ok('jsFind'); }

my @base62 = qw(
0 1 2 3 4 5 6 7 8 9
a b c d e f g h i j k l m n o p q r s t u v w x y z
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
);

my @nr;

diag "generating test base62 numbers";

foreach my $l (@base62) {
        foreach my $r (@base62) {
                if ($l eq '0') {
                        push @nr, $r;
                } else {
                        push @nr, $l.$r;
                }
        }
}

cmp_ok(scalar @nr, '==', 3844, "generated 3844 numbers");

my $i = 0;
foreach my $nr (@nr) {
        cmp_ok($nr, 'eq', jsFind::Node::base62(undef,$i),"base62($i) == $nr");
        $i++;
}
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	use Test::More tests => 3846;
7	use blib;
8	use jsFind;
9
10	BEGIN { use_ok('jsFind'); }
11
12	my @base62 = qw(
13	0 1 2 3 4 5 6 7 8 9
14	a b c d e f g h i j k l m n o p q r s t u v w x y z
15	A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
16	);
17
18	my @nr;
19
20	diag "generating test base62 numbers";
21
22	foreach my $l (@base62) {
23	foreach my $r (@base62) {
24	if ($l eq '0') {
25	push @nr, $r;
26	} else {
27	push @nr, $l.$r;
28	}
29	}
30	}
31
32	cmp_ok(scalar @nr, '==', 3844, "generated 3844 numbers");
33
34	my $i = 0;
35	foreach my $nr (@nr) {
36	cmp_ok($nr, 'eq', jsFind::Node::base62(undef,$i),"base62($i) == $nr");
37	$i++;
38	}