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

[jkeenan]

Author: jkeenan
Date: Fri Dec  5 17:15:14 2008
New Revision: 33530

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

Log:
Improve debugging message.

Modified: branches/testparrottest/lib/Parrot/Test.pm
==============================================================================
--- branches/testparrottest/lib/Parrot/Test.pm  (original)
+++ branches/testparrottest/lib/Parrot/Test.pm  Fri Dec  5 17:15:14 2008
@@ -202,7 +202,7 @@
     }
 unless ($incoming_desc_status) {
     if ($desc) {
-        print STDERR "desc:  $desc\n";
+        print STDERR "desc is now:  $desc\n";
     } else {
         print STDERR "desc is still Perl-false\n";
     }
@@ -531,6 +531,7 @@
                 \$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;