Mercurial > cortex

view org/test.org @ 137:39c89ae5c7d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress
author Robert McIntyre <rlm@mit.edu>
date Wed, 01 Feb 2012 23:46:31 -0700
parents a1e421d9c485
children 7e7f8d6d9ec5
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, propioception) 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   (:use clojure.contrib.def)



    15   (:require [cortex.test touch vision body hearing])



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



    17 	   com.jme3.system.AppSettings))



    18 



    19 (defn run-world



    20   "run the simulation and wait until it closes proprely."



    21   [world]



    22   (let [lock (promise)]



    23     (.enqueue



    24      world 



    25      (partial



    26       (fn [world]



    27         (.attach



    28          (.getStateManager world)



    29          (proxy [AppState] []



    30            (cleanup [] (deliver lock nil))



    31            (initialize [_ _])



    32            (isEnabled [] true)



    33            (setEnabled [_] )



    34            (stateAttached [_])



    35            (stateDetached [_])



    36            (update [_])



    37            (render [_])



    38            (isInitialized [] true)



    39            (postRender []))))



    40       world))



    41     (.start world)



    42     (deref lock)))



    43 



    44 (defn run-test



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



    46   yields, waiting until it is terminated."



    47   [test-fn-var]



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



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



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



    51 



    52 (defvar test-suite



    53   [#'cortex.test.touch/test-skin



    54    #'cortex.test.vision/test-two-eyes



    55    #'cortex.test.hearing/test-advanced-hearing



    56    #'cortex.test.body/test-proprioception



    57    #'cortex.test.body/test-motor-control]



    58   "The full test suite for all sensors/effectors.")



    59 



    60 (defn run-suite



    61   "Run the entire test-suite."



    62   []



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



    64 



    65 #+end_src



    66 



    67 #+results: body-main



    68 : #'cortex.test/run-suite



    69 



    70 



    71 * COMMENT generate Source.



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



    73 <<body-main>>



    74 #+end_src



    75 



    76