cvsuser 02/05/14 22:01:33
Modified: t/op stacks.t
Log:
Make the regex engine's fast stacks available to other parts of Parrot.
Revision Changes Path
1.15 +33 -1 parrot/t/op/stacks.t
Index: stacks.t
===================================================================
RCS file: /home/perlcvs/parrot/t/op/stacks.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- stacks.t 17 Apr 2002 21:19:16 -0000 1.14
+++ stacks.t 15 May 2002 05:01:32 -0000 1.15
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 28;
+use Parrot::Test tests => 29;
use Test::More;
# Tests for stack operations, currently push*, push_*_c and pop*
@@ -588,6 +588,38 @@
Stack Depth Wrong
OUTPUT
}
+
+output_is(<<'CODE', <<'OUTPUT', "intstack");
+ intsave -1
+ intsave 0
+ intsave 1
+ intsave 2
+ intsave 3
+ set I0, 4
+ intsave I0
+
+ intrestore I1
+ print I1
+
+ intrestore I1
+ print I1
+
+ intrestore I1
+ print I1
+
+ intrestore I1
+ print I1
+
+ intrestore I1
+ print I1
+
+ intrestore I1
+ print I1
+
+ print "\n"
+CODE
+43210-1
+OUTPUT
##############################
