     (check-*parallel*-disables pmap-like))
   (testing (format "%s throws exceptions when tasks are sent to a shutdown pool"
                    fn-name)
-    (check-shutdown-exceptions pmap-like)))
+    (check-shutdown-exceptions pmap-like))
+  (testing (format "%s can be chained in various threadpools" fn-name)
+    (check-chaining pmap-like)))
 
 
 (deftest test-future

        (Thread/sleep 50)
        (is (= @started (set results) (set input)))))))

(defn check-shutdown-exceptions
  "Check that exceptions are thrown when tasks go to a shutdown pool."
  [pmap-like]

    (testing "Binding cp/*parallel* can disable parallelism in future"
      (check-*parallel*-disables pmap-like))
    (testing "Future throws exceptions when tasks are sent to a shutdown pool"
      (check-shutdown-exceptions pmap-like))
    (testing "Futures can be chained in various threadpools."
      (check-chaining pmap-like))))

(deftest test-pmap
  (testing "basic pmap test"
