diff options
Diffstat (limited to 't/lib/Test/Enigmatic.pm')
-rw-r--r-- | t/lib/Test/Enigmatic.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/lib/Test/Enigmatic.pm b/t/lib/Test/Enigmatic.pm new file mode 100644 index 0000000..923ede1 --- /dev/null +++ b/t/lib/Test/Enigmatic.pm @@ -0,0 +1,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"); + } +} |