diff --git a/collects/2htdp/TESTME.txt b/collects/2htdp/TESTME.txt
new file mode 100644
index 0000000000..ef9bcbd875
--- /dev/null
+++ b/collects/2htdp/TESTME.txt
@@ -0,0 +1,34 @@
+2htdp comes with three different kinds of tests: 
+
+1. tests 
+   This directory contains end-to-end tests for big-bang and universe.
+
+   These tests are mostly automatic except for two of them which expect 
+   some interaction (move mouse, hold key). 
+   
+   The expected output is mostly some sign that the test is 'done' or 
+   that no random tests failed or some cpu time. Failures are indicated
+   with the word failure. 
+
+   To execute these tests, run 
+
+      $ ./xtest in this directory 
+
+2. utest, uchat
+   These two directories contain end-to-end universe program tests. 
+
+   To execute these tests, run 
+   
+     $ ./xrun in the respective directory 
+
+   In utest, xrun pops up two world screens that show a ball moving in one
+   of two canvases. Kill one world after another, then stop the universe. 
+   (It may also pop up additional world state and universe state screens.) 
+
+   In uchat, xrun pops up two chat room screens. Type in one, see the text
+   appear in the other when you hit return. 
+
+3. tests-failed 
+   This directory contains tests that are currently expected to fail. 
+
+   
diff --git a/collects/2htdp/xtest b/collects/2htdp/xtest
new file mode 100755
index 0000000000..9ba11282ef
--- /dev/null
+++ b/collects/2htdp/xtest
@@ -0,0 +1,36 @@
+#!/bin/sh
+
+run() {
+  exe="gracket"
+  if [ "x$1" = "x-t" ]; then exe="racket"; shift; fi
+  "$exe" "$1"
+  echo "done:--- $1 ---"
+  echo ""
+}
+
+cd tests 
+
+run bad-draw.rkt
+run error-in-tick.rkt
+run error-in-draw.rkt
+run -t batch-io.rkt
+run clause-once.rkt
+run full-scene-visible.rkt
+run image-too-large.rkt
+run image-equality-performance-htdp.rkt
+run image-equality-performance.rkt
+run mouse-evt.rkt
+run on-tick-defined.rkt
+run perform-robby.rkt
+run profile-robby.rkt
+run release.rkt
+run stop.rkt
+run test-image.rkt
+run ufo-rename.rkt
+run server-rename.rkt
+run world0-stops.rkt
+run record.rkt
+run record-stop-when.rkt
+run stop-when-crash.rkt
+run on-tick-universe-with-limit.rkt
+run on-tick-with-limit.rkt