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