"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#StackFrameTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression'
!


!StackFrameTest methodsFor:'tests'!

testUnlimitedStack1
    10 timesRepeat:[
        |a|

        a := Array with:('1' copy) with:('2' copy) with:('3' copy) with:('4' copy) with:('5' copy).
        self unlimitedStackTest1:a.
        true.
    ] 

    "
     self run:#testUnlimitedStack1
    "
!

unlimitedStackTest1:anArray
"
[
    |a|

    a := Array with:'1' copy with:'2' copy with:'3' copy with:'4' copy with:'5' copy.
    self unlimitedStackTest1:a.
    true.
] whileTrue
"
%{  /* UNLIMITEDSTACK */

    OBJ __returnArray;
    OBJ __symbol;
    OBJ __returnCode;

    if (!__isString(__ArrayInstPtr(anArray)->a_element[0])) {
        printf("OOPS\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[1])) {
        printf("OOPS\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[2])) {
        printf("OOPS\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[3])) {
        printf("OOPS\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[4])) {
        printf("OOPS\n");
    };
    __PROTECT__(anArray);
    __scavenge();
    __UNPROTECT__(anArray);


    if (!__isString(__ArrayInstPtr(anArray)->a_element[0])) {
        printf("OOPS2\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[1])) {
        printf("OOPS2\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[2])) {
        printf("OOPS2\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[3])) {
        printf("OOPS2\n");
    };
    if (!__isString(__ArrayInstPtr(anArray)->a_element[4])) {
        printf("OOPS2\n");
    };
%}.
! !

!StackFrameTest class methodsFor:'documentation'!

version
    ^ '$Header$'
! !