diff --git a/gui-test/framework/tests/frame.rkt b/gui-test/framework/tests/frame.rkt index 0a0f71ce..936bbe55 100644 --- a/gui-test/framework/tests/frame.rkt +++ b/gui-test/framework/tests/frame.rkt @@ -193,6 +193,7 @@ (check-equal? (try plain-f "aa" "a" "b") "bb") (check-equal? (try plain-f "abab" "ab" "c") "cc") (check-equal? (try plain-f "abb" "ab" "a") "ab") + (check-equal? (try plain-f "babbbcb" "b" "") "ac") (send plain-f close) (define (make-no-change-early-f)