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

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

Browse Source 
svn: r18154
This commit is contained in:
Robby Findler 2010-02-18 20:36:03 +00:00
parent 202c056c53
commit 8424dea37b
1 changed files with 88 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/framework/group-test.ss
View File

@ -94,7 +94,9 @@
frames) frames)
(map (lambda (x) (send x get-label)) frames))))) (map (lambda (x) (send x get-label)) frames)))))
(test (when (eq? (system-type) 'macosx)
(test
'windows-menu 'windows-menu
(lambda (x) (lambda (x)
(equal? x (append windows-menu-prefix (list "first" "test")))) (equal? x (append windows-menu-prefix (list "first" "test"))))
@ -112,7 +114,7 @@
get-items)) get-items))
(send (get-top-level-focus-window) close))))) (send (get-top-level-focus-window) close)))))
(test (test
'windows-menu-unshown 'windows-menu-unshown
(lambda (x) (lambda (x)
(equal? x (append windows-menu-prefix (list "first" "test")))) (equal? x (append windows-menu-prefix (list "first" "test"))))
@ -131,7 +133,7 @@
get-items)) get-items))
(send (get-top-level-focus-window) close))))) (send (get-top-level-focus-window) close)))))
(test (test
'windows-menu-sorted1 'windows-menu-sorted1
(lambda (x) (lambda (x)
(equal? x (append windows-menu-prefix (list "aaa" "bbb" "first")))) (equal? x (append windows-menu-prefix (list "aaa" "bbb" "first"))))
@ -156,7 +158,7 @@
(send x close))) (send x close)))
frames)))))) frames))))))
(test (test
'windows-menu-sorted2 'windows-menu-sorted2
(lambda (x) (lambda (x)
(equal? x (append windows-menu-prefix (list "aaa" "bbb" "first")))) (equal? x (append windows-menu-prefix (list "aaa" "bbb" "first"))))
@ -180,3 +182,4 @@
(unless (equal? (send x get-label) "first") (unless (equal? (send x get-label) "first")
(send x close))) (send x close)))
frames)))))) frames))))))
)