[svn:parrot] r34786 - trunk/t/tools

[allison]

Author: allison
Date: Thu Jan  1 20:20:50 2009
New Revision: 34786

Modified:
   trunk/t/tools/parrot_debugger.t

Log:
[pdd30install] Small cleanups to parrot_debugger tests. Extracted from
pdd30install branch (Reini Urban).


Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t     (original)
+++ trunk/t/tools/parrot_debugger.t     Thu Jan  1 20:20:50 2009
@@ -22,7 +22,7 @@
 =head1 REQUIREMENTS
 
 This test script requires you to build parrot_debugger, by typing
-"make parrot_debugger" (using a suitable make tool for your platform).
+"make parrot_utils" (using a suitable make tool for your platform).
 If this requirement has not been met, all tests will be skipped.
 
 =cut
@@ -42,7 +42,7 @@
     $path_to_pdb = File::Spec->catfile( ".", "parrot_debugger" );
     my $exefile = $path_to_pdb . $PConfig{exe};
     unless ( -f $exefile ) {
-        plan skip_all => "parrot_debugger hasn't been built";
+        plan skip_all => "parrot_debugger hasn't been built. Run make 
parrot_utils";
         exit(0);
     }
 }
@@ -101,6 +101,7 @@
     my $output = join( '', <$f> );
 
     local $Test::Builder::Level = $Test::Builder::Level + 1;
+    unlink ($codefn, $stdinfn, $stdoutfn);
     like( $output, $check, $diag );
 }