more...

pharo-project · Sep 23, 2020 · 37cd2c3 · 37cd2c3
1 parent 76878de
commit 37cd2c3
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/src/Monticello-Tests/MCOrganizationTest.class.st b/src/Monticello-Tests/MCOrganizationTest.class.st
@@ -16,7 +16,7 @@ MCOrganizationTest >> testLoadAndUnload [
 { #category : #tests }
 MCOrganizationTest >> testReordering [
 	| dec cats newCats |
-	dec := MCOrganizationDefinition categories: #(A B C).
+	dec := MCOrganizationDefinition categories: #(A B C) copy.
 	cats := #(X Y B Z C A Q).
 	newCats := dec reorderCategories: cats original: #(B C A).
 	self assert: newCats asArray equals: #(X Y A B C Z Q)

diff --git a/src/Network-Mail-Tests/MailAddressTokenizerTest.class.st b/src/Network-Mail-Tests/MailAddressTokenizerTest.class.st
@@ -57,7 +57,7 @@ MailAddressTokenizerTest >> testTokensInUnicode [
 
 	| email tokens tokensCollection |
 
-	email := 'first last <person@company.com>'.
+	email := 'first last <person@company.com>' copy.
 	email
 		at: 3 put: 345 asCharacter;
 		at: 15 put: 345 asCharacter.
@@ -67,12 +67,12 @@ MailAddressTokenizerTest >> testTokensInUnicode [
 	self 
 		assert: tokensCollection
 		equals: {
-			#Atom->('first'
+			#Atom->('first' copy
 				at: 3 put: 345 asCharacter;
 				yourself). 
-			#Atom->'last'. 
+			#Atom->'last' copy. 
 			$<->'<'. 
-			#Atom->('person'
+			#Atom->('person' copy
 				at: 3 put: 345 asCharacter;
 				yourself). 
 			$@->'@'. 

diff --git a/src/Spec2-Tests/SpAbstractListPresenterTest.class.st b/src/Spec2-Tests/SpAbstractListPresenterTest.class.st
@@ -152,7 +152,7 @@ SpAbstractListPresenterTest >> testSetSortingBlockBeforeItems [
 	count := 0.
 	presenter whenSortingBlockChangedDo: [ :sortFunction | count := count + 1 ].
 	presenter sortingBlock: #yourself ascending.
-	presenter items: #(3 8 1 0).
+	presenter items: #(3 8 1 0) copy.
 	self assert: count equals: 1.
 	self assert: (presenter model at: 1) equals: 0
 ]

diff --git a/src/Spec2-Tests/SpComponentListPresenterTest.class.st b/src/Spec2-Tests/SpComponentListPresenterTest.class.st
@@ -142,7 +142,7 @@ SpComponentListPresenterTest >> testSetSortingBlockBeforeItems [
 	count := 0.
 	presenter whenSortingBlockChangedDo: [ :sortFunction | count := count + 1 ].
 	presenter sortingBlock: [ :each | each label asNumber ] ascending.
-	presenter items: #(3 8 1 0).
+	presenter items: #(3 8 1 0) copy.
 	self assert: count equals: 1.
 	self assert: (presenter model at: 1) label equals: '0'
 ]