Author: jkeenan
Date: Wed Dec 10 19:03:38 2008
New Revision: 33788
Modified:
branches/testparrottest/lib/Parrot/Test.pm
branches/testparrottest/t/perl/Parrot_Test.t
Log:
1. Improve one test description. 2. Since $desc is never used after it's
been assigned to in _run_test_file(), it may be deleted without affecting
anything.
Modified: branches/testparrottest/lib/Parrot/Test.pm
==============================================================================
--- branches/testparrottest/lib/Parrot/Test.pm (original)
+++ branches/testparrottest/lib/Parrot/Test.pm Wed Dec 10 19:03:38 2008
@@ -597,12 +597,6 @@
# Strange Win line endings
convert_line_endings($expected);
- # set up default description
- unless ($desc) {
- ( undef, my $file, my $line ) = caller();
- $desc = "($file line $line)";
- }
-
# $test_no will be part of temporary file
my $test_no = $builder->current_test() + 1;
Modified: branches/testparrottest/t/perl/Parrot_Test.t
==============================================================================
--- branches/testparrottest/t/perl/Parrot_Test.t (original)
+++ branches/testparrottest/t/perl/Parrot_Test.t Wed Dec 10 19:03:38 2008
@@ -417,7 +417,7 @@
}
ENDOFCODE
-$desc = 'C: hello world';
+$desc = 'C: is hello world';
test_out("ok 1 - $desc");
c_output_is( <<CODE, <<'OUTPUT', $desc );
$c_code
