Mercurial > cortex
comparison org/test.org @ 58:25142dad240a
created test suite
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 19 Nov 2011 23:42:21 -0700 |
| parents | |
| children | 1381a6ebd08b |
comparison
equal
deleted
inserted
replaced
| 57:37a3256e1ed3 | 58:25142dad240a |
|---|---|
| 1 #+title: The BODY!!! | |
| 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 * Body | |
| 9 | |
| 10 #+srcname: body-main | |
| 11 #+begin_src clojure | |
| 12 (ns test.all | |
| 13 (:require [test touch vision]) | |
| 14 (:import com.jme3.app.state.AppState | |
| 15 com.jme3.system.AppSettings)) | |
| 16 | |
| 17 (defn run-world | |
| 18 "run the simulation and wait until it closes proprely" | |
| 19 [world] | |
| 20 (let [lock (promise)] | |
| 21 (.enqueue | |
| 22 world | |
| 23 (partial | |
| 24 (fn [world] | |
| 25 (.attach | |
| 26 (.getStateManager world) | |
| 27 (proxy [AppState] [] | |
| 28 (cleanup [] (deliver lock nil)) | |
| 29 (initialize [_ _]) | |
| 30 (isEnabled [] true) | |
| 31 (setEnabled [_] ) | |
| 32 (stateAttached [_]) | |
| 33 (stateDetached [_]) | |
| 34 (update [_]) | |
| 35 (render [_]) | |
| 36 (isInitialized [] true) | |
| 37 (postRender [])))) | |
| 38 world)) | |
| 39 (.start world) | |
| 40 (deref lock))) | |
| 41 | |
| 42 (defn test-all [] | |
| 43 (println | |
| 44 "***************\n" | |
| 45 "Testing touch:\n" | |
| 46 "you should see a ball which responds to the table\n" | |
| 47 "and whatever balls hit it.\n") | |
| 48 (run-world (test.touch/test-skin)) | |
| 49 (println | |
| 50 "***************\n" | |
| 51 "Testing vision:\n" | |
| 52 "You should see a rotating cube, and two windows,\n" | |
| 53 "each displaying a different view of the cube.\n") | |
| 54 (run-world (test.vision/test-two-eyes)) | |
| 55 (println | |
| 56 "***************\n" | |
| 57 "Testing hearing:\n" | |
| 58 "You should see a blue sphere flying around several\n" | |
| 59 "cubes. As the sphere approaches each cube, it turns\n" | |
| 60 "green.\n") | |
| 61 (run-world | |
| 62 (doto (com.aurellem.capture.examples.Advanced.) | |
| 63 (.setSettings | |
| 64 (doto (AppSettings. true) | |
| 65 (.setAudioRenderer "Send"))) | |
| 66 (.setShowSettings false) | |
| 67 (.setPauseOnLostFocus false)))) | |
| 68 #+end_src | |
| 69 | |
| 70 | |
| 71 | |
| 72 | |
| 73 * COMMENT generate Source. | |
| 74 #+begin_src clojure :tangle ../src/test/all.clj | |
| 75 <<body-main>> | |
| 76 #+end_src | |
| 77 | |
| 78 |