diff options
| author | dakkar <dakkar@thenautilus.net> | 2011-08-29 13:54:58 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2011-08-29 13:54:58 +0100 |
| commit | 1776bd778db4f6ed72eed47602877ab7a8fb904f (patch) | |
| tree | e04b0500dbe53aed33be95d311f46e8e40775017 /t/lib/Test/Enigmatic.pm | |
| parent | rotor boxes (diff) | |
| download | Enigmatic-1776bd778db4f6ed72eed47602877ab7a8fb904f.tar.gz Enigmatic-1776bd778db4f6ed72eed47602877ab7a8fb904f.tar.bz2 Enigmatic-1776bd778db4f6ed72eed47602877ab7a8fb904f.zip | |
reflectors, in box, and some refactor
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"); + } +} |