add another test case

2016-12-22 13:39:02 -06:00 · 2016-12-22 13:39:02 -06:00 · 490f40f8cf
commit 490f40f8cf
parent 62a70a6593
1 changed files with 1 additions and 0 deletions
--- 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)