From c802d62a3afc99c784cfbb7ca2033930d6537555 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 29 Aug 2011 18:22:24 +0100
Subject: full-machine and tests

---
 t/lib/Test/Enigmatic.pm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

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

diff --git a/t/lib/Test/Enigmatic.pm b/t/lib/Test/Enigmatic.pm
index 923ede1..9958667 100644
--- a/t/lib/Test/Enigmatic.pm
+++ b/t/lib/Test/Enigmatic.pm
@@ -13,3 +13,28 @@ sub test_static_map {
            "$name on $c");
     }
 }
+
+
+sub test_full_machine {
+    my ($factory,$input,$exp_output) = @_;
+
+    $input =~ s{\s+}{}g;
+
+    my $output = $factory->()->map_string(uc $input);
+
+    note "output: $output";
+
+    my $back = $factory->()->map_string($output);
+
+    note "back: $back";
+
+    is($back,
+       $input,
+       'round tripped');
+    if ($exp_output) {
+        $exp_output =~ s{\s+}{}g;
+        is($output,
+           uc($exp_output),
+           'got expected output');
+    }
+}
-- 
cgit v1.2.3