fix case in restart test

svn: r3671
This commit is contained in:
Matthew Flatt 2006-07-10 13:33:47 +00:00
parent 8b18795304
commit aad04a274b

View File

@ -16,9 +16,9 @@
(restart-mzscheme pre values post void)
(get-output-string s)))))])
(test-in-out #("ignore-me") #("-qm") "(current-command-line-arguments)" "#0()")
(test-in-out #("") #("-qm") "'Hello" "hello")
(test-in-out #("-g") #("-qm") "'Hello" "Hello")
(test-in-out #("") #("-qmg") "'Hello" "Hello"))
(test-in-out #("") #("-qm") "'Hello" "Hello")
(test-in-out #("-G") #("-qm") "'Hello" "hello")
(test-in-out #("") #("-qmG") "'Hello" "hello"))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;