From 37cd2c395793efc8ff6ab886085398f82d79efb8 Mon Sep 17 00:00:00 2001 From: Marcus Denker Date: Wed, 23 Sep 2020 13:40:42 +0200 Subject: [PATCH] more... --- src/Monticello-Tests/MCOrganizationTest.class.st | 2 +- src/Network-Mail-Tests/MailAddressTokenizerTest.class.st | 8 ++++---- src/Spec2-Tests/SpAbstractListPresenterTest.class.st | 2 +- src/Spec2-Tests/SpComponentListPresenterTest.class.st | 2 +- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/Monticello-Tests/MCOrganizationTest.class.st b/src/Monticello-Tests/MCOrganizationTest.class.st index 0f370f1c731..a1b2b907259 100644 --- 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 index aa35e35295d..ff8b0f90dfc 100644 --- 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 '. + email := 'first last ' 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 index 3cccb6ff040..f9c696d2b7f 100644 --- 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 index ae868bd0490..427782644b4 100644 --- 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' ]