cvsuser 03/06/24 07:43:11
Modified: t/op stacks.t Log: stack-limit-tests Revision Changes Path 1.27 +43 -17 parrot/t/op/stacks.t Index: stacks.t =================================================================== RCS file: /cvs/public/parrot/t/op/stacks.t,v retrieving revision 1.26 retrieving revision 1.27 diff -u -w -r1.26 -r1.27 --- stacks.t 13 Jun 2003 23:15:38 -0000 1.26 +++ stacks.t 24 Jun 2003 14:43:11 -0000 1.27 @@ -1,6 +1,6 @@ #! perl -w -use Parrot::Test tests => 40; +use Parrot::Test tests => 43; use Test::More; # Tests for stack operations, currently push*, push_*_c and pop* @@ -881,6 +881,32 @@ ok 8 OUTPUT +output_is(<<CODE, <<'OUTPUT', "check limit - User"); +lp: + save I0 + branch lp + end +CODE +Stack 'User' too deep +OUTPUT + +output_is(<<CODE, <<'OUTPUT', "check limit - Pad"); +lp: + new_pad 0 + branch lp + end +CODE +Stack 'Pad' too deep +OUTPUT + +output_is(<<CODE, <<'OUTPUT', "check limit - Control"); +lp: + bsr lp + end +CODE +Stack 'Control' too deep +OUTPUT + ############################## # set integer registers to some value given by $code...
