# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 967720451 -7200
# Node ID 5d3b7394a36a9cb13635c6dc85aed05d62b5934c
# Parent  c677f96c4a0b142c67e37eede99ef3735ed248ca
initial checkin

diff -r c677f96c4a0b -r 5d3b7394a36a RegressionTests__StackFrameTest.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__StackFrameTest.st	Thu Aug 31 13:14:11 2000 +0200
@@ -0,0 +1,78 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+Object subclass:#StackFrameTest
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Tests-Regression'
+!
+
+
+!StackFrameTest class methodsFor:'tests'!
+
+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$'
+! !