From 5a8479b9982c5a5f248b314f365fe42218e3bf24 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@ccs.neu.edu>
Date: Mon, 18 Aug 2014 23:32:08 -0400
Subject: [PATCH] separated automatic from manual test so that drdr can run the
 former

---
 pkgs/htdp-pkgs/htdp-test/2htdp/xmanual | 17 +++++++++++++++++
 pkgs/htdp-pkgs/htdp-test/2htdp/xtest   |  4 ----
 2 files changed, 17 insertions(+), 4 deletions(-)
 create mode 100644 pkgs/htdp-pkgs/htdp-test/2htdp/xmanual

diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/xmanual b/pkgs/htdp-pkgs/htdp-test/2htdp/xmanual
new file mode 100644
index 0000000000..975681e03f
--- /dev/null
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/xmanual
@@ -0,0 +1,17 @@
+#!/bin/sh
+
+run() {
+  exe="gracket"
+  if [ "x$1" = "x-t" ]; then exe="racket"; shift; fi
+  "$exe" "$1"
+  echo "done:--- $1 ---"
+  echo ""
+}
+
+cd tests 
+
+run random-seed-works.rkt
+run mouse-evt.rkt
+run release.rkt
+run on-release-no-key.rkt
+run pad1.rkt
diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/xtest b/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
index af501ae789..3ec5b73932 100755
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
@@ -10,7 +10,6 @@ run() {
 
 cd tests 
 
-run random-seed-works.rkt
 run bitmap-as-image-in-universe.rkt
 run key-error.rkt
 run to-draw-error.rkt
@@ -28,11 +27,9 @@ 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
@@ -45,7 +42,6 @@ run stop-when-crash.rkt
 run stop-when-not-boolean.rkt
 run on-tick-universe-with-limit.rkt
 run on-tick-with-limit.rkt
-run on-release-no-key.rkt
 run struct-universe.rkt
 run universe-receive.rkt
 run universe-restart.rkt