Mercurial > lasercutter

     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
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children