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!))