--- 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