From e72671fa7743c90a8c2050d70d9752546661ad61 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Tue, 18 Oct 2011 15:10:33 -0400
Subject: [PATCH] fringe

---
 tests/more-tests/fringe.expected | 34 ++++++++++++++++++++++++++++++++
 tests/more-tests/fringe.rkt      | 10 ----------
 tests/run-more-tests.rkt         |  1 +
 3 files changed, 35 insertions(+), 10 deletions(-)
 create mode 100644 tests/more-tests/fringe.expected

diff --git a/tests/more-tests/fringe.expected b/tests/more-tests/fringe.expected
new file mode 100644
index 0000000..6a0ab42
--- /dev/null
+++ b/tests/more-tests/fringe.expected
@@ -0,0 +1,34 @@
+1
+2
+3
+4
+5
+Done!
+a
+Done!
+a
+b
+Done!
+a
+b
+c
+Done!
+a
+b
+c
+Done!
+a
+b
+c
+d
+Done!
+a
+b
+c
+d
+Done!
+a
+b
+c
+d
+Done!
diff --git a/tests/more-tests/fringe.rkt b/tests/more-tests/fringe.rkt
index 64851c4..3f8703f 100644
--- a/tests/more-tests/fringe.rkt
+++ b/tests/more-tests/fringe.rkt
@@ -26,16 +26,6 @@
     (displayln "Done!"))
   (generator value on-success on-fail))
 
-
-(define (step-structure generator value)
-  (define (on-success elt restart)
-    (displayln elt)
-    (void (read-line))
-    (restart))
-  (define (on-fail)
-    (displayln "Done!"))
-  (generator value on-success on-fail))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (print-structure list-fringe '(1 2 3 4 5))
diff --git a/tests/run-more-tests.rkt b/tests/run-more-tests.rkt
index ee05a85..409df25 100644
--- a/tests/run-more-tests.rkt
+++ b/tests/run-more-tests.rkt
@@ -24,6 +24,7 @@
 (test "more-tests/colors.rkt")
 (test "more-tests/images.rkt")
 (test "more-tests/lists.rkt")
+(test "more-tests/fringe.rkt")
 (test "more-tests/simple-apply.rkt")
 (test "more-tests/isolating-bug.rkt")
 (test "more-tests/hello-bf.rkt")