[svn:parrot] r49217 - branches/gc_massacre/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Sep 22 01:00:23 2010
New Revision: 49217
URL: https://trac.parrot.org/parrot/changeset/49217

Log:
Cleanup CallContext in filehandle.t to really test timely destruction. Looks like old GC exposing some weird bug passing this test and destroying object which is actually referenced.

Modified:
   branches/gc_massacre/t/pmc/filehandle.t

Modified: branches/gc_massacre/t/pmc/filehandle.t
==============================================================================
--- branches/gc_massacre/t/pmc/filehandle.t	Wed Sep 22 00:41:36 2010	(r49216)
+++ branches/gc_massacre/t/pmc/filehandle.t	Wed Sep 22 01:00:23 2010	(r49217)
@@ -745,12 +745,18 @@
         needs_destroy $P0
     print $P0, "a line\n"
     null $P0            # kill it
+    # Call dummy sub to cleanup CallContext
+    dummy()
     sweep 0            # a lazy GC has to close the PIO
     $P0 = new ['FileHandle']
     $P0.'open'(temp_file, 'r')
     $S0 = $P0.'read'(20)
     print $S0
 .end
+
+.sub dummy
+.end
+
 CODE
 a line
 OUTPUT