[svn:parrot] r48581 - trunk/t/op

nwellnhof at svn.parrot.org nwellnhof at svn.parrot.org
Fri Aug 20 12:47:22 UTC 2010


Author: nwellnhof
Date: Fri Aug 20 12:47:21 2010
New Revision: 48581
URL: https://trac.parrot.org/parrot/changeset/48581

Log:
Get GC stats before possibly triggering another GC

Modified:
   trunk/t/op/gc-leaky-box.t
   trunk/t/op/gc-leaky-call.t

Modified: trunk/t/op/gc-leaky-box.t
==============================================================================
--- trunk/t/op/gc-leaky-box.t	Fri Aug 20 12:42:42 2010	(r48580)
+++ trunk/t/op/gc-leaky-box.t	Fri Aug 20 12:47:21 2010	(r48581)
@@ -49,25 +49,25 @@
     inc counter
     if counter < 10e6 goto loop
 
-    diag("")
     $I1 = interpinfo.INTERPINFO_GC_COLLECT_RUNS
+    $I2 = interpinfo.INTERPINFO_GC_MARK_RUNS
+    $I3 = interpinfo.INTERPINFO_TOTAL_MEM_ALLOC
+
     $S1 = $I1
     $S0 = "performed " . $S1
     $S0 .= " (which should be >=1) GC collect runs"
     ok($I1,$S0)
 
-    $I1 = interpinfo.INTERPINFO_GC_MARK_RUNS
-    $S1 = $I1
+    $S1 = $I2
     $S0 = "performed " . $S1
     $S0 .= " (which should be >=1) GC mark runs"
-    ok($I1,$S0)
+    ok($I2,$S0)
 
-    $I1 = interpinfo.INTERPINFO_TOTAL_MEM_ALLOC
-    $S1 = $I1
+    $S1 = $I3
     $S0 = "allocated " . $S1
     $S0 .= " (which should be <= 2_000_000) bytes of memory, TODO: TT#1465"
-    $I2 = isle $I1, 2000000
-    todo($I2,$S0)
+    $I4 = isle $I3, 2000000
+    todo($I4,$S0)
 .end
 
 # Local Variables:

Modified: trunk/t/op/gc-leaky-call.t
==============================================================================
--- trunk/t/op/gc-leaky-call.t	Fri Aug 20 12:42:42 2010	(r48580)
+++ trunk/t/op/gc-leaky-call.t	Fri Aug 20 12:47:21 2010	(r48581)
@@ -46,25 +46,25 @@
     inc counter
     if counter < 10e6 goto loop
 
-    diag("")
     $I1 = interpinfo.INTERPINFO_GC_COLLECT_RUNS
+    $I2 = interpinfo.INTERPINFO_GC_MARK_RUNS
+    $I3 = interpinfo.INTERPINFO_TOTAL_MEM_ALLOC
+
     $S1 = $I1
     $S0 = "performed " . $S1
     $S0 .= " (which should be >=1) GC collect runs"
     ok($I1,$S0)
 
-    $I1 = interpinfo.INTERPINFO_GC_MARK_RUNS
-    $S1 = $I1
+    $S1 = $I2
     $S0 = "performed " . $S1
     $S0 .= " (which should be >=1) GC mark runs"
-    ok($I1,$S0)
+    ok($I2,$S0)
 
-    $I1 = interpinfo.INTERPINFO_TOTAL_MEM_ALLOC
-    $S1 = $I1
+    $S1 = $I3
     $S0 = "allocated " . $S1
     $S0 .= " (which should be <= 2_000_000) bytes of memory, TODO: TT#945"
-    $I2 = isle $I1, 2000000
-    todo($I2,$S0)
+    $I4 = isle $I3, 2000000
+    todo($I4,$S0)
 .end
 
 .sub consume


More information about the parrot-commits mailing list