full-machine and tests

1 files changed, 25 insertions, 0 deletions

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');
+    }
+}