avoid doing mac os x-specific tests unless under mac os x

svn: r18154
2010-02-18 20:36:03 +00:00 · 2010-02-18 20:36:03 +00:00 · 8424dea37b
commit 8424dea37b
parent 202c056c53
1 changed files with 88 additions and 85 deletions
--- a/collects/tests/framework/group-test.ss
+++ b/collects/tests/framework/group-test.ss
@ -94,6 +94,8 @@
                 frames)
       (map (lambda (x) (send x get-label)) frames)))))

+(when (eq? (system-type) 'macosx)
+  
  (test
   'windows-menu
   (lambda (x)
@ -180,3 +182,4 @@
                             (unless (equal? (send x get-label) "first")
                               (send x close)))
                           frames))))))
+  )