summaryrefslogtreecommitdiff
path: root/t/lib/Test/Enigmatic.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Test/Enigmatic.pm')
-rw-r--r--t/lib/Test/Enigmatic.pm8
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');
}
}