Permalink
Browse files

LOGIC-36: another old unifier issue since resolved in 0.8.0. Adding a

test to document.
  • Loading branch information...
1 parent 0729279 commit c37212270688b1bdbbca7fb81c1fc52062b24139 @swannodette swannodette committed Mar 17, 2013
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/test/clojure/clojure/core/logic/tests.clj
@@ -1728,9 +1728,13 @@
[_2 :vogue :mascarpone 8.5]))))
(deftest test-71-simple-unifier-reify-vars
- (is (= (u/unify {} '[(?x) (?x) (1)])
+ (is (= (u/unify '[(?x) (?x) (1)])
'(1))))
+(deftest test-36-unifier-behavior
+ (is (= (u/unifier ['(?x ?y) '(?y ?x)])
+ '{?x ?y})))
+
;; =============================================================================
;; cKanren

0 comments on commit c372122

Please sign in to comment.