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