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