9 lines
292 B
Clojure
9 lines
292 B
Clojure
|
(ns slingshot.test-test
|
||
|
|
(:require [clojure.test :refer :all]
|
||
|
|
[slingshot.slingshot :refer [throw+]]
|
||
|
|
[slingshot.test]))
|
||
|
|
|
||
|
|
(deftest test-slingshot-test-macros
|
||
|
|
(is (thrown+? string? (throw+ "test")))
|
||
|
|
(is (thrown+-with-msg? string? #"th" (throw+ "test" "hi there"))))
|