Index: t/pmc/pmc.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/pmc.t,v
retrieving revision 1.34
diff -u -r1.34 pmc.t
--- t/pmc/pmc.t	27 Jul 2002 20:18:44 -0000	1.34
+++ t/pmc/pmc.t	31 Jul 2002 21:17:12 -0000
@@ -1,6 +1,6 @@
 #! perl -w
 
-use Parrot::Test tests => 65;
+use Parrot::Test tests => 66;
 use Test::More;
 
 my $fp_equality_macro = <<'ENDOFMACRO';
@@ -1433,6 +1433,26 @@
 CODE
 -1
 -2000
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, "sweepoff with newpmcs");
+    print "starting\n"
+
+    sweepoff
+    set I0, 0
+
+LOOP: new P0, .PerlString
+    set P0, "ABC"
+    save P0
+    inc I0
+    lt I0, 127, LOOP
+
+    print "ending\n"
+	
+    end
+CODE
+starting
+ending
 OUTPUT
 
 1;