t/lib/Test/Enigmatic.pm


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

package Test::Enigmatic; 
use DAKKAR::p 'test';
 
sub test_static_map {
    my ($mapper,$out,$name) = @_;
 
    my @in = 'A'..'Z';
    my %map;@map{@in}=@$out;
 
    for my $c ('A' .. 'Z') {
        is($mapper->map($c),
           $map{$c},
           "$name on $c");
    }
}