fix replace-all test suite for when the replace string changes

2016-12-24 12:25:56 -06:00 · 2016-12-24 12:25:56 -06:00 · 84433c528c
commit 84433c528c
parent 5a09d2b825
1 changed files with 7 additions and 2 deletions
--- 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
       (λ ()