From ab8c4b4375f41cb10949f45909f85781af6c215b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 3 Nov 2013 08:39:05 -0600 Subject: [PATCH] Fix tests when running on linux --- .../tests/drracket/no-write-and-frame-leak.rkt | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt b/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt index f6a4fb9f22..c3034cf15f 100644 --- a/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt +++ b/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt @@ -189,7 +189,13 @@ This test checks: (define new-tabs2 (send drr2 get-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)) (define (check-log-panel drr)