blob: 923ede16a41f6872981731435d43f983c1565f67 (
plain)
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"); } }
|