suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Robby Findler 2016-12-24 12:25:56 -06:00
parent 5a09d2b825
commit 84433c528c
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui-test/framework/tests/frame.rkt
View File

@ -175,8 +175,13 @@
(queue-callback (λ () (semaphore-post s)) #f) (queue-callback (λ () (semaphore-post s)) #f)
(semaphore-wait s)) (semaphore-wait s))
(test:menu-select "Edit" "Select All")
(cond
[(equal? replace-string "")
(test:keystroke #\backspace)]
[else
(for ([c (in-string replace-string)]) (for ([c (in-string replace-string)])
(test:keystroke c)) (test:keystroke c))])
(queue-callback (queue-callback
(λ () (λ ()