[svn:parrot] r44416 - trunk/t/dynpmc

[darbelo at svn.parrot.org]

Author: darbelo
Date: Tue Feb 23 22:35:44 2010
New Revision: 44416
URL: https://trac.parrot.org/parrot/changeset/44416

Log:
Make temp file deletion smarter to cover the fact that the OS pmc is dumb. Thanks to fperrad++ for pointing this out and prviding a patch.

Modified:
   trunk/t/dynpmc/gdbmhash.t

Modified: trunk/t/dynpmc/gdbmhash.t
==============================================================================
--- trunk/t/dynpmc/gdbmhash.t	Tue Feb 23 22:19:06 2010	(r44415)
+++ trunk/t/dynpmc/gdbmhash.t	Tue Feb 23 22:35:44 2010	(r44416)
@@ -48,7 +48,17 @@
 .sub unlink
     .param string filename
     new $P0, 'OS'
+    push_eh _handler
     $P0.'rm'(filename)
+    .return ()
+  _handler:
+    .local pmc e
+    .get_results (e)
+    printerr "# Cannot unlink "
+    printerr filename
+    printerr " ("
+    printerr e
+    printerr ")\n"
 .end
 
 .sub test_typeof