Prep jank support (jank-lang#71)

* prep jank support

* prep

* note block

* wip

* keyword

* -Exception

* -Exception

* -Exception

* update copied comment to match actual namespace

* rm jank workaround

Author: frenchy64

deps.edn

@@ -0,0 +1 @@
+{:paths ["test"]}

test/clojure/core_test/abs.cljc

@@ -22,7 +22,7 @@
            [-1/5           1/5]))
      (is (NaN? (abs ##NaN)))
      #?(:cljs (is (zero? (abs nil)))
-        :default(is (thrown? Exception (abs nil)))))
+        :default (is (thrown? #?(:clj Exception) (abs nil)))))
 
     (testing "unboxed"
       (let [a  42

test/clojure/core_test/bit_and.cljc

@@ -5,10 +5,10 @@
 
 (when-var-exists clojure.core/bit-and
   (deftest test-bit-and
-    #?(:clj (is (thrown? Exception (bit-and nil 1)))
-       :cljs (is (= 0 (bit-and nil 1))))
-    #?(:clj (is (thrown? Exception (bit-and 1 nil)))
-       :cljs (is (= 0 (bit-and 1 nil))))
+    #?(:cljs (is (= 0 (bit-and nil 1)))
+       :default (is (thrown? #?(:clj Exception) (bit-and nil 1))))
+    #?(:cljs (is (= 0 (bit-and 1 nil)))
+       :default (is (thrown? #?(:clj Exception) (bit-and 1 nil))))
 
     (are [ex a b] (= ex (bit-and a b))
       8                        12                       9

test/clojure/core_test/bit_and_not.cljc

@@ -5,10 +5,10 @@
 
 (when-var-exists clojure.core/bit-and-not
   (deftest test-bit-and-not
-    #?(:clj (is (thrown? Exception (bit-and-not nil 1)))
-       :cljs (is (= 0 (bit-and-not nil 1))))
-    #?(:clj (is (thrown? Exception (bit-and-not 1 nil)))
-       :cljs (is (= 1 (bit-and-not 1 nil))))
+    #?(:cljs (is (= 0 (bit-and-not nil 1)))
+       :default (is (thrown? #?(:clj Exception) (bit-and-not nil 1))))
+    #?(:cljs (is (= 1 (bit-and-not 1 nil)))
+       :default (is (thrown? #?(:clj Exception) (bit-and-not 1 nil))))
 
     (are [ex a b] (= ex (bit-and-not a b))
       0                        0                        0

test/clojure/core_test/bit_clear.cljc

@@ -4,10 +4,10 @@
 
 (when-var-exists clojure.core/bit-clear
   (deftest test-bit-clear
-    #?(:clj (is (thrown? Exception (bit-clear nil 1)))
-       :cljs (is (= 0 (bit-clear nil 1))))
-    #?(:clj (is (thrown? Exception (bit-clear 1 nil)))
-       :cljs (is (= 0 (bit-clear 1 nil))))
+    #?(:cljs (is (= 0 (bit-clear nil 1)))
+       :default (is (thrown? #?(:clj Exception) (bit-clear nil 1))))
+    #?(:cljs (is (= 0 (bit-clear 1 nil)))
+       :default (is (thrown? #?(:clj Exception) (bit-clear 1 nil))))
 
     (are [ex a b] (= ex (bit-clear a b))
       3 11 3)))

test/clojure/core_test/bit_flip.cljc

@@ -4,10 +4,10 @@
 
 (when-var-exists clojure.core/bit-flip
   (deftest test-bit-flip
-    #?(:clj (is (thrown? Exception (bit-flip nil 1)))
-       :cljs (is (= 2 (bit-flip nil 1))))
-    #?(:clj (is (thrown? Exception (bit-flip 1 nil)))
-       :cljs (is (= 0 (bit-flip 1 nil))))
+    #?(:cljs (is (= 2 (bit-flip nil 1)))
+       :default (is (thrown? #?(:clj Exception) (bit-flip nil 1))))
+    #?(:cljs (is (= 0 (bit-flip 1 nil)))
+       :default (is (thrown? #?(:clj Exception) (bit-flip 1 nil))))
 
     (are [ex a b] (= ex (bit-flip a b))
       2r1111 2r1011 2

test/clojure/core_test/bit_not.cljc

@@ -4,8 +4,8 @@
 
 (when-var-exists clojure.core/bit-not
   (deftest test-bit-not
-    #?(:clj (is (thrown? Exception (bit-not nil)))
-       :cljs (is (= -1 (bit-not nil))))
+    #?(:cljs (is (= -1 (bit-not nil)))
+       :default (is (thrown? #?(:clj Exception) (bit-not nil))))
 
     (are [ex a] (= ex (bit-not a))
       -2r1000 2r0111

test/clojure/core_test/bit_or.cljc

@@ -5,10 +5,10 @@
 
 (when-var-exists clojure.core/bit-or
   (deftest test-bit-or
-    #?(:clj (is (thrown? Exception (bit-or nil 1)))
-       :cljs (is (bit-or nil 1)))
-    #?(:clj (is (thrown? Exception (bit-or 1 nil)))
-       :cljs (is (bit-or 1 nil)))
+    #?(:cljs (is (bit-or nil 1))
+       :default (is (thrown? #?(:clj Exception) (bit-or nil 1))))
+    #?(:cljs (is (bit-or 1 nil))
+       :default (is (thrown? #?(:clj Exception) (bit-or 1 nil))))
 
     (are [ex a b] (= ex (bit-or a b))
       2r1101                   2r1100                   2r1001

test/clojure/core_test/bit_set.cljc

@@ -4,10 +4,10 @@
 
 (when-var-exists clojure.core/bit-set
   (deftest test-bit-set
-    #?(:clj (is (thrown? Exception (bit-set nil 1)))
-       :cljs (is (bit-set nil 1)))
-    #?(:clj (is (thrown? Exception (bit-set 1 nil)))
-       :cljs (is (bit-set 1 nil)))
+    #?(:cljs (is (bit-set nil 1))
+       :default (is (thrown? #?(:clj Exception) (bit-set nil 1))))
+    #?(:cljs (is (bit-set 1 nil))
+       :default (is (thrown? #?(:clj Exception) (bit-set 1 nil))))
 
     (are [ex a b] (= ex (bit-set a b))
       2r1111               2r1011 2

test/clojure/core_test/bit_shift_left.cljc

@@ -4,10 +4,10 @@
 
 (when-var-exists clojure.core/bit-shift-left
   (deftest test-bit-shift-left
-    #?(:clj (is (thrown? Exception (bit-shift-left nil 1)))
-       :cljs (is (= 0 (bit-shift-left nil 1))))
-    #?(:clj (is (thrown? Exception (bit-shift-left 1 nil)))
-       :cljs (is (= 1 (bit-shift-left 1 nil))))
+    #?(:cljs (is (= 0 (bit-shift-left nil 1)))
+       :default (is (thrown? #?(:clj Exception) (bit-shift-left nil 1))))
+    #?(:cljs (is (= 1 (bit-shift-left 1 nil)))
+       :default (is (thrown? #?(:clj Exception) (bit-shift-left 1 nil))))
 
     (are [ex a b] (= ex (bit-shift-left a b))
       1024     1      10