if (exists $correct_C_responses{$formal_item}) {
my $item = eval $items{$formal_item};
skip "This platform apparently doesn't support $formal_item", 1 if $@;
+ my $result = test_Perl_langinfo($item);
if (defined $correct_C_responses{$formal_item}) {
- is (test_Perl_langinfo($item),
+ is ($result,
$correct_C_responses{$formal_item},
- "Returns expected value for $formal_item");
+ "Returns expected value ('$result') for $formal_item");
}
else {
- ok (defined test_Perl_langinfo($item),
- "Returns a value for $formal_item");
+ ok (defined $result,
+ "Returns a value (in this case '$result') for $formal_item");
}
}
}