From 490f40f8cfbd4f2c77014743bf51ff688f1ef607 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 Dec 2016 13:39:02 -0600 Subject: [PATCH] add another test case --- gui-test/framework/tests/frame.rkt | 1 + 1 file changed, 1 insertion(+) 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)