Applied, thanks. Mike Lambert
Simon Glover wrote: > Date: Fri, 02 Aug 2002 21:40:51 GMT > From: Simon Glover <[EMAIL PROTECTED]> > Reply-To: [EMAIL PROTECTED] > To: [EMAIL PROTECTED] > Subject: [perl #15953] [PATCH] More GC tests > Resent-Date: 2 Aug 2002 21:40:52 -0000 > Resent-From: [EMAIL PROTECTED] > Resent-To: [EMAIL PROTECTED] > > # New Ticket Created by Simon Glover > # Please include the string: [perl #15953] > # in the subject line of all future correspondence about this issue. > # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=15953 > > > > > A few more tests for the GC ops. > > Simon > > --- t/op/gc.t.old Fri Aug 2 17:03:13 2002 > +++ t/op/gc.t Fri Aug 2 17:39:17 2002 > @@ -1,6 +1,70 @@ > #! perl -w > > -use Parrot::Test tests => 1; > +use Parrot::Test tests => 5; > + > +output_is( <<'CODE', '1', "sweep" ); > + interpinfo I1, 2 # How many DOD runs have we done already? > + sweep > + interpinfo I2, 2 # Should be one more now > + sub I3, I2, I1 > + print I3 > + end > +CODE > + > +output_is( <<'CODE', '1', "collect" ); > + interpinfo I1, 3 # How many garbage collections have we done already? > + collect > + interpinfo I2, 3 # Should be one more now > + sub I3, I2, I1 > + print I3 > + end > +CODE > + > +output_is( <<'CODE', <<'OUTPUT', "collectoff/on" ); > + interpinfo I1, 3 > + collectoff > + collect > + interpinfo I2, 3 > + sub I3, I2, I1 > + print I3 > + print "\n" > + > + collecton > + collect > + interpinfo I4, 3 > + sub I6, I4, I2 > + print I6 > + print "\n" > + > + end > +CODE > +0 > +1 > +OUTPUT > + > +output_is( <<'CODE', <<'OUTPUT', "Nested collectoff/collecton" ); > + interpinfo I1, 3 > + collectoff > + collectoff > + collecton > + collect # This shouldn't do anything... > + interpinfo I2, 3 > + sub I3, I2, I1 > + print I3 > + print "\n" > + > + collecton > + collect # ... but this should > + interpinfo I4, 3 > + sub I6, I4, I2 > + print I6 > + print "\n" > + > + end > +CODE > +0 > +1 > +OUTPUT > > output_is(<<'CODE', <<OUTPUT, "sweepoff with newpmcs"); > print "starting\n" > > > >