From e327d1899bdb062209bd518ee6ed81e0533e5323 Mon Sep 17 00:00:00 2001 From: Christophe Grand Date: Tue, 4 Apr 2017 09:32:27 +0200 Subject: [PATCH] Add failing test for #14 --- test/net/cgrand/xforms_test.cljc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test/net/cgrand/xforms_test.cljc b/test/net/cgrand/xforms_test.cljc index 20c8657..dac5d51 100644 --- a/test/net/cgrand/xforms_test.cljc +++ b/test/net/cgrand/xforms_test.cljc @@ -86,7 +86,9 @@ (is (= (into [] (x/partition 2 1 nil (x/into [])) (range 8)) [[0 1] [1 2] [2 3] [3 4] [4 5] [5 6] [6 7] [7]])) (is (= (into [] (x/partition 2 1 (x/into [])) (range 8)) - [[0 1] [1 2] [2 3] [3 4] [4 5] [5 6] [6 7]]))) + [[0 1] [1 2] [2 3] [3 4] [4 5] [5 6] [6 7]])) + (is (= (into [] (comp (x/partition 2 2 nil) (x/into [])) (range 8)) + [[[0 1] [2 3] [4 5] [6 7]]]))) #?(:clj (deftest window-by-time