Mercurial > cortex

comparison org/touch.org @ 321:702b5c78c2de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
320:52de8a36edde 321:702b5c78c2de
529 #+name: test-touch-1 529 #+name: test-touch-1
530 #+begin_src clojure 530 #+begin_src clojure
531 (in-ns 'cortex.test.touch) 531 (in-ns 'cortex.test.touch)
532 532
533 (defn test-basic-touch 533 (defn test-basic-touch
534 "Testing touch:
535 You should see a cube fall onto a table. There is a cross-shaped
536 display which reports the cube's sensation of touch. This display
537 should change when the cube hits the table, and whenever you hit
538 the cube with balls.
539
540 Keys:
541 <space> : fire ball"
534 ([] (test-basic-touch false)) 542 ([] (test-basic-touch false))
535 ([record?] 543 ([record?]
536 (let [the-cube (doto (touch-cube) (body!)) 544 (let [the-cube (doto (touch-cube) (body!))
537 touch (touch! the-cube) 545 touch (touch! the-cube)
538 touch-display (view-touch)] 546 touch-display (view-touch)]
630 #+name: test-touch-2 638 #+name: test-touch-2
631 #+begin_src clojure 639 #+begin_src clojure
632 (in-ns 'cortex.test.touch) 640 (in-ns 'cortex.test.touch)
633 641
634 (defn test-worm-touch 642 (defn test-worm-touch
643 "Testing touch:
644 You will see the worm fall onto a table. There is a display which
645 reports the worm's sense of touch. It should change when the worm
646 hits the table and when you hit it with balls.
647
648 Keys:
649 <space> : fire ball"
635 ([] (test-worm-touch false)) 650 ([] (test-worm-touch false))
636 ([record?] 651 ([record?]
637 (let [the-worm (doto (worm) (body!)) 652 (let [the-worm (doto (worm) (body!))
638 touch (touch! the-worm) 653 touch (touch! the-worm)
639 touch-display (view-touch)] 654 touch-display (view-touch)]