Get all CLJS tests compiling (if not passing)

Author: jeaye

.gitignore

@@ -15,3 +15,5 @@ pom.xml.asc
 /.lsp
 *~
 .*.swp
+/node_modules
+/.shadow-cljs

shadow-cljs.edn

@@ -10,4 +10,5 @@
          :output-to "target/js/node-tests.js"
          :ns-regexp "-test"
          :autorun true
+         :compiler-options {:warnings {:invalid-arithmetic false}}
          :release {:autorun false}}}}

shell.nix

@@ -0,0 +1,13 @@
+with (import <nixpkgs> {});
+mkShell
+{
+  buildInputs =
+  [
+    leiningen
+    openjdk
+    nodejs
+  ];
+  shellHook =
+  ''
+  '';
+}

test/clojure/core_test/abs.cljc

@@ -1,8 +1,9 @@
 (ns clojure.core-test.abs
-  (:require [clojure.test :as t :refer [deftest testing is are]]
-            [clojure.core-test.portability :as p]))
+  (:require #?(:cljs  [cljs.reader])
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
 
-(p/when-var-exists clojure.core/abs
+(when-var-exists clojure.core/abs
   (deftest test-abs
     (testing "common"
      (are [in ex] (= ex (abs in))
@@ -15,9 +16,11 @@
        ##Inf          ##Inf
        -123.456M      123.456M
        -123N          123N
-       -1/5           1/5)
+       #?@(:cljs []
+           :default
+           [-1/5           1/5]))
      (is (NaN? (abs ##NaN)))
-     (is (thrown? NullPointerException (abs nil))))
+     (is (thrown? #?(:cljs :default :clj NullPointerException) (abs nil))))
 
     (testing "unboxed"
       (let [a  42

test/clojure/core_test/aclone.cljc

@@ -1,8 +1,9 @@
 (ns clojure.core-test.aclone
-  (:require [clojure.test :as t :refer [deftest testing is are]]
-            [clojure.core-test.portability :as p]))
+  (:require #?(:cljs  [cljs.reader])
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
 
-(p/when-var-exists clojure.core/aclone
+(when-var-exists clojure.core/aclone
   (defn clone-test
     [a b]
     (aset a 0 1)