* test/cljs/cljs/core_test.cljs: tests for instance?, test for namesp…

…aced keyword
takeoutweight · Nov 13, 2011 · eef807e · eef807e
1 parent 0c24089
commit eef807e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/test/cljs/cljs/core_test.cljs b/test/cljs/cljs/core_test.cljs
@@ -726,5 +726,14 @@
   (assert (= (assoc fred :lastname "Flintstone") {:firstname "Fred" :lastname "Flintstone"}))
   (assert (= (assoc fred :wife :ethel) {:firstname "Fred" :lastname "Mertz" :wife :ethel}))
   (assert (= (dissoc ethel :husband) {:firstname "Ethel" :lastname "Mertz"}))
+
+  (assert (instance? js/Object 1))
+  (assert (instance? js/Number 1))
+  (assert (instance? js/Object "foo"))
+  (assert (instance? js/String "foo"))
+  (assert (instance? js/Object (array)))
+  (assert (instance? js/Array (array)))
+  (assert (instance? js/Object (fn [])))
+  (assert (instance? js/Function (fn [])))
 
   :ok)
diff --git a/test/cljs/cljs/reader_test.cljs b/test/cljs/cljs/reader_test.cljs
@@ -19,6 +19,7 @@
   (assert (= {:tag 'String} (meta (reader/read-string "^String {:a 1}"))))
   (assert (= [:a 'b #{'c {:d [:e :f :g]}}]
                (reader/read-string "[:a b #{c {:d [:e :f :g]}}]")))
+  (assert (= :foo/bar (reader/read-string ":foo/bar")))
   (assert (= nil (reader/read-string "nil")))
   (assert (= true (reader/read-string "true")))
   (assert (= false (reader/read-string "false")))