Permalink
Browse files

Added extra unit test to zip* and lazy-zip* in seq

  • Loading branch information...
1 parent 060e791 commit 9d909c882d2cc3c0d2ea2408170935d0cfce8b37 @jbester committed Dec 31, 2010
Showing with 12 additions and 0 deletions.
  1. +12 −0 cljext/seq/utest.clj
View
12 cljext/seq/utest.clj
@@ -39,6 +39,9 @@
(= (seq/zip* '(1 2 3) '(4 5))
'([1 4] [2 5] [3 nil])))
(test-is/is
+ (= (seq/lazy-zip* '(1 2) '(4 5 6))
+ '([1 4] [2 5] [nil 6])))
+ (test-is/is
(= (seq/zip* '(1 2 3) '(4 5 6))
'([1 4] [2 5] [3 6])))
@@ -58,13 +61,22 @@
'([1 4 7] [2 5 8] [3 6 9])))
)
+
(test-is/deftest test-lazy-zip*
(test-is/is
(= (seq/lazy-zip* '(1 2 3) '(4 5 6))
'([1 4] [2 5] [3 6])))
(test-is/is
(= (seq/lazy-zip* '(1 2 3) '(4 5 6) '(7 8 9))
'([1 4 7] [2 5 8] [3 6 9])))
+
+ (test-is/is
+ (= (seq/lazy-zip* '(1 2) '(4 5 6))
+ '([1 4] [2 5] [nil 6])))
+
+ (test-is/is
+ (= (seq/lazy-zip* '(1 2 3) '(4 5))
+ '([1 4] [2 5] [3 nil])))
)
(test-is/deftest test-unzip

0 comments on commit 9d909c8

Please sign in to comment.