Mercurial > cortex
comparison org/hearing.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 | e6233ef22a80 |
comparison
equal
deleted
inserted
replaced
| 320:52de8a36edde | 321:702b5c78c2de |
|---|---|
| 1019 #+name: test-hearing-2 | 1019 #+name: test-hearing-2 |
| 1020 #+begin_src clojure | 1020 #+begin_src clojure |
| 1021 (in-ns 'cortex.test.hearing) | 1021 (in-ns 'cortex.test.hearing) |
| 1022 | 1022 |
| 1023 (defn test-worm-hearing | 1023 (defn test-worm-hearing |
| 1024 "Testing hearing: | |
| 1025 You will see the worm fall onto a table. There is a long | |
| 1026 horizontal bar which shows the waveform of whatever the worm is | |
| 1027 hearing. When you play a sound, the bar should display a waveform. | |
| 1028 | |
| 1029 Keys: | |
| 1030 <enter> : play sound" | |
| 1031 | |
| 1024 ([] (test-worm-hearing false)) | 1032 ([] (test-worm-hearing false)) |
| 1025 ([record?] | 1033 ([record?] |
| 1026 (let [the-worm (doto (worm) (body!)) | 1034 (let [the-worm (doto (worm) (body!)) |
| 1027 hearing (hearing! the-worm) | 1035 hearing (hearing! the-worm) |
| 1028 hearing-display (view-hearing) | 1036 hearing-display (view-hearing) |