From 84433c528c15e2e6e429a87ee2aca88e6618619b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 24 Dec 2016 12:25:56 -0600
Subject: [PATCH] fix replace-all test suite for when the replace string
 changes

---
 gui-test/framework/tests/frame.rkt | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gui-test/framework/tests/frame.rkt b/gui-test/framework/tests/frame.rkt
index 936bbe55..74458b59 100644
--- a/gui-test/framework/tests/frame.rkt
+++ b/gui-test/framework/tests/frame.rkt
@@ -175,8 +175,13 @@
         (queue-callback (λ () (semaphore-post s)) #f)
         (semaphore-wait s))
 
-      (for ([c (in-string replace-string)])
-        (test:keystroke c))
+      (test:menu-select "Edit" "Select All")
+      (cond
+        [(equal? replace-string "")
+         (test:keystroke #\backspace)]
+        [else
+         (for ([c (in-string replace-string)])
+           (test:keystroke c))])
 
       (queue-callback
        (λ ()