Mercurial > cortex

comparison org/test.org @ 317:bb3f8a4af87f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed references to defvar from clojure.contrib.def since the def from 1.4 now allows for docstrings
author Robert McIntyre <rlm@mit.edu>
date Tue, 28 Feb 2012 14:04:21 -0600
parents 7e7f8d6d9ec5
children 702b5c78c2de
comparison
equal deleted inserted replaced
316:2c7fbcbd5ebb 317:bb3f8a4af87f
9 9
10 #+name: body-main 10 #+name: body-main
11 #+begin_src clojure 11 #+begin_src clojure
12 (ns cortex.test 12 (ns cortex.test
13 (:use cortex.util) 13 (:use cortex.util)
14 (:use clojure.contrib.def)
15 (:require [cortex.test touch vision body hearing]) 14 (:require [cortex.test touch vision body hearing])
16 (:import com.jme3.app.state.AppState 15 (:import com.jme3.app.state.AppState
17 com.jme3.system.AppSettings)) 16 com.jme3.system.AppSettings))
18 17
19 (defn run-world 18 (defn run-world
47 [test-fn-var] 46 [test-fn-var]
48 (println-repl "\n ****************\n") 47 (println-repl "\n ****************\n")
49 (println-repl (:doc (meta test-fn-var))) 48 (println-repl (:doc (meta test-fn-var)))
50 (run-world ((deref test-fn-var)))) 49 (run-world ((deref test-fn-var))))
51 50
52 (defvar test-suite 51 (def test-suite
52 "The full test suite for all sensors/effectors."
53 [#'cortex.test.touch/test-skin 53 [#'cortex.test.touch/test-skin
54 #'cortex.test.vision/test-two-eyes 54 #'cortex.test.vision/test-two-eyes
55 #'cortex.test.hearing/test-advanced-hearing 55 #'cortex.test.hearing/test-advanced-hearing
56 #'cortex.test.body/test-proprioception 56 #'cortex.test.body/test-proprioception
57 #'cortex.test.body/test-motor-control] 57 #'cortex.test.body/test-motor-control])
58 "The full test suite for all sensors/effectors.")
59 58
60 (defn run-suite 59 (defn run-suite
61 "Run the entire test-suite." 60 "Run the entire test-suite."
62 [] 61 []
63 (dorun (map run-test test-suite))) 62 (dorun (map run-test test-suite)))