#FEATURE by sr
authorsr
Tue, 10 Oct 2017 10:43:01 +0200
changeset 1714 e859d29370c8
parent 1713 72bd587b1967
child 1715 247143b085d4
#FEATURE by sr skip for win64 (in order to not exit stx during regression test as long as unfixed) class: RegressionTests::StackFrameTest changed: #testUnlimitedStack1
RegressionTests__StackFrameTest.st
--- a/RegressionTests__StackFrameTest.st	Fri Sep 29 15:44:03 2017 +0200
+++ b/RegressionTests__StackFrameTest.st	Tue Oct 10 10:43:01 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -13,12 +15,16 @@
 !StackFrameTest methodsFor:'tests'!
 
 testUnlimitedStack1
-    10 timesRepeat:[
-	|a|
+    self 
+        skipIf:(OperatingSystem isMSDOSlike and:[ExternalAddress pointerSize == 8])
+        description:'Fails under Win64 (stx will exit), requires deeper inspection'.
 
-	a := Array with:('1' copy) with:('2' copy) with:('3' copy) with:('4' copy) with:('5' copy).
-	self unlimitedStackTest1:a.
-	true.
+    10 timesRepeat:[
+        |a|
+
+        a := Array with:('1' copy) with:('2' copy) with:('3' copy) with:('4' copy) with:('5' copy).
+        self unlimitedStackTest1:a.
+        true.
     ]
 
     "