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

updated tests for newest stuff

Browse Source 
svn: r11908
This commit is contained in:
Robby Findler 2008-09-29 21:06:13 +00:00
parent 025c1d2637
commit 07cfcb4f07
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
collects/tests/drscheme/repl-test.ss
View File

@ -133,12 +133,12 @@ This produces an ACK message
void) void)
(mktest "(" (mktest "("
("{stop-22x22.png} read: expected a `)'" ("{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)'" "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: read: expected a `)'" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: read: expected a `)' to close `('"
"{stop-22x22.png} read: expected a `)'" "{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)'" "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: read: expected a `)'") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: read: expected a `)' to close `('")
'definitions 'definitions
#f #f
void void
@ -467,12 +467,12 @@ This produces an ACK message
;; error in the middle ;; error in the middle
(mktest "1 2 ( 3 4" (mktest "1 2 ( 3 4"
("1\n2\n{stop-22x22.png} read: expected a `)'" ("1\n2\n{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)'" "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: read: expected a `)'" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: read: expected a `)' to close `('"
"1\n2\n{stop-22x22.png} read: expected a `)'" "1\n2\n{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)'" "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: read: expected a `)'") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: read: expected a `)' to close `('")
'definitions 'definitions
#f #f
void void
@ -1382,10 +1382,10 @@ This produces an ACK message
(let* ([end (- (get-int-pos) 1)] (let* ([end (- (get-int-pos) 1)]
[output (fetch-output drscheme-frame start end)] [output (fetch-output drscheme-frame start end)]
[expected "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"]) [expected #rx"reference to undefined identifier: x"])
(unless (equal? output expected) (unless (regexp-match expected output)
(failure) (failure)
(fprintf (current-error-port) "callcc-test: expected ~s, got ~s\n" expected output))))) (fprintf (current-error-port) "callcc-test: expected something matching ~s, got ~s\n" expected output)))))
(define (random-seed-test) (define (random-seed-test)
(define expression (define expression

2
collects/tests/framework/main.ss
View File

@ -53,7 +53,7 @@
(cond [all? all-files] (cond [all? all-files]
[batch? (remove* interactive-files all-files)] [batch? (remove* interactive-files all-files)]
[else files])))) [else files]))))
`("Names of the tests; defaults to all tests")) `("Names of the tests; defaults to all non-interactive tests"))
(when (file-exists? preferences-file) (when (file-exists? preferences-file)
(debug-printf admin " saving preferences file ~s to ~s\n" (debug-printf admin " saving preferences file ~s to ~s\n"