clojure-koans/koans/path_to_enlightenment.clj

(load "about_asserts")
(load "about_vectors")

(defmacro meditate-on
  "Runs tests but exits if an assertion fails"
  [test-function]
  `(try
   (~test-function)
   (catch Throwable t#
     (println (str "\n\"" (:zen (meta #'~test-function)) "\"\n"
                   "[FAILURE] - "(:name (meta #'~test-function))
                   " failed\n" t# "\n"))
     (System/exit 1))))

(meditate-on test-truth)
(meditate-on test-assert-equality)
(meditate-on test-fill-in-values)

(meditate-on test-creating-vectors)
(meditate-on test-vector-literals)
(meditate-on test-accessing-vector-elements)
(meditate-on test-vectors-and-ranges)

(println "You have achieved clojure zen. Go out into the universe and spread your newfound knowledge.")
updating the path to enlightenment, adding a repl runner, and adding the about vectors koans. 2010-02-05 18:57:38 +00:00			`(load "about_asserts")`
			`(load "about_vectors")`
lLt's not use clojure.test. The runner can be much simpler and provide better output. I am putting the zen message as metadata on each function. The 'runner' exits on the first failure now 2010-01-24 03:28:43 +00:00
it helps if you put the metadata in the right place. also make mediate-on a macro so that I could get at the metadata from the actual test 2010-01-24 16:04:27 +00:00			`(defmacro meditate-on`
lLt's not use clojure.test. The runner can be much simpler and provide better output. I am putting the zen message as metadata on each function. The 'runner' exits on the first failure now 2010-01-24 03:28:43 +00:00			`"Runs tests but exits if an assertion fails"`
it helps if you put the metadata in the right place. also make mediate-on a macro so that I could get at the metadata from the actual test 2010-01-24 16:04:27 +00:00			`[test-function]`
			`(try
			`(~test-function)`
			`(catch Throwable t#`
updating the path to enlightenment, adding a repl runner, and adding the about vectors koans. 2010-02-05 18:57:38 +00:00			`(println (str "\n\"" (:zen (meta #'~test-function)) "\"\n"`
			`"[FAILURE] - "(:name (meta #'~test-function))`
			`" failed\n" t# "\n"))`
lLt's not use clojure.test. The runner can be much simpler and provide better output. I am putting the zen message as metadata on each function. The 'runner' exits on the first failure now 2010-01-24 03:28:43 +00:00			`(System/exit 1))))`

			`(meditate-on test-truth)`
			`(meditate-on test-assert-equality)`
finishing asserts 2010-01-31 16:52:32 +00:00			`(meditate-on test-fill-in-values)`
updating the path to enlightenment, adding a repl runner, and adding the about vectors koans. 2010-02-05 18:57:38 +00:00
			`(meditate-on test-creating-vectors)`
			`(meditate-on test-vector-literals)`
			`(meditate-on test-accessing-vector-elements)`
			`(meditate-on test-vectors-and-ranges)`

lLt's not use clojure.test. The runner can be much simpler and provide better output. I am putting the zen message as metadata on each function. The 'runner' exits on the first failure now 2010-01-24 03:28:43 +00:00			`(println "You have achieved clojure zen. Go out into the universe and spread your newfound knowledge.")`