Permalink
Browse files

LOGIC-63: fix CLJS broken tests. LCons typo: -withMeta -> -with-meta

  • Loading branch information...
1 parent e0b280f commit 371c0355f51ee35c6e71616ec2923a8242d6e4b3 David Nolen committed Oct 26, 2012
Showing with 13 additions and 25 deletions.
  1. +1 −1 src/main/clojure/cljs/core/logic.cljs
  2. +12 −24 src/test/cljs/cljs/core/logic/tests.cljs
@@ -294,7 +294,7 @@
(-meta [this]
meta)
IWithMeta
- (-withMeta [this new-meta]
+ (-with-meta [this new-meta]
(LCons. a d new-meta))
LConsSeq
(-lfirst [_] a)
@@ -839,22 +839,16 @@
'[(1 2) 3]))
; test-unifier-4
-;; Currently failes with:
-; Error: No protocol method IWithMeta.-with-meta defined for type object: [object Object]
-;(assert (= (unifier '(?x . ?y) '(1 . ?z))
-; (lcons 1 '_.0)))
+(assert (= (unifier '(?x . ?y) '(1 . ?z))
+ (lcons 1 '_.0)))
; test-unifier-5
-;; Currently failes with:
-; Error: No protocol method IWithMeta.-with-meta defined for type object: [object Object]
-;(assert (= (unifier '(?x 2 . ?y) '(1 2 3 4 5))
-; '(1 2 3 4 5)))
+(assert (= (unifier '(?x 2 . ?y) '(1 2 3 4 5))
+ '(1 2 3 4 5)))
; test-unifier-6
-;; Currently failes with:
-; Error: No protocol method IWithMeta.-with-meta defined for type object: [object Object]
-;(assert (= (unifier '(?x 2 . ?y) '(1 9 3 4 5))
-; nil))
+(assert (= (unifier '(?x 2 . ?y) '(1 9 3 4 5))
+ nil))
; test-binding-map-1
(assert (= (binding-map '(?x ?y) '(1 2))
@@ -869,22 +863,16 @@
'{?x 1 ?y (2)}))
; test-binding-map-4
-;; Currently failes with:
-; Error: No protocol method IWithMeta.-with-meta defined for type object: [object Object]
-;(assert (= (binding-map '(?x . ?y) '(1 . ?z))
-; '{?z _.0, ?x 1, ?y _.0}))
+(assert (= (binding-map '(?x . ?y) '(1 . ?z))
+ '{?z _.0, ?x 1, ?y _.0}))
; test-binding-map-5
-;; Currently failes with:
-; Error: No protocol method IWithMeta.-with-meta defined for type object: [object Object]
-;(assert (= (binding-map '(?x 2 . ?y) '(1 2 3 4 5))
-; '{?x 1 ?y (3 4 5)}))
+(assert (= (binding-map '(?x 2 . ?y) '(1 2 3 4 5))
+ '{?x 1 ?y (3 4 5)}))
; test-binding-map-6
-;; Currently failes with:
-; Error: No protocol method IWithMeta.-with-meta defined for type object: [object Object]
-;(assert (= (binding-map '(?x 2 . ?y) '(1 9 3 4 5))
-; nil))
+(assert (= (binding-map '(?x 2 . ?y) '(1 9 3 4 5))
+ nil))
;; -----------------------------------------------------------------------------
;; Occurs Check

0 comments on commit 371c035

Please sign in to comment.