From 733908db09a778b38e350a89551d00c4b1f357d8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 15 Jul 1998 15:54:43 +0000
Subject: [PATCH] .

original commit: 3a50585cdda43fb1ac988c4dd3cd612a28291e09
---
 collects/tests/mred/gauge-steps.txt | 34 +++++++++++++++++++++++++++++
 collects/tests/mred/item.ss         |  1 +
 2 files changed, 35 insertions(+)
 create mode 100644 collects/tests/mred/gauge-steps.txt

diff --git a/collects/tests/mred/gauge-steps.txt b/collects/tests/mred/gauge-steps.txt
new file mode 100644
index 00000000..2b4695f6
--- /dev/null
+++ b/collects/tests/mred/gauge-steps.txt
@@ -0,0 +1,34 @@
+
+The gauge should be initially empty (i.e., set to 0), and
+  have a maximum value of 10 (although there's no indication
+  of the maximum).
+
+Click "+". The gauge should go up by one.
+
+Click "-". It should go back down to zero.
+
+Click "+" five times. The gauge should be at the halfway point.
+
+Click "-" ten times. Click "+" once. The gauge should be at one.
+
+Click "+" twelve times. Click "-" once. The gauge should be at nine.
+
+Click "-" four times. The gauge should be at the halfway point.
+
+Click "Bigger". The range is now 11 instead of 10, so the gauge
+ should be below halfway.
+
+Click "Smaller". The range is back to 10, so the gauge should be at
+ the halfway point.
+
+Click "Smaller" five times. The range is now 5, so the gauge should
+ be full.
+
+Click "Smaller" once more. The range is now 4, so the gauge value
+ should be 4 also.
+
+Click "Bigger" and the gauge should be 80% full.
+
+Click "Smaller" six times. The minimum gauge range is 1, so click
+ "Bigger" once and the gauge should be at halfway.
+
diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 2c40bfa8..6a2f2593 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -1243,6 +1243,7 @@
   (move -1 "-")
   (size 1 "Bigger")
   (size -1 "Smaller")
+  (instructions p "gauge-steps.txt")
   (send f show #t))
 
 (define (text-frame mred:text% style)