Fix on Cljs 1.10.238 (#7)

* Update Boot and deps

* Use correct MapEntry type on Cljs

This type exists since Cljs 1.9.456

* Fix tag readers on Cljs

boot.properties

@@ -1,4 +1,4 @@
 #https://github.com/boot-clj/boot
 #Thu Sep 10 15:11:07 BST 2015
-BOOT_CLOJURE_VERSION=1.7.0
-BOOT_VERSION=2.2.0
+BOOT_CLOJURE_VERSION=1.8.0
+BOOT_VERSION=2.7.2

build.boot

@@ -1,9 +1,12 @@
 (set-env!
  :resource-paths #{"src"}
- :dependencies '[[adzerk/boot-cljs "0.0-3308-0" :scope "test"]
-                 [adzerk/boot-cljs-repl "0.1.9" :scope "test"]
-                 [crisptrutski/boot-cljs-test "0.1.0-SNAPSHOT" :scope "test"]
-                 [collection-check "0.1.6" :scope "test"
+ :source-paths #{"test"}
+ :dependencies '[[adzerk/boot-cljs "2.1.4" :scope "test"]
+                 [adzerk/boot-cljs-repl "0.3.3" :scope "test"]
+                 [crisptrutski/boot-cljs-test "0.3.5-SNAPSHOT" :scope "test"]
+                 [org.clojure/clojurescript "1.10.238" :scope "test"]
+                 [doo "0.1.8" :scope "test"]
+                 [collection-check "0.1.7" :scope "test"
                   :exclusions [org.clojure/clojure]]])
 
 (require
@@ -38,10 +41,6 @@
   (comp (pom) (jar) (install)
         (push :gpg-sign (not (.endsWith +version+ "-SNAPSHOT")))))
 
-(deftask testing []
-  (set-env! :source-paths #(conj % "test"))
-  identity)
-
 (ns-unmap 'boot.user 'test)
 
 (require '[boot.pod  :as pod]
@@ -84,13 +83,11 @@
         fileset))))
 
 (deftask test []
-  (comp (testing)
-        (test-clj)
+  (comp (test-clj)
         (test-cljs :js-env :phantom
                    :exit?  true)))
 
 (deftask autotest []
-  (comp (testing)
-        (watch)
+  (comp (watch)
         (test-clj)
         (test-cljs :js-env :phantom)))

src/linked/map.cljc

@@ -256,7 +256,7 @@
 
 (defn- map-entry [k v]
   #?(:clj  (MapEntry. k v)
-     :cljs (vector k v)))
+     :cljs (MapEntry. k v nil)))
 
 (defn- visit-node [delegate-map current last direction]
   (let [[k node] (find delegate-map current)
@@ -285,4 +285,4 @@
 
 (def ->linked-map (partial into empty-linked-map))
 
-#?(:cljs (reader/register-tag-parser! "linked/map" ->linked-map))
+#?(:cljs (reader/register-tag-parser! 'linked/map ->linked-map))

src/linked/set.cljc

@@ -161,4 +161,4 @@
 
 (def ->linked-set (partial into empty-linked-set))
 
-#?(:cljs (reader/register-tag-parser! "linked/set" ->linked-set))
+#?(:cljs (reader/register-tag-parser! 'linked/set ->linked-set))

test/linked/map_test.cljc

@@ -1,8 +1,8 @@
 (ns linked.map-test
   (:require [linked.core :as linked]
             #?@(:clj  [[clojure.test :refer :all]
-                      [collection-check :refer :all]
-                      [clojure.test.check.generators :as gen]]
+                       [collection-check.core :refer :all]
+                       [clojure.test.check.generators :as gen]]
                 :cljs [[cljs.test :refer-macros [is are testing deftest run-tests]]])
             #?(:cljs [cljs.reader :refer [read-string]])))
 
@@ -128,4 +128,7 @@
     (let [o (read-string (pr-str s))]
       #?(:clj (is (= linked.map.LinkedMap (type o))))
       (is (= '([1 9] [3 4] [5 6] [7 8])
-             (seq o))))))
+             (seq o))))))
+
+(deftest map-entry-test
+  (is (map-entry? (first (linked/map 1 2)))))

test/linked/set_test.cljc

@@ -1,7 +1,7 @@
 (ns linked.set-test
   (:require [linked.core :as linked]
             #?@(:clj  [[clojure.test :refer :all]
-                       [collection-check :refer :all]
+                       [collection-check.core :refer :all]
                        [clojure.test.check.generators :as gen]]
                 :cljs [[cljs.test :refer-macros [is are testing deftest run-tests]]])
             #?(:cljs [cljs.reader :refer [read-string]])))