#+title: Test Suite

 #+author: Robert McIntyre

 #+email: rlm@mit.edu

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

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

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

 

 * Tests

 

 #+name: body-main

 #+begin_src clojure 

 (ns cortex.test

   (:use cortex.util)

   (:use clojure.contrib.def)

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

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

 	   com.jme3.system.AppSettings))

 

 (defn run-world

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

   [world]

   (let [lock (promise)]

     (.enqueue

      world 

      (partial

       (fn [world]

         (.attach

          (.getStateManager world)

          (proxy [AppState] []

            (cleanup [] (deliver lock nil))

            (initialize [_ _])

            (isEnabled [] true)

            (setEnabled [_] )

            (stateAttached [_])

            (stateDetached [_])

            (update [_])

            (render [_])

            (isInitialized [] true)

            (postRender []))))

       world))

     (.start world)

     (deref lock)))

 

 (defn run-test

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

   yields, waiting until it is terminated."

   [test-fn-var]

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

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

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

 

 (defvar test-suite

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

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

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

    #'cortex.test.body/test-proprioception

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

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

 

 (defn run-suite

   "Run the entire test-suite."

   []

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

 

 #+end_src

 

 #+results: body-main

 : #'cortex.test/run-suite

 

 

 * COMMENT generate Source.

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

 <<body-main>>

 #+end_src