From de52b148a292f6120b032cdf245e9061fdc55f4d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 21 Jun 2002 02:01:54 +0000 Subject: [PATCH] .. original commit: 75e1fabb6fbd48bb3cb9330054172a58c5b70664 --- collects/tests/framework/group-test.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/framework/group-test.ss b/collects/tests/framework/group-test.ss index ca9fce64..50d7527e 100644 --- a/collects/tests/framework/group-test.ss +++ b/collects/tests/framework/group-test.ss @@ -87,7 +87,7 @@ (test 'windows-menu (lambda (x) - (equal? x (list "Bring Frame to Front..." #f "test"))) + (equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "test"))) (lambda () (send-sexp-to-mred '(let ([frame (make-object frame:basic% "test")]) @@ -103,7 +103,7 @@ (test 'windows-menu-unshown (lambda (x) - (equal? x (list "Bring Frame to Front..." #f "test"))) + (equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "test"))) (lambda () (send-sexp-to-mred '(let ([frame1 (make-object frame:basic% "test")] @@ -120,7 +120,7 @@ (test 'windows-menu-sorted1 (lambda (x) - (equal? x (list "Bring Frame to Front..." #f "aaa" "bbb"))) + (equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "aaa" "bbb"))) (lambda () (send-sexp-to-mred '(let ([frame (make-object frame:basic% "aaa")]) @@ -141,7 +141,7 @@ (test 'windows-menu-sorted2 (lambda (x) - (equal? x (list "Bring Frame to Front..." #f "aaa" "bbb"))) + (equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "aaa" "bbb"))) (lambda () (send-sexp-to-mred '(let ([frame (make-object frame:basic% "bbb")])