Port *'

Author: shantanu-sardesai

test/clojure/core_test/star_squote.cljc

@@ -70,20 +70,24 @@
       5 1N 5
       5 1N 5N)
 
-    (is (thrown? #?(:cljs :default :default Exception) (*' 1 nil)))
-    (is (thrown? #?(:cljs :default :default 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 (instance? clojure.lang.BigInt (*' (long (/ r/min-int 2)) 3)))
-    (is (instance? clojure.lang.BigInt (*' 3 (long (/ r/min-int 2)))))))
+    (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)))
+    #?(:jank nil ;; Currently `long` hasn't been ported in jank.
+       :default (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (*' (long (/ r/min-int 2)) 3))))
+    #?(:jank nil
+       :default (is (#?@(:jank [cpp/jank.runtime.is_big_integer] :default [instance? clojure.lang.BigInt]) (*' 3 (long (/ r/min-int 2))))))
+    ))