; The with-test macro can be used to add tests
; to the functions they test as metadata.
(with-test
(defn add-vals
[n1 n2]
(+ n1 n2)
(is (= 4 (add-vals 2 2)))
(is (= 2 (add-vals 2 0)) "adding zero doesn't change value")
(is (thrown? ClassCastException (add-vals "foo" "bar")))))