Fix OrderedSet tests in GS64

ba-st · Aug 8, 2023 · a62027d · a62027d
1 parent f450ca7
commit a62027d
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 2 deletions.
diff --git a/source/Buoy-Collections-Tests/OrderedSetTest.class.st b/source/Buoy-Collections-Tests/OrderedSetTest.class.st
@@ -466,7 +466,7 @@ OrderedSetTest >> testCopyReplaceFromToWithInsertingAtEnd [
 
 	original := self abcSet.
 
-	copy := original copyReplaceFrom: 4 to: 4 with: 'f'.
+	copy := original copyReplaceFrom: 4 to: 3 with: 'f'.
 
 	self
 		assert: copy size equals: 4;

diff --git a/source/Buoy-Collections/OrderedSet.class.st b/source/Buoy-Collections/OrderedSet.class.st
@@ -116,6 +116,15 @@ OrderedSet >> copyFrom: start to: stop [
 	^ self species withAll: ( collection copyFrom: start to: stop )
 ]
 
+{ #category : #copying }
+OrderedSet >> copyReplaceAll: oldSubCollection with: newSubCollection [
+
+	^ self species withAll:
+		  (collection
+			   copyReplaceAll: oldSubCollection
+			   with: newSubCollection)
+]
+
 { #category : #copying }
 OrderedSet >> copyReplaceFrom: start to: stop with: replacementCollection [
 

diff --git a/source/Buoy-SUnit-GS64-Extensions/TestAsserter.extension.st b/source/Buoy-SUnit-GS64-Extensions/TestAsserter.extension.st
@@ -55,7 +55,7 @@ TestAsserter >> should: aBlock raise: anException withExceptionDo: anotherBlock
 		[
 			aBlock value.
 			false]
-				sunitOn: anException
+				on: anException
 				do: [:aSignal |
 					anotherBlock value: aSignal.
 					aSignal sunitExitWith: true].