Skip to content
Browse files

Found a way to make this regression test correct.

  • Loading branch information...
1 parent cfd7135 commit 70e12c8f42175994adbad4dedd701e3a6cc9af83 @amalloy amalloy committed Nov 3, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 test/useful/datatypes_test.clj
View
4 test/useful/datatypes_test.clj
@@ -12,7 +12,7 @@
(defrecord Implementor [x]
Inline
- (foo [this] "x"))
+ (foo [this] (bar this)))
(extend-type Implementor
Dynamic
@@ -38,6 +38,6 @@
(assoc-record ^Test (do (swap! times-evaled inc) r) :a :x :b :y :c :z)
(is (= 1 @times-evaled))))
- (testing "Works with implemented protocols"
+ (testing "Works calling implemented protocols"
(let [r (Implementor. 1)]
(assoc-record r :x 5)))))

0 comments on commit 70e12c8

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