From 6c3b967de358e0b6504ccd8e138799369aab9d1c Mon Sep 17 00:00:00 2001
From: Grzegorz Adam Hankiewicz <gradha@imap.cc>
Date: Sat, 26 Jul 2014 19:12:57 +0200
Subject: [PATCH] Adds test cases for remaining TSet procs.

---
 lib/pure/collections/sets.nim | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/pure/collections/sets.nim b/lib/pure/collections/sets.nim
index c3895b8fab..4af2b7ad49 100644
--- a/lib/pure/collections/sets.nim
+++ b/lib/pure/collections/sets.nim
@@ -425,6 +425,10 @@ proc testModule() =
     assert e == toSet[string](["a"])
     var f = symmetricDifference(a, b)
     assert f == toSet[string](["a", "c"])
+    assert d < a and d < b
+    assert((a < a) == false)
+    assert d <= a and d <= b
+    assert((a <= a))
     # Alias test.
     assert a + b == toSet[string](["a", "b", "c"])
     assert a * b == toSet[string](["b"])
@@ -433,6 +437,11 @@ proc testModule() =
     assert disjoint(a, b) == false
     assert disjoint(a, b - a) == true
 
+  block mapSet:
+    var a = toSet[int]([1, 2, 3])
+    var b = a.map(proc (x: int): string = $x)
+    assert b == toSet[string](["1", "2", "3"])
+
   block isValidTest:
     var cards: TOrderedSet[string]
     proc saveTarotCards(cards: TOrderedSet[string]) =