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