svn: r11075

collects/tests/drscheme/io.ss

@@ -63,7 +63,7 @@ add this test:
     
     ;; this test has to be first to test an uninitialized state of the port
     (check-output "(port-next-location (current-input-port))" 
-                  (list `("1\n0\n1" ,value-style)
+                  (list `("1\n0\n1" |ports value|)
                         prompt))
     
     (check-output "(display 1)" (list (list "1" output-style) prompt))
@@ -184,7 +184,7 @@ add this test:
   
   (define drs-frame (wait-for-drscheme-frame))
   (define interactions-text (send drs-frame get-interactions-text))
-  (set-language-level! (list "Pretty Big (includes MrEd and Advanced Student)"))
+  (set-language-level! (list #rx"Pretty Big"))
   
   (define (run-test)
     (output-err-port-checking) ;; must come first

collects/tests/drscheme/language-test.ss

@@ -45,7 +45,7 @@ the settings above should match r5rs
 ;                                                                               
 
 (define (pretty-big)
-  (parameterize ([language (list "Pretty Big (includes MrEd and Advanced Student)")])
+  (parameterize ([language (list #rx"Pretty Big")])
     
     (check-top-of-repl)
     

collects/tests/drscheme/repl-test.ss

@@ -1302,7 +1302,7 @@ This produces an ACK message
         (printf "tests finished: ~a failed out of ~a total\n" failures tests)))
   
   (define (run-test-in-language-level raw?)
-    (let ([level (list "Pretty Big (includes MrEd and Advanced Student)")])
+    (let ([level (list #rx"Pretty Big")])
       (printf "running tests ~a debugging\n" (if raw? "without" "with"))
       (if raw?
           (begin