#FEATURE by gg
class: RegressionTests::WebSocketTest
removed: #testHelloWorld
category of: #manualCompressionTest
class: WebSocketTest
added:
#manualCompressionTest
#testHelloWorld
changed: #testCommunication100
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#StackFrameTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression-RuntimeSystem'
!
!StackFrameTest methodsFor:'tests'!
deepRecursionTest
|b|
b := [:n |
n printCR.
b value:(n + 1)
].
b value:1.
"
self new deepRecursionTest
"
!
testUnlimitedStack1
self
skipIf:(OperatingSystem isMSDOSlike and:[ExternalAddress pointerSize == 8])
description:'Fails under Win64 (stx will exit), requires deeper inspection'.
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 (!__isStringLike(__ArrayInstPtr(anArray)->a_element[0])) {
printf("OOPS\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[1])) {
printf("OOPS\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[2])) {
printf("OOPS\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[3])) {
printf("OOPS\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[4])) {
printf("OOPS\n");
};
__PROTECT__(anArray);
__scavenge();
__UNPROTECT__(anArray);
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[0])) {
printf("OOPS2\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[1])) {
printf("OOPS2\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[2])) {
printf("OOPS2\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[3])) {
printf("OOPS2\n");
};
if (!__isStringLike(__ArrayInstPtr(anArray)->a_element[4])) {
printf("OOPS2\n");
};
%}.
"Modified: / 22-03-2019 / 03:01:38 / Claus Gittinger"
! !
!StackFrameTest class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !