fringe

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!

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

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