--- a/RegressionTests__CollectionTests.st	Tue Mar 03 16:37:35 2020 +0100
+++ b/RegressionTests__CollectionTests.st	Thu Mar 05 11:45:20 2020 +0100
@@ -915,6 +915,39 @@
 
     "Modified: / 04-07-2011 / 19:32:34 / cg"
     "Modified: / 27-07-2017 / 20:38:42 / mawalch"
+!
+
+testOrderedDictionary02
+    |d enumerated|
+
+    d := OrderedDictionary new.
+
+    self assert: ( d size == 0 ).
+    self assert: ( d isEmpty ).
+    self assert: ( d notEmpty not ).
+
+    d at:'one' put:1.
+    d at:'two' put:2.
+    d at:'three' put:3.
+
+    enumerated := OrderedCollection new.
+    d do:[:eachValue | enumerated add:eachValue].
+    self assert: ( enumerated asArray = #(1 2 3)).
+
+    d removeAll.
+    self assert: ( d size == 0 ).
+    self assert: ( d isEmpty).
+    self assert: ( d notEmpty not).
+    self assert: ( d order size == 0).
+
+    enumerated := OrderedCollection new.
+    d do:[:eachValue | enumerated add:eachValue].
+    self assert: ( enumerated asArray = #()).
+
+
+    "
+     self basicNew testOrderedDictionary02
+    "
 ! !
 
 !CollectionTests methodsFor:'tests-orderedSet'!