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

[svn:parrot] r33938 - trunk/t/pmc

From:
particle
Date:
December 15, 2008 15:31
Subject:
[svn:parrot] r33938 - trunk/t/pmc
Message ID:
20081215233126.D94D2CBA12@x12.develooper.com
Author: particle
Date: Mon Dec 15 15:31:25 2008
New Revision: 33938

Modified:
   trunk/t/pmc/eval.t

Log:
[t] cannot 'rm' an open file on windows

Modified: trunk/t/pmc/eval.t
==============================================================================
--- trunk/t/pmc/eval.t	(original)
+++ trunk/t/pmc/eval.t	Mon Dec 15 15:31:25 2008
@@ -316,6 +316,8 @@
 2 1 1 1
 OUTPUT
 
+TODO: {
+    local $TODO = "cannot 'rm' an open file on windows" if $^O eq 'MSWin32';
 pir_output_is( <<"CODE", <<'OUTPUT', "eval.get_string - same file" );
 .sub main :main
 
@@ -356,6 +358,7 @@
 CODE
 hello from foo_1
 OUTPUT
+}
 
 my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
 



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