Mercurial > cortex

view org/test.org @ 369:2d8a8422ff59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
beginning extensive literature review.
author Robert McIntyre <rlm@mit.edu>
date Sun, 10 Mar 2013 18:17:53 +0000
parents 5c398b65d01b
children 4c37d39a3cf6
line wrap: on
line source
     1 #+title: Test Suite



     2 #+author: Robert McIntyre



     3 #+email: rlm@mit.edu



     4 #+description: Simulating a body (movement, touch, proprioception) in jMonkeyEngine3.



     5 #+SETUPFILE: ../../aurellem/org/setup.org



     6 #+INCLUDE: ../../aurellem/org/level-0.org



     7 



     8 * Tests



     9 



    10 #+name: body-main



    11 #+begin_src clojure 



    12 (ns cortex.test



    13   (:use cortex.util)



    14   (:require [cortex.test



    15              body



    16              vision



    17              hearing



    18              touch



    19              proprioception



    20              movement



    21 



    22              ])



    23   (:import com.jme3.app.state.AppState



    24 	   com.jme3.system.AppSettings)



    25   (:import (com.jme3.math Triangle Vector3f Vector2f Ray Matrix4f)))



    26 



    27 (defn run-world



    28   "run the simulation and wait until it closes properly."



    29   [world]



    30   (let [lock (promise)]



    31     (.enqueue



    32      world 



    33      (partial



    34       (fn [world]



    35         (.attach



    36          (.getStateManager world)



    37          (proxy [AppState] []



    38            (cleanup [] (deliver lock nil))



    39            (initialize [_ _])



    40            (isEnabled [] true)



    41            (setEnabled [_] )



    42            (stateAttached [_])



    43            (stateDetached [_])



    44            (update [_])



    45            (render [_])



    46            (isInitialized [] true)



    47            (postRender []))))



    48       world))



    49     (.start world)



    50     (deref lock)))



    51 



    52 (defn run-test



    53   "print the docstring for the test, then run the simulation which it



    54   yields, waiting until it is terminated."



    55   [test-fn-var]



    56   (println-repl (:doc (meta test-fn-var)))



    57   (println-repl "\n ****************\n")



    58   (run-world ((deref test-fn-var))))



    59 



    60 (def test-suite



    61   "The full test suite for all sensors/effectors."



    62   [#'cortex.test.body/test-worm



    63 



    64    #'cortex.test.vision/test-pipeline



    65    #'cortex.test.vision/test-worm-vision



    66 



    67    #'cortex.test.hearing/test-java-hearing



    68    #'cortex.test.hearing/test-worm-hearing



    69    



    70    #'cortex.test.touch/test-basic-touch



    71    #'cortex.test.touch/test-worm-touch



    72 



    73    #'cortex.test.proprioception/test-proprioception



    74 



    75    #'cortex.test.movement/test-worm-movement



    76    ])



    77    



    78    



    79    



    80 (defn run-suite



    81   "Run the entire test-suite."



    82   []



    83   (load-bullet)



    84   (println-repl "\n ****************\n")



    85   (dorun (map run-test test-suite))



    86   (println "all tests complete."))



    87          



    88 



    89 #+end_src



    90 



    91 #+results: body-main



    92 : #'cortex.test/run-suite



    93 



    94 



    95 * COMMENT generate Source.



    96 #+begin_src clojure :tangle ../src/cortex/test.clj



    97 <<body-main>>



    98 #+end_src



    99 



   100