diff options
Diffstat (limited to 't/lib/Test/Enigmatic.pm')
-rw-r--r-- | t/lib/Test/Enigmatic.pm | 25 |
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'); + } +} |