aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/clojure/contrib/test_is/tests.clj4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_is/tests.clj b/src/clojure/contrib/test_is/tests.clj
index 0dc8eedf..f846b699 100644
--- a/src/clojure/contrib/test_is/tests.clj
+++ b/src/clojure/contrib/test_is/tests.clj
@@ -47,6 +47,10 @@
(deftest can-catch-unexpected-exceptions
(is (= 1 (throw (Exception.))) "Should error"))
+(deftest can-test-method-call
+ (is (.startsWith "abc" "a") "Should pass")
+ (is (.startsWith "abc" "d") "Should fail"))
+
;; Here, we create an alternate version of test-is/report, that
;; compares the event with the message. The alternate calls the