Fix tests when running on linux

2013-11-03 08:39:05 -06:00 · 2013-11-03 08:39:05 -06:00 · ab8c4b4375
commit ab8c4b4375
parent 8a7d828cc5
1 changed files with 7 additions and 1 deletions
--- 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)