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

[svn:parrot] r33535 - branches/testparrottest/lib/Parrot

From:
jkeenan
Date:
December 5, 2008 19:29
Subject:
[svn:parrot] r33535 - branches/testparrottest/lib/Parrot
Message ID:
20081206032950.8FDD1CB9AF@x12.develooper.com
Author: jkeenan
Date: Fri Dec  5 19:29:49 2008
New Revision: 33535

Modified:
   branches/testparrottest/lib/Parrot/Test.pm

Log:
Reposition debugging statement

Modified: branches/testparrottest/lib/Parrot/Test.pm
==============================================================================
--- branches/testparrottest/lib/Parrot/Test.pm	(original)
+++ branches/testparrottest/lib/Parrot/Test.pm	Fri Dec  5 19:29:49 2008
@@ -440,6 +440,7 @@
                 return 0;
             }
 
+print STDERR 'just before $pass:  ', "$desc\n";
             my $pass = $builder->$meth( $real_output, $expected, $desc );
             $builder->diag("'$cmd' failed with exit code $exit_code")
                 if not $pass and $exit_code;
@@ -531,7 +532,6 @@
                 \$extra{todo}
                 if defined $extra{todo};
 
-print STDERR 'just before $pass:  ', "$desc\n";
             my $pass = $builder->$meth( $real_output, $expected, $desc );
             $builder->diag("'$cmd' failed with exit code $exit_code")
                 if $exit_code and not $pass;



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