binary-search-tree 1.0.0.3: Add toList of equal element (#636)

exercism/problem-specifications#940
exercism · Jan 5, 2018 · ca07a7a · ca07a7a
1 parent c04564c
commit ca07a7a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/exercises/binary-search-tree/package.yaml b/exercises/binary-search-tree/package.yaml
@@ -1,5 +1,5 @@
 name: binary-search-tree
-version: 0.1.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/binary-search-tree/test/Tests.hs b/exercises/binary-search-tree/test/Tests.hs
@@ -68,6 +68,9 @@ specs = do
     it "iterating over smaller element" $
       toList (fromList [int4, 2]) `shouldBe` [2, 4]
 
+    it "iterating over equal element" $
+      toList (fromList [int4, 4]) `shouldBe` [4, 4]
+
     it "iterating over larger element" $
       toList (fromList [int4, 5]) `shouldBe` [4, 5]