Skip to content

Instantly share code, notes, and snippets.

@llasram

llasram/deftest-org.clj

Forked from semperos/deftest-org.clj
Created January 19, 2012 22:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save llasram/1643212 to your computer and use it in GitHub Desktop.
Save llasram/1643212 to your computer and use it in GitHub Desktop.
Download ZIP
deftest organization
Raw
deftest-org.clj
(defn my-check [x]
(is (good? x))
(defn another-check [x]
(is (alright? x))
(def all-checks
[my-check another-check])
(defn run-checks [browser]
(doseq [check all-checks]
(setup-for-test browser)
(check browser))
(deftest check-ff
(run-checks :firefox))
(deftest check-chromium
(run-checks :chromium))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment