From 2ea9e37164b304e9bb0a7b60a846023290132504 Mon Sep 17 00:00:00 2001
From: noufelgaci <97244578+gacinoufel@users.noreply.github.com>
Date: Sun, 9 Oct 2022 15:26:46 +0200
Subject: [PATCH] add test from: to:   for Orderedset

---
 .../CTOrderedSetTest.class.st                     | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/Containers-OrderedSet-Tests/CTOrderedSetTest.class.st b/src/Containers-OrderedSet-Tests/CTOrderedSetTest.class.st
index acea903..097d358 100644
--- a/src/Containers-OrderedSet-Tests/CTOrderedSetTest.class.st
+++ b/src/Containers-OrderedSet-Tests/CTOrderedSetTest.class.st
@@ -382,6 +382,21 @@ CTOrderedSetTest >> testFourth [
 	self assert: actual equals: expected.
 ]
 
+{ #category : #'collection tests' }
+CTOrderedSetTest >> testCopyFromToOfOrderedSet [
+	"Allows one to create a copy of the receiver that contains elements from position start to end"
+
+	| t1 t2 t3 |
+	t1 := #(100 200 300 400) asOrderedSet .
+	t2 := t1 copyFrom: 1 to: 2.
+	self assert: t2 equals: #(100 200) asOrderedSet. "-> is Good ! "
+
+	t3 := t1 copyFrom: 4 to: 2.
+	self assertEmpty: t3. "Index 4 >2 -> return Empty "
+
+	self should: [ t1 copyFrom: 5 to: 7 ] raise: Error. "-> Index out Limit"
+] 
+
 { #category : #'collection tests' }
 CTOrderedSetTest >> testIncludesAllFalse [
 	| set |