Port +'

Author: shantanu-sardesai

test/clojure/core_test/plus_squote.cljc

@@ -70,18 +70,19 @@
       6N 1N 5
       6N 1N 5N)
 
-    (is (thrown? #?(:cljs :default :clj Exception :cljr Exception) (+' 1 nil)))
-    (is (thrown? #?(:cljs :default :clj Exception :cljr Exception) (+' nil 1)))
+    #?(:jank []
+       :default [(is (thrown? #?(:cljs :default :clj Exception :cljr Exception) (+' 1 nil)))
+                 (is (thrown? #?(:cljs :default :clj Exception :cljr Exception) (+' nil 1)))])
 
-    (is (instance? clojure.lang.BigInt (+' 0 1N)))
-    (is (instance? clojure.lang.BigInt (+' 0N 1)))
-    (is (instance? clojure.lang.BigInt (+' 0N 1N)))
-    (is (instance? clojure.lang.BigInt (+' 1N 1)))
-    (is (instance? clojure.lang.BigInt (+' 1 1N)))
-    (is (instance? clojure.lang.BigInt (+' 1N 1N)))
-    (is (instance? clojure.lang.BigInt (+' 1 5N)))
-    (is (instance? clojure.lang.BigInt (+' 1N 5)))
-    (is (instance? clojure.lang.BigInt (+' 1N 5N)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 0 1N)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 0N 1)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 0N 1N)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 1N 1)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 1 1N)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 1N 1N)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 1 5N)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 1N 5)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' 1N 5N)))
 
-    (is (instance? clojure.lang.BigInt (+' -1 r/min-int)))
-    (is (instance? clojure.lang.BigInt (+' r/min-int -1)))))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' -1 r/min-int)))
+    (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (+' r/min-int -1)))))