Skip to content
Browse files

Add test for CLJS-266

  • Loading branch information...
1 parent 280ea95 commit 25d3a7ac891e50d4c0cf102353eac9fb2430760f @charles-dyfis-net charles-dyfis-net committed with David Nolen Jul 10, 2012
Showing with 9 additions and 5 deletions.
  1. +5 −5 test/cljs/cljs/core_test.cljs
  2. +4 −0 test/cljs/cljs/ns_test/foo.cljs
View
10 test/cljs/cljs/core_test.cljs
@@ -830,9 +830,9 @@
(derive ::rect ::shape)
(derive ::square ::rect)
- (assert (= #{:user/shape} (parents ::rect)))
- (assert (= #{:user/rect :user/shape} (ancestors ::square)))
- (assert (= #{:user/rect :user/square} (descendants ::shape)))
+ (assert (= #{:cljs.core-test/shape} (parents ::rect)))
+ (assert (= #{:cljs.core-test/rect :cljs.core-test/shape} (ancestors ::square)))
+ (assert (= #{:cljs.core-test/rect :cljs.core-test/square} (descendants ::shape)))
(assert (true? (isa? 42 42)))
(assert (true? (isa? ::square ::shape)))
@@ -855,8 +855,8 @@
;;(bar ::rect ::rect)
;; -> java.lang.IllegalArgumentException:
;; Multiple methods match dispatch value:
- ;; [:user/rect :user/rect] -> [:user/rect :user/shape]
- ;; and [:user/shape :user/rect],
+ ;; [:cljs.core-test/rect :cljs.core-test/rect] -> [:cljs.core-test/rect :cljs.core-test/shape]
+ ;; and [:cljs.core-test/shape :cljs.core-test/rect],
;; and neither is preferred
(assert (zero? (count (prefers bar))))
View
4 test/cljs/cljs/ns_test/foo.cljs
@@ -1,3 +1,7 @@
(ns cljs.ns-test.foo)
(defn baz [] 123)
+
+(def kw ::foo)
+
+(assert (= (str kw) ":cljs.ns-test.foo/foo"))

0 comments on commit 25d3a7a

Please sign in to comment.
Something went wrong with that request. Please try again.