lasercutter: src/clojure/contrib/test_contrib/datalog/tests/test.clj annotate

added clojure source goodness

rev	line source
rlm@10	1 ;; Copyright (c) Jeffrey Straszheim. All rights reserved. The use and
rlm@10	2 ;; distribution terms for this software are covered by the Eclipse Public
rlm@10	3 ;; License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can
rlm@10	4 ;; be found in the file epl-v10.html at the root of this distribution. By
rlm@10	5 ;; using this software in any fashion, you are agreeing to be bound by the
rlm@10	6 ;; terms of this license. You must not remove this notice, or any other,
rlm@10	7 ;; from this software.
rlm@10	8 ;;
rlm@10	9 ;; test.clj
rlm@10	10 ;;
rlm@10	11 ;; A Clojure implementation of Datalog -- Tests
rlm@10	12 ;;
rlm@10	13 ;; straszheimjeffrey (gmail)
rlm@10	14 ;; Created 11 Feburary 2009
rlm@10	15
rlm@10	16 (ns clojure.contrib.datalog.tests.test
rlm@10	17 (:use [clojure.test :only (run-tests)])
rlm@10	18 (:gen-class))
rlm@10	19
rlm@10	20 (def test-names [:test-util
rlm@10	21 :test-database
rlm@10	22 :test-literals
rlm@10	23 :test-rules
rlm@10	24 :test-magic
rlm@10	25 :test-softstrat])
rlm@10	26
rlm@10	27 (def test-namespaces
rlm@10	28 (map #(symbol (str "clojure.contrib.datalog.tests." (name %)))
rlm@10	29 test-names))
rlm@10	30
rlm@10	31 (defn run
rlm@10	32 "Runs all defined tests"
rlm@10	33 []
rlm@10	34 (println "Loading tests...")
rlm@10	35 (apply require :reload-all test-namespaces)
rlm@10	36 (apply run-tests test-namespaces))
rlm@10	37
rlm@10	38 (defn -main
rlm@10	39 "Run all defined tests from the command line"
rlm@10	40 [& args]
rlm@10	41 (run)
rlm@10	42 (System/exit 0))
rlm@10	43
rlm@10	44
rlm@10	45 ;; End of file

Mercurial > lasercutter