# HG changeset patch # User Robert McIntyre # Date 1323667948 25200 # Node ID a1e421d9c485191d8aba1577ae85619f8e5dab1b # Parent 0235c32152af948359edbf2225a8e819a63defbf improved test suite diff -r 0235c32152af -r a1e421d9c485 org/body.org --- a/org/body.org Sun Dec 11 22:22:01 2011 -0700 +++ b/org/body.org Sun Dec 11 22:32:28 2011 -0700 @@ -268,6 +268,7 @@ "key-v" (fn [_ pressed?] (reset! roll-left? pressed?)) "key-b" (fn [_ pressed?] (reset! roll-right? pressed?))}) (fn [world] + (.setTimer world (NanoTimer.)) (set-gravity world (Vector3f. 0 0 0)) (.setMoveSpeed (.getFlyByCamera world) 50) (.setRotationSpeed (.getFlyByCamera world) 50) diff -r 0235c32152af -r a1e421d9c485 org/test.org --- a/org/test.org Sun Dec 11 22:22:01 2011 -0700 +++ b/org/test.org Sun Dec 11 22:32:28 2011 -0700 @@ -57,7 +57,7 @@ #'cortex.test.body/test-motor-control] "The full test suite for all sensors/effectors.") -(defn run-test-suite +(defn run-suite "Run the entire test-suite." [] (dorun (map run-test test-suite))) @@ -65,7 +65,7 @@ #+end_src #+results: body-main -: #'cortex.test/run-test-suite +: #'cortex.test/run-suite * COMMENT generate Source.