diff --git a/collects/tests/stepper/find-tag-test.rkt b/collects/tests/stepper/find-tag-test.rkt index 39a648a64e..0a826a04b5 100644 --- a/collects/tests/stepper/find-tag-test.rkt +++ b/collects/tests/stepper/find-tag-test.rkt @@ -15,6 +15,9 @@ (check-equal? (find-tag/end "") "a") (check-equal? (find-tag/end "") "abcdef") (check-equal? (find-tag/end "") "abcdef") +(check-equal? (find-tag/end "") "abcdef") +(check-equal? (find-tag/end "") "b") +(check-equal? (find-tag/end "") "b") (check-equal? (find-tag/end "") #f) @@ -24,3 +27,11 @@ (check-equal? (find-tag/end "") #f) (check-equal? (find-tag/end "<>") #f) + +;; would be nice to make these two tests work, but +;; it isn't clear what the right predicate is when +;; searching backwards to get thse right but +;; not also get this one wrong: +;; " +; (check-equal? (find-tag/end "") #f) +; (check-equal? (find-tag/end "") #f)