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

Fix tests when running on linux

Browse Source
This commit is contained in:
Robby Findler 2013-11-03 08:39:05 -06:00
parent 8a7d828cc5
commit ab8c4b4375
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt
View File

@ -189,7 +189,13 @@ This test checks:
(define new-tabs2 (send drr2 get-tabs)) (define new-tabs2 (send drr2 get-tabs))
(check-equal? new-tabs2 tabs) (check-equal? new-tabs2 tabs)
(test:menu-select "File" (if (eq? (system-type) 'unix) "Close" "Close Window")) (cond
[(eq? (system-type) 'unix)
(for ([_ (in-range (length tabs))])
(test:menu-select "File" "Close"))]
[else
(test:menu-select "File" "Close Window")])
(wait-for-new-frame drr2)) (wait-for-new-frame drr2))
(define (check-log-panel drr) (define (check-log-panel drr)