Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (8 sloc) 278 Bytes
;; http://rosettacode.org/wiki/Testing_a_Function#Clojure
(defn palindrome? [s]
(= s (apply str (reverse s))))
(use 'clojure.test)
(deftest test-palindrome?
(is (= true (palindrome? "amanaplanacanalpanama")))
(is (= false (palindrome? "Test 1, 2, 3"))))
(run-tests)