Index: t/op/gc.t
===================================================================
RCS file: /cvs/public/parrot/t/op/gc.t,v
retrieving revision 1.5
diff -u -r1.5 gc.t
--- t/op/gc.t	1 Jul 2003 23:08:14 -0000	1.5
+++ t/op/gc.t	15 Aug 2003 13:13:22 -0000
@@ -1,33 +1,21 @@
 #! perl -w
 
-use Parrot::Test tests => 8;
+use Parrot::Test tests => 6;
 
-output_is( <<'CODE', '1', "sweep 1" );
-      interpinfo I1, 2   # How many DOD runs have we done already?
+output_is( <<'CODE', '0112', "sweep 1" );
+      interpinfo I1, 2   # How many DOD runs have we done already? Should be 0
+      print I1
       sweep 1
-      interpinfo I2, 2   # Should be one more now
-      sub I3, I2, I1
-      print I3
-      end
-CODE
-
-output_is( <<'CODE', '0', "sweep 0" );
-      interpinfo I1, 2   # How many DOD runs have we done already?
+      interpinfo I1, 2   # Should be 1
+      print I1
       sweep 0
-      interpinfo I2, 2   # Should be same
-      sub I3, I2, I1
-      print I3
-      end
-CODE
-
-output_is( <<'CODE', '1', "sweep 0, with object that need destroy" );
-      interpinfo I1, 2   # How many DOD runs have we done already?
+      interpinfo I1, 2   # Should be still 1
+      print I1
       new P0, .PerlUndef
       needs_destroy P0
       sweep 0
-      interpinfo I2, 2   # Should be one more now
-      sub I3, I2, I1
-      print I3
+      interpinfo I1, 2   # Should be 2
+      print I1
       end
 CODE