Merge pull request #162 from NoahTheDuke/nb/gh-161/fix-ipending-ideref

Check for IDeref, not IPending in isJvmPromise?

src/cli_matic/platform.clj

@@ -11,7 +11,7 @@
   "
   (:require [clojure.edn :as edn]
             [cli-matic.optionals :as OPT])
-  (:import (clojure.lang IPending)))
+  (:import (clojure.lang IDeref)))
 
 (defn read-env
   "Reads an environment variable.
@@ -82,7 +82,7 @@
 (defn- isJvmPromise?
   "Checks whether the value is a JVM promise."
   [x]
-  (instance? IPending x))
+  (instance? IDeref x))
 
 (defn isDeferredValue?
   "Is this a deferred value for this platform?"

test/cli_matic/core_test.cljc

@@ -709,5 +709,12 @@
                             :type    :int}]
              :runs        cmd_foo}]))
 
-
-
+(deftest ipending-is-not-ideref-test
+  (let [cmd (fn [& _] (lazy-seq (cons 1 ())))
+        setup {:command     "ipending-example"
+               :opts        []
+               :subcommands [{:command "foo"
+                              :opts    []
+                              :runs    cmd}]}]
+    (is (= (->RV 0 :OK nil [] [])
+           (run-cmd* setup ["foo"])))))