summaryrefslogtreecommitdiff
path: root/t/lib/Test/Enigmatic.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Test/Enigmatic.pm')
-rw-r--r--t/lib/Test/Enigmatic.pm15
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");
+ }
+}