Mercurial > cortex
diff org/touch.org @ 321:702b5c78c2de
gathered all the tests into (run-suite), which should make testing vastly easier.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Tue, 08 May 2012 08:22:19 -0500 |
parents | bb3f8a4af87f |
children | 5c398b65d01b |
line wrap: on
line diff
1.1 --- a/org/touch.org Thu Mar 01 06:24:17 2012 -0700 1.2 +++ b/org/touch.org Tue May 08 08:22:19 2012 -0500 1.3 @@ -531,6 +531,14 @@ 1.4 (in-ns 'cortex.test.touch) 1.5 1.6 (defn test-basic-touch 1.7 + "Testing touch: 1.8 + You should see a cube fall onto a table. There is a cross-shaped 1.9 + display which reports the cube's sensation of touch. This display 1.10 + should change when the cube hits the table, and whenever you hit 1.11 + the cube with balls. 1.12 + 1.13 + Keys: 1.14 + <space> : fire ball" 1.15 ([] (test-basic-touch false)) 1.16 ([record?] 1.17 (let [the-cube (doto (touch-cube) (body!)) 1.18 @@ -632,6 +640,13 @@ 1.19 (in-ns 'cortex.test.touch) 1.20 1.21 (defn test-worm-touch 1.22 + "Testing touch: 1.23 + You will see the worm fall onto a table. There is a display which 1.24 + reports the worm's sense of touch. It should change when the worm 1.25 + hits the table and when you hit it with balls. 1.26 + 1.27 + Keys: 1.28 + <space> : fire ball" 1.29 ([] (test-worm-touch false)) 1.30 ([record?] 1.31 (let [the-worm (doto (worm) (body!))