diff options
author | dakkar <dakkar@thenautilus.net> | 2011-08-29 19:16:26 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2011-08-29 19:16:26 +0100 |
commit | 2b28ab91084f37a5e9014737d0df694587fe60cf (patch) | |
tree | 5aa4089d4b3589584d1b6e945184a2fad51b62e6 /t/lib/Test | |
parent | full-machine and tests (diff) | |
download | Enigmatic-2b28ab91084f37a5e9014737d0df694587fe60cf.tar.gz Enigmatic-2b28ab91084f37a5e9014737d0df694587fe60cf.tar.bz2 Enigmatic-2b28ab91084f37a5e9014737d0df694587fe60cf.zip |
fixed rotor ring settings
and removed debug prints
Diffstat (limited to 't/lib/Test')
-rw-r--r-- | t/lib/Test/Enigmatic.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/lib/Test/Enigmatic.pm b/t/lib/Test/Enigmatic.pm index 9958667..6e35070 100644 --- a/t/lib/Test/Enigmatic.pm +++ b/t/lib/Test/Enigmatic.pm @@ -18,9 +18,9 @@ sub test_static_map { sub test_full_machine { my ($factory,$input,$exp_output) = @_; - $input =~ s{\s+}{}g; + $input =~ s{\s+}{}g;$input=$input->uc; - my $output = $factory->()->map_string(uc $input); + my $output = $factory->()->map_string($input); note "output: $output"; @@ -32,9 +32,9 @@ sub test_full_machine { $input, 'round tripped'); if ($exp_output) { - $exp_output =~ s{\s+}{}g; + $exp_output =~ s{\s+}{}g;$exp_output=$exp_output->uc; is($output, - uc($exp_output), + $exp_output, 'got expected output'); } } |