--- a/RegressionTests__StringTests.st Mon Apr 01 17:20:34 2019 +0200
+++ b/RegressionTests__StringTests.st Tue Apr 02 10:41:48 2019 +0200
@@ -1078,22 +1078,22 @@
|strA strB|
0 to:32 do:[:szA |
- 0 to:32 do:[:szB |
- |szAB|
+ 0 to:32 do:[:szB |
+ |szAB|
- strA := String new:szA withAll:$a.
- strB := String new:szB withAll:$b.
- szAB := szA + szB.
- self assert:(szA = strA size).
- self assert:(szB = strB size).
- 10000 timesRepeat:[
- |strAB|
+ strA := String new:szA withAll:$a.
+ strB := String new:szB withAll:$b.
+ szAB := szA + szB.
+ self assert:(szA = strA size).
+ self assert:(szB = strB size).
+ "/ why repeat ??? - to check GC???
+ 1 "10000" timesRepeat:[
+ |strAB|
- strAB := strA , strB.
-
- self assert:(szAB == strAB size).
- ]
- ]
+ strAB := strA , strB.
+ self assert:(szAB == strAB size).
+ ]
+ ]
].
strA := strB := ''.
@@ -1108,9 +1108,22 @@
strA := 'b'.
strB := 'a'.
self assert: ((strB , strA) = 'ab').
+
+ "/ concatenating other things
+ self assert:('hello',123) = 'hello123'.
+ self assert:('hello' asUnicode16String,123) = 'hello123' asUnicode16String.
+ self assert:('hello' asUnicode32String,123) = 'hello123' asUnicode32String.
+
+ "/ concatenating other things
+ self assert:('hello',,123) = c'hello\n123'.
+ self assert:('hello' asUnicode16String,,123) = c'hello\n123' asUnicode16String.
+ self assert:('hello' asUnicode32String,,123) = c'hello\n123' asUnicode32String.
+
"
self new test65_concatenation
"
+
+ "Modified: / 02-04-2019 / 10:41:24 / Claus Gittinger"
!
test66_replace