From 1776bd778db4f6ed72eed47602877ab7a8fb904f Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 29 Aug 2011 13:54:58 +0100
Subject: reflectors, in box, and some refactor

---
 t/lib/Test/Enigmatic.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 t/lib/Test/Enigmatic.pm

(limited to 't/lib/Test/Enigmatic.pm')

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");
+    }
+}
-- 
cgit v1.2.3