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");
    }
}