#TUNING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 02 Apr 2019 10:52:09 +0200
changeset 2210 d3368bb7f119
parent 2209 dd72456e8de4
child 2211 632cea1b911c
#TUNING by cg class: RegressionTests::StringTests changed: #test67_concatenationAnd #test68_concatenationAndAnd
RegressionTests__StringTests.st
--- a/RegressionTests__StringTests.st	Tue Apr 02 10:49:27 2019 +0200
+++ b/RegressionTests__StringTests.st	Tue Apr 02 10:52:09 2019 +0200
@@ -1249,27 +1249,28 @@
     |strA strB strC|
 
     0 to:32 do:[:szA |
-	0 to:32 do:[:szB |
-	    0 to:32 do:[:szC |
-		|szABC|
-		strA := String new:szA withAll:$a.
-		strB := String new:szB withAll:$b.
-		strC := String new:szC withAll:$c.
+        0 to:32 do:[:szB |
+            0 to:32 do:[:szC |
+                |szABC|
+                strA := String new:szA withAll:$a.
+                strB := String new:szB withAll:$b.
+                strC := String new:szC withAll:$c.
 
-		szABC := szA + szB + szC.
-		self assert:(szA = strA size).
-		self assert:(szB = strB size).
-		self assert:(szC = strC size).
+                szABC := szA + szB + szC.
+                self assert:(szA = strA size).
+                self assert:(szB = strB size).
+                self assert:(szC = strC size).
 
-		300 timesRepeat:[
-		    |strABC|
-
-		    strABC := strA concatenate:strB and:strC.
+                "/ why repeat? to test GC???
+                1 "300" timesRepeat:[
+                    |strABC|
 
-		    self assert:(szABC == strABC size).
-		]
-	    ]
-	]
+                    strABC := strA concatenate:strB and:strC.
+
+                    self assert:(szABC == strABC size).
+                ]
+            ]
+        ]
     ].
     strA := strB := strC := ''.
     self assert: ((strA concatenate:strB and:strC) = '').
@@ -1288,38 +1289,41 @@
     "
      self new test67_concatenationAnd
     "
+
+    "Modified: / 02-04-2019 / 10:51:31 / Claus Gittinger"
 !
 
 test68_concatenationAndAnd
     |strA strB strC strD|
 
     0 to:32 do:[:szA |
-	strA := String new:szA withAll:$a.
-	self assert:(szA = strA size).
-	0 to:32 do:[:szB |
-	    strB := String new:szB withAll:$b.
-	    self assert:(szB = strB size).
-	    0 to:32 do:[:szC |
-		strC := String new:szC withAll:$c.
-		self assert:(szC = strC size).
-		0 to:32 do:[:szD |
-		    |szABCD|
-		    strD := String new:szD withAll:$d.
+        strA := String new:szA withAll:$a.
+        self assert:(szA = strA size).
+        0 to:32 do:[:szB |
+            strB := String new:szB withAll:$b.
+            self assert:(szB = strB size).
+            0 to:32 do:[:szC |
+                strC := String new:szC withAll:$c.
+                self assert:(szC = strC size).
+                0 to:32 do:[:szD |
+                    |szABCD|
+                    strD := String new:szD withAll:$d.
+
+                    szABCD := szA + szB + szC + szD.
 
-		    szABCD := szA + szB + szC + szD.
+                    self assert:(szD = strD size).
 
-		    self assert:(szD = strD size).
-
-		    5 timesRepeat:[
-			|strABCD|
+                    "/ why repeat???
+                    1 "5" timesRepeat:[
+                        |strABCD|
 
-			strABCD := strA concatenate:strB and:strC and:strD.
+                        strABCD := strA concatenate:strB and:strC and:strD.
 
-			self assert:(szABCD == strABCD size).
-		    ]
-		]
-	    ]
-	]
+                        self assert:(szABCD == strABCD size).
+                    ]
+                ]
+            ]
+        ]
     ].
 
     strA := strB := strC := strD := ''.
@@ -1343,6 +1347,8 @@
     "
      self new test68_concatenationAndAnd
     "
+
+    "Modified: / 02-04-2019 / 10:51:50 / Claus Gittinger"
 !
 
 test69_split