develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33788 - in branches/testparrottest: lib/Parrot t/perl

From:
jkeenan
Date:
December 10, 2008 19:03
Subject:
[svn:parrot] r33788 - in branches/testparrottest: lib/Parrot t/perl
Message ID:
20081211030339.8E908CBA89@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About