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

Misc tests/drracket improvements.

Browse Source 
Removed "info.rkt", since all entries were unused; switched ".ss" to
".rkt" in both real code and tested code (except for the teachpack
tests); modernized some tests to use symbolic requires (which would also
make it easier to deal with).
This commit is contained in:
Eli Barzilay 2010-05-17 03:07:10 -04:00
parent 0940a4d813
commit bcab28e5d2
14 changed files with 178 additions and 191 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/drracket/info.rkt
View File

@ -1,11 +0,0 @@
#lang setup/infotab
(define compile-omit-paths
'("config-lang-test.ss" "drscheme-jr.ss" "drscheme-test.ss"
"event-efficency.ss" ;"language-test.ss"
"repl-test-tmp3.ss" "repl-test-tmp2.ss"
"launcher.ss"
"line-art.ss" "menu-test.ss" "repl-test-tmp.ss"
"pr-144.ss" "pr-246.ss" "pr-39.ss" "pr-46.ss" "pr-48.ss"
"pr-51.ss" "pr-58.ss" "pr-80.ss" "pr-99.ss"
"sig.ss" "sixlib.ss"))

6
collects/tests/drracket/io.rkt
View File

@ -12,7 +12,7 @@ add this test:
|# |#
(require "drracket-test-util.ss" (require "drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
mzlib/class mzlib/class
mzlib/pretty mzlib/pretty
@ -111,11 +111,11 @@ add this test:
(clear-definitions drs-frame) (clear-definitions drs-frame)
(do-execute drs-frame) (do-execute drs-frame)
(unless (equal? "" (fetch-output drs-frame)) (unless (equal? "" (fetch-output drs-frame))
(error 'io.ss "failed long io / execute test (extra io)")) (error 'io.rkt "failed long io / execute test (extra io)"))
(unless (whitespace-string=? (unless (whitespace-string=?
(get-output-string string-port) (get-output-string string-port)
got-output) got-output)
(error 'io.ss "failed long io / execute test (output doesn't match)"))))) (error 'io.rkt "failed long io / execute test (output doesn't match)")))))
(define (reading-test) (define (reading-test)

4
collects/tests/drracket/language-test.rkt
View File

@ -14,7 +14,7 @@ the settings above should match r5rs
|# |#
(require "drracket-test-util.ss" (require "drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
mred mred
framework framework
@ -1098,7 +1098,7 @@ the settings above should match r5rs
"expected lines: ~n ~a~n ~a~ngot lines:~n ~a~n ~a~n" "expected lines: ~n ~a~n ~a~ngot lines:~n ~a~n ~a~n"
line0-expect line1-expect line0-expect line1-expect
line0-got line1-got) line0-got line1-got)
(error 'language-test.ss "failed get top of repl test"))))) (error 'language-test.rkt "failed get top of repl test")))))
;; teaching-language-fraction-output ;; teaching-language-fraction-output

4
collects/tests/drracket/module-lang-test-utils.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/gui #lang scheme/gui
(require "drracket-test-util.ss" mzlib/etc framework scheme/string) (require "drracket-test-util.rkt" mzlib/etc framework scheme/string)
(provide test t rx run-test in-here write-test-modules) (provide test t rx run-test in-here write-test-modules)
@ -49,7 +49,7 @@
(set! init-temp-files (set! init-temp-files
(let ([old init-temp-files]) (let ([old init-temp-files])
(λ () (λ ()
(let ([file (build-path (find-system-path 'temp-dir) (format "~a.ss" name))]) (let ([file (build-path (find-system-path 'temp-dir) (format "~a.rkt" name))])
(set! temp-files (cons file temp-files)) (set! temp-files (cons file temp-files))
(with-output-to-file file #:exists 'truncate (with-output-to-file file #:exists 'truncate
(lambda () (printf "~s\n" code)))) (lambda () (printf "~s\n" code))))

26
collects/tests/drracket/module-lang-test.rkt
View File

@ -1,5 +1,5 @@
#lang at-exp scheme/gui #lang at-exp scheme/gui
(require "module-lang-test-utils.ss") (require "module-lang-test-utils.rkt")
(provide run-test) (provide run-test)
;; set up for tests that need external files ;; set up for tests that need external files
@ -71,16 +71,16 @@
(test @t{(module m mzscheme (define x 1) (define y 2) (provide y))} (test @t{(module m mzscheme (define x 1) (define y 2) (provide y))}
@t{y} @t{y}
"2") "2")
(test @t{(module m mzscheme (require (lib "list.ss")))} (test @t{(module m mzscheme (require mzlib/list))}
@t{foldl} @t{foldl}
#rx"foldl") #rx"foldl")
(test @t{(module m mzscheme (require (rename (lib "list.ss") local-foldl foldl)))} (test @t{(module m mzscheme (require (rename mzlib/list local-foldl foldl)))}
@t{local-foldl} @t{local-foldl}
#rx"foldl>") #rx"foldl>")
(test @t{(module m mzscheme (require (all-except (lib "list.ss") foldl)))} (test @t{(module m mzscheme (require (all-except mzlib/list foldl)))}
@t{first} @t{first}
#rx"first>") #rx"first>")
(test @t{(module m mzscheme (require (all-except (lib "list.ss") foldl)))} (test @t{(module m mzscheme (require (all-except mzlib/list foldl)))}
@t{foldl} @t{foldl}
". . reference to an identifier before its definition: foldl") ". . reference to an identifier before its definition: foldl")
(test @t{(module m mzscheme (require (prefix mz: mzscheme)))} (test @t{(module m mzscheme (require (prefix mz: mzscheme)))}
@ -90,18 +90,18 @@
@t{+} @t{+}
#rx"procedure:[+]") #rx"procedure:[+]")
(test @t{(module m mzscheme (test @t{(module m mzscheme
(require (prefix x: (lib "list.ss")) (lib "list.ss")))} (require (prefix x: mzlib/list) mzlib/list))}
@t{foldl} @t{foldl}
#rx"foldl>") #rx"foldl>")
(test @t{(module m mzscheme (test @t{(module m mzscheme
(require (prefix x: (lib "list.ss")) (lib "list.ss")))} (require (prefix x: mzlib/list) mzlib/list))}
@t{x:foldl} @t{x:foldl}
#rx"foldl>") #rx"foldl>")
(test @t{(module m (file @in-here{module-lang-test-tmp1.ss}) x)} (test @t{(module m (file @in-here{module-lang-test-tmp1.rkt}) x)}
@t{x} @t{x}
"1") "1")
;; + shouldn't be bound in the REPL because it isn't bound in the module. ;; + shouldn't be bound in the REPL because it isn't bound in the module.
(test @t{(module m (file @in-here{module-lang-test-tmp1.ss}) x)} (test @t{(module m (file @in-here{module-lang-test-tmp1.rkt}) x)}
@t{+} @t{+}
". . reference to an identifier before its definition: +") ". . reference to an identifier before its definition: +")
(test @t{(module m mzscheme (provide lambda))} (test @t{(module m mzscheme (provide lambda))}
@ -137,7 +137,7 @@
@t{a} @t{a}
"78") "78")
(test @t{(module m mzscheme (test @t{(module m mzscheme
(require-for-syntax (file @in-here{module-lang-test-tmp2.ss})) (require-for-syntax (file @in-here{module-lang-test-tmp2.rkt}))
(provide s) (provide s)
(define-syntax (s stx) e))} (define-syntax (s stx) e))}
@t{(require m) s} @t{(require m) s}
@ -158,7 +158,7 @@
(eval 'cons)} (eval 'cons)}
#f #f
@rx{. compile: unbound identifier \(and no #%top syntax transformer is bound\) in: cons}) @rx{. compile: unbound identifier \(and no #%top syntax transformer is bound\) in: cons})
(test @t{(module m (file @in-here{module-lang-test-tmp1.ss}) 1 2 3)} (test @t{(module m (file @in-here{module-lang-test-tmp1.rkt}) 1 2 3)}
@t{1} ;; just make sure no errors. @t{1} ;; just make sure no errors.
"1") "1")
@ -193,7 +193,7 @@
Interactions disabled: Interactions disabled:
does not support a REPL \(no #%top-interaction\)} does not support a REPL \(no #%top-interaction\)}
#t) #t)
(test @t{(module xx (file @in-here{module-lang-test-tmp4.ss}) (test @t{(module xx (file @in-here{module-lang-test-tmp4.rkt})
(define x 1) (define x 1)
(* x 123))} (* x 123))}
#f #f
@ -260,5 +260,5 @@
"3") "3")
(require "drracket-test-util.ss") (require "drracket-test-util.rkt")
(fire-up-drscheme-and-run-tests run-test) (fire-up-drscheme-and-run-tests run-test)

2
collects/tests/drracket/randomly-click-language-dialog.rkt
View File

@ -1,3 +1,3 @@
#lang scheme #lang scheme
(require "randomly-click.ss") (require "randomly-click.rkt")
(go 'language-dialog) (go 'language-dialog)

2
collects/tests/drracket/randomly-click-preferences.rkt
View File

@ -1,3 +1,3 @@
#lang scheme #lang scheme
(require "randomly-click.ss") (require "randomly-click.rkt")
(go 'preferences-dialog) (go 'preferences-dialog)

2
collects/tests/drracket/randomly-click.rkt
View File

@ -126,7 +126,7 @@
"\nExists/Meets window with no button: Bug? seed ~s\n" "\nExists/Meets window with no button: Bug? seed ~s\n"
the-seed) the-seed)
(apply show-log actions) (apply show-log actions)
(error 'randomly-click.ss "giving up")]))]))])))) (error 'randomly-click.rkt "giving up")]))]))]))))
(define (show-log . actions) (define (show-log . actions)
(for ((action (in-list actions))) (for ((action (in-list actions)))

120
collects/tests/drracket/repl-test.rkt
View File

@ -9,11 +9,11 @@ This produces an ACK message
#lang scheme #lang scheme
(require scheme/sandbox) (require scheme/sandbox)
(make-evaluator '(file "/tmp/foo.ss")) (make-evaluator '(file "/tmp/foo.rkt"))
|# |#
(require "drracket-test-util.ss" (require "drracket-test-util.rkt"
mred mred
framework) framework)
@ -61,7 +61,7 @@ This produces an ACK message
".*" ".*"
(regexp-quote "tests/drracket/repl-test-tmp") (regexp-quote "tests/drracket/repl-test-tmp")
"3?" "3?"
(regexp-quote ".ss"))) (regexp-quote ".rkt")))
(define (to-strings . args) (define (to-strings . args)
@ -135,10 +135,10 @@ This produces an ACK message
(mktest "(" (mktest "("
("{stop-22x22.png} read: expected a `)' to close `('" ("{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{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 `)' to close `('" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('"
"{stop-22x22.png} read: expected a `)' to close `('" "{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{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 `)' to close `('") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('")
'definitions 'definitions
#f #f
void void
@ -148,10 +148,10 @@ This produces an ACK message
("{stop-22x22.png} read: illegal use of \".\"" ("{stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: illegal use of \".\""
"{stop-22x22.png} read: illegal use of \".\"" "{stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: read: illegal use of \".\"") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: illegal use of \".\"")
'definitions 'definitions
#f #f
void void
@ -161,10 +161,10 @@ This produces an ACK message
("{stop-22x22.png} lambda: bad syntax in: (lambda ())" ("{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} repl-test-tmp3.ss:1:0: lambda: bad syntax in: (lambda ())" "{stop-22x22.png} repl-test-tmp3.rkt:1:0: lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-multi.png} {stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-multi.png} {stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: lambda: bad syntax in: (lambda ())") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: lambda: bad syntax in: (lambda ())")
'definitions 'definitions
#f #f
void void
@ -175,10 +175,10 @@ This produces an ACK message
("{stop-22x22.png} lambda: bad syntax in: (lambda ())" ("{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} repl-test-tmp3.ss:1:7: lambda: bad syntax in: (lambda ())" "{stop-22x22.png} repl-test-tmp3.rkt:1:7: lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-multi.png} {stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-multi.png} {stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:7: lambda: bad syntax in: (lambda ())") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:7: lambda: bad syntax in: (lambda ())")
'definitions 'definitions
#f #f
void void
@ -188,7 +188,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
@ -303,7 +303,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:7: reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:7: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
@ -320,10 +320,10 @@ This produces an ACK message
("{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" ("{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" "{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} repl-test-tmp3.ss:1:43: compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" "{stop-22x22.png} repl-test-tmp3.rkt:1:43: compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" "{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1"
"{stop-multi.png} {stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" "{stop-multi.png} {stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:43: compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:43: compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1")
'definitions 'definitions
#f #f
void void
@ -348,7 +348,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:2:0: reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:2:0: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
@ -415,7 +415,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x" "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: reference to undefined identifier: x" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: reference to undefined identifier: x"
"reference to undefined identifier: x" "reference to undefined identifier: x"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x")
@ -455,7 +455,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #<void>" ("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #<void>"
"{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #<void>" "{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #<void>"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: expt: expected argument of type <number>; given #<void>" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: expt: expected argument of type <number>; given #<void>"
"expt: expected argument of type <number>; given #<void>" "expt: expected argument of type <number>; given #<void>"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>")
@ -469,10 +469,10 @@ This produces an ACK message
("1\n2\n{stop-22x22.png} read: expected a `)' to close `('" ("1\n2\n{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{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 `)' to close `('" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('"
"1\n2\n{stop-22x22.png} read: expected a `)' to close `('" "1\n2\n{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{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 `)' to close `('") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('")
'definitions 'definitions
#f #f
void void
@ -481,10 +481,10 @@ This produces an ACK message
("1\n2\n{stop-22x22.png} read: illegal use of \".\"" ("1\n2\n{stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: illegal use of \".\""
"1\n2\n{stop-22x22.png} read: illegal use of \".\"" "1\n2\n{stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} read: illegal use of \".\""
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: read: illegal use of \".\"") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: illegal use of \".\"")
'definitions 'definitions
#f #f
void void
@ -493,10 +493,10 @@ This produces an ACK message
("1\n2\n{stop-22x22.png} lambda: bad syntax in: (lambda ())" ("1\n2\n{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} repl-test-tmp3.ss:1:4: lambda: bad syntax in: (lambda ())" "{stop-22x22.png} repl-test-tmp3.rkt:1:4: lambda: bad syntax in: (lambda ())"
"1\n2\n{stop-22x22.png} lambda: bad syntax in: (lambda ())" "1\n2\n{stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-multi.png} {stop-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-multi.png} {stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: lambda: bad syntax in: (lambda ())") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: lambda: bad syntax in: (lambda ())")
'definitions 'definitions
#f #f
void void
@ -505,7 +505,7 @@ This produces an ACK message
("1\n2\n{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x" ("1\n2\n{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x" "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:4: reference to undefined identifier: x" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: reference to undefined identifier: x"
"1\n2\nreference to undefined identifier: x" "1\n2\nreference to undefined identifier: x"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: x")
@ -542,10 +542,10 @@ This produces an ACK message
("{stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4" ("{stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4"
"{stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4" "{stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4"
"{stop-22x22.png} repl-test-tmp3.ss:2:7: cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4" "{stop-22x22.png} repl-test-tmp3.rkt:2:7: cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4"
"{stop-multi.png} {stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4" "{stop-multi.png} {stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4"
"{stop-multi.png} {stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4" "{stop-multi.png} {stop-22x22.png} cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:2:7: cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:2:7: cond: expected a clause with one question and one answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4")
'definitions 'definitions
#f #f
void void
@ -553,33 +553,33 @@ This produces an ACK message
;; error across separate files ;; error across separate files
(mktest (mktest
"(load \"repl-test-tmp2.ss\") (define (g) (+ 1 (expt 3 #f))) (f g)" "(load \"repl-test-tmp2.rkt\") (define (g) (+ 1 (expt 3 #f))) (f g)"
("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f" ("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f"
"{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f" "{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:44: expt: expected argument of type <number>; given #f" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:45: expt: expected argument of type <number>; given #f"
"{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f" "{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f"
"{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f" "{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:27: expt: expected argument of type <number>; given #f") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:28: expt: expected argument of type <number>; given #f")
'definitions 'definitions
#f #f
(λ () (λ ()
(call-with-output-file (build-path tmp-load-directory "repl-test-tmp2.ss") (call-with-output-file (build-path tmp-load-directory "repl-test-tmp2.rkt")
(lambda (port) (lambda (port)
(write '(define (f t) (+ 1 (t))) (write '(define (f t) (+ 1 (t)))
port)) port))
#:exists 'truncate)) #:exists 'truncate))
(λ () (delete-file (build-path tmp-load-directory "repl-test-tmp2.ss")))) (λ () (delete-file (build-path tmp-load-directory "repl-test-tmp2.rkt"))))
;; new namespace test ;; new namespace test
(mktest "(current-namespace (make-namespace))\nif" (mktest "(current-namespace (make-namespace))\nif"
("{stop-22x22.png} if: bad syntax in: if" ("{stop-22x22.png} if: bad syntax in: if"
"{stop-22x22.png} if: bad syntax in: if" "{stop-22x22.png} if: bad syntax in: if"
"{stop-22x22.png} repl-test-tmp3.ss:2:0: if: bad syntax in: if" "{stop-22x22.png} repl-test-tmp3.rkt:2:0: if: bad syntax in: if"
"{stop-22x22.png} if: bad syntax in: if" "{stop-22x22.png} if: bad syntax in: if"
"{stop-multi.png} {stop-22x22.png} if: bad syntax in: if" "{stop-multi.png} {stop-22x22.png} if: bad syntax in: if"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:2:0: if: bad syntax in: if") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:2:0: if: bad syntax in: if")
'definitions 'definitions
#f #f
void void
@ -589,10 +589,10 @@ This produces an ACK message
("{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" ("{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-22x22.png} repl-test-tmp3.ss:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} repl-test-tmp3.rkt:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-multi.png} {stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-multi.png} {stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction")
'definitions 'definitions
#f #f
void void
@ -618,7 +618,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f\n15" ("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f\n15"
"{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f\n15" "{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f\n15"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:5:19: expt: expected argument of type <number>; given #f\n15" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:5:19: expt: expected argument of type <number>; given #f\n15"
"expt: expected argument of type <number>; given #f\n15" "expt: expected argument of type <number>; given #f\n15"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15")
@ -644,12 +644,12 @@ This produces an ACK message
;; should produce a syntax object with a turn-down triangle. ;; should produce a syntax object with a turn-down triangle.
(mktest "(write (list (syntax x)))" (mktest "(write (list (syntax x)))"
(#rx"({embedded \".#<syntax:.*repl-test-tmp.ss:1:21.*>\"})" (#rx"({embedded \".#<syntax:.*repl-test-tmp.rkt:1:21.*>\"})"
#rx"({embedded \".#<syntax:.*repl-test-tmp.ss:1:21.*>\"})" #rx"({embedded \".#<syntax:.*repl-test-tmp.rkt:1:21.*>\"})"
#rx"({embedded \".#<syntax:.*repl-test-tmp3.ss:1:21.*>\"})" #rx"({embedded \".#<syntax:.*repl-test-tmp3.rkt:1:21.*>\"})"
#rx"({embedded \".#<syntax:.*repl-test-tmp.ss:1:21.*>\"})" #rx"({embedded \".#<syntax:.*repl-test-tmp.rkt:1:21.*>\"})"
#rx"({embedded \".#<syntax:.*repl-test-tmp.ss:1:21.*>\"})" #rx"({embedded \".#<syntax:.*repl-test-tmp.rkt:1:21.*>\"})"
#rx"({embedded \".#<syntax:.*repl-test-tmp3.ss:1:21.*>\"})") #rx"({embedded \".#<syntax:.*repl-test-tmp3.rkt:1:21.*>\"})")
'interactions 'interactions
#f #f
void void
@ -685,12 +685,12 @@ This produces an ACK message
(mktest "(parameterize ([current-output-port (open-output-string)]) (fprintf (current-error-port) \"~e\" #'foot))" (mktest "(parameterize ([current-output-port (open-output-string)]) (fprintf (current-error-port) \"~e\" #'foot))"
(#rx"#<syntax:.*repl-test-tmp.ss:1:96.*>" (#rx"#<syntax:.*repl-test-tmp.rkt:1:96.*>"
#rx"#<syntax:.*repl-test-tmp.ss:1:96.*>" #rx"#<syntax:.*repl-test-tmp.rkt:1:96.*>"
#rx"#<syntax:.*repl-test-tmp3.ss:1:96.*>" #rx"#<syntax:.*repl-test-tmp3.rkt:1:96.*>"
#rx"#<syntax:.*repl-test-tmp.ss:1:96.*>" #rx"#<syntax:.*repl-test-tmp.rkt:1:96.*>"
#rx"#<syntax:.*repl-test-tmp.ss:1:96.*>" #rx"#<syntax:.*repl-test-tmp.rkt:1:96.*>"
#rx"#<syntax:.*repl-test-tmp3.ss:1:96.*>") #rx"#<syntax:.*repl-test-tmp3.rkt:1:96.*>")
'interactions 'interactions
#f #f
void void
@ -717,7 +717,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f" ("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f"
"{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f" "{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #f"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:6:15: expt: expected argument of type <number>; given #f" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:6:15: expt: expected argument of type <number>; given #f"
"expt: expected argument of type <number>; given #f" "expt: expected argument of type <number>; given #f"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f")
@ -794,7 +794,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} procedure application: expected procedure, given: 3; arguments were: 3" ("{stop-multi.png} {stop-22x22.png} procedure application: expected procedure, given: 3; arguments were: 3"
"{stop-multi.png} {stop-22x22.png} procedure application: expected procedure, given: 3; arguments were: 3" "{stop-multi.png} {stop-22x22.png} procedure application: expected procedure, given: 3; arguments were: 3"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:3:13: procedure application: expected procedure, given: 3; arguments were: 3" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:3:13: procedure application: expected procedure, given: 3; arguments were: 3"
"procedure application: expected procedure, given: 3; arguments were: 3" "procedure application: expected procedure, given: 3; arguments were: 3"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3")
@ -868,10 +868,10 @@ This produces an ACK message
("{stop-22x22.png} λ: bad syntax in: (λ ())" ("{stop-22x22.png} λ: bad syntax in: (λ ())"
"{stop-22x22.png} λ: bad syntax in: (λ ())" "{stop-22x22.png} λ: bad syntax in: (λ ())"
"{stop-22x22.png} repl-test-tmp3.ss:1:0: λ: bad syntax in: (λ ())" "{stop-22x22.png} repl-test-tmp3.rkt:1:0: λ: bad syntax in: (λ ())"
"{stop-22x22.png} λ: bad syntax in: (λ ())" "{stop-22x22.png} λ: bad syntax in: (λ ())"
"{stop-multi.png} {stop-22x22.png} λ: bad syntax in: (λ ())" "{stop-multi.png} {stop-22x22.png} λ: bad syntax in: (λ ())"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: λ: bad syntax in: (λ ())") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: λ: bad syntax in: (λ ())")
'definitions 'definitions
#f #f
void void
@ -882,7 +882,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x" "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:26: reference to undefined identifier: x" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:26: reference to undefined identifier: x"
"reference to undefined identifier: x" "reference to undefined identifier: x"
"reference to undefined identifier: x" "reference to undefined identifier: x"
"reference to undefined identifier: x") "reference to undefined identifier: x")
@ -896,7 +896,7 @@ This produces an ACK message
("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:1:0: reference to undefined identifier: xx" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*mred/private/snipfile.rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
@ -907,7 +907,7 @@ This produces an ACK message
;; setup of the namespaces for pict printing (from slideshow) ;; setup of the namespaces for pict printing (from slideshow)
(mktest "(require (lib \"utils.ss\" \"texpict\"))(disk 3)" (mktest "(require texpict/utils)(disk 3)"
("{image}" ("{image}"
"{image}" "{image}"
@ -957,7 +957,7 @@ This produces an ACK message
void) void)
(mktest (string-append (mktest (string-append
"(require (lib \"pretty.ss\"))" "(require mzlib/pretty)"
"(pretty-print-print-hook (lambda x (expt 3 #f)))" "(pretty-print-print-hook (lambda x (expt 3 #f)))"
"(list 1 2 3)") "(list 1 2 3)")
@ -1090,10 +1090,10 @@ This produces an ACK message
(normalize-path (normalize-path
(collection-path "tests" "drracket")))) (collection-path "tests" "drracket"))))
(define tmp-load-short-filename "repl-test-tmp.ss") (define tmp-load-short-filename "repl-test-tmp.rkt")
(define tmp-load-filename (build-path tmp-load-directory tmp-load-short-filename)) (define tmp-load-filename (build-path tmp-load-directory tmp-load-short-filename))
(define tmp-load3-short-filename "repl-test-tmp3.ss") (define tmp-load3-short-filename "repl-test-tmp3.rkt")
(define tmp-load3-filename (build-path tmp-load-directory tmp-load3-short-filename)) (define tmp-load3-filename (build-path tmp-load-directory tmp-load3-short-filename))
(define (cleanup-tmp-files) (define (cleanup-tmp-files)
@ -1145,7 +1145,7 @@ This produces an ACK message
(type-in-definitions drscheme-frame " 1/3)")) (type-in-definitions drscheme-frame " 1/3)"))
; given a filename "foo", we perform two operations on the contents ; given a filename "foo", we perform two operations on the contents
; of the file "foo.ss". First, we insert its contents into the REPL ; of the file "foo.rkt". First, we insert its contents into the REPL
; directly, and second, we use the load command. We compare the ; directly, and second, we use the load command. We compare the
; results of these operations against expected results. ; results of these operations against expected results.
(define ((run-single-test execute-text-start escape language-cust) in-vector) (define ((run-single-test execute-text-start escape language-cust) in-vector)

7
collects/tests/drracket/sample-solutions-one-window.rkt
View File

@ -1,6 +1,6 @@
(module sample-solutions-one-window mzscheme (module sample-solutions-one-window mzscheme
(require "drracket-test-util.ss" (require "drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
mzlib/class mzlib/class
mzlib/list mzlib/list
@ -222,13 +222,12 @@
(define stupid-internal-definitions-syntax (define stupid-internal-definitions-syntax
(unless (directory-exists? sample-solutions-dir) (unless (directory-exists? sample-solutions-dir)
(error 'sample-solutions.ss "expected directory ~s to exist" sample-solutions-dir))) (error 'sample-solutions.rkt "expected directory ~s to exist" sample-solutions-dir)))
(define stupid-internal-definitions-syntax2 (define stupid-internal-definitions-syntax2
(set! sample-solutions-dir (normalize-path sample-solutions-dir))) (set! sample-solutions-dir (normalize-path sample-solutions-dir)))
(define toc (call-with-input-file (build-path sample-solutions-dir "toc.ss") read)) (define toc (call-with-input-file (build-path sample-solutions-dir "toc.rkt") read))
(define labels (define labels

5
collects/tests/drracket/save-teaching-lang-file.rkt
View File

@ -27,7 +27,8 @@
(fprintf (current-error-port) "---- saved file, cut here ----\n") (fprintf (current-error-port) "---- saved file, cut here ----\n")
(call-with-input-file fn (λ (p) (copy-port p (current-error-port)))) (call-with-input-file fn (λ (p) (copy-port p (current-error-port))))
(fprintf (current-error-port) "---- saved file, cut here ----\n") (fprintf (current-error-port) "---- saved file, cut here ----\n")
(error 'save-teaching-lang-file.ss "expected the saved file to contain the word 'metadata' in a comment")) (error 'save-teaching-lang-file.rkt
"expected the saved file to contain the word 'metadata' in a comment"))
(do-execute drs-frame) (do-execute drs-frame)
(test:menu-select "File" "Close Tab") (test:menu-select "File" "Close Tab")
(use-get/put-dialog (use-get/put-dialog
@ -42,4 +43,4 @@
(test:menu-select "File" "Close Tab") (test:menu-select "File" "Close Tab")
(delete-file fn) (delete-file fn)
(unless (equal? result "1\n> ") (unless (equal? result "1\n> ")
(error 'save-teaching-lang-file.ss "expected the program to produce 1 (followed by the prompt), got ~s" result))))))) (error 'save-teaching-lang-file.rkt "expected the program to produce 1 (followed by the prompt), got ~s" result)))))))

2
collects/tests/drracket/stepper-test.rkt
View File

@ -2,7 +2,7 @@
(module stepper-test mzscheme (module stepper-test mzscheme
(require mred (require mred
mzlib/class mzlib/class
"drracket-test-util.ss" "drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
framework framework
mzlib/pretty) mzlib/pretty)

138
collects/tests/drracket/syncheck-test.rkt
View File

@ -7,7 +7,7 @@ trigger runtime errors in check syntax.
|# |#
#lang scheme/base #lang scheme/base
(require "drracket-test-util.ss" (require "drracket-test-util.rkt"
string-constants/string-constant string-constants/string-constant
tests/utils/gui tests/utils/gui
scheme/path scheme/path
@ -261,11 +261,11 @@ trigger runtime errors in check syntax.
(" " default-color) (" " default-color)
("mzscheme" error) ("mzscheme" error)
(")" default-color))) (")" default-color)))
(build-test "(require (lib \"list.ss\"))" (build-test "(require mzlib/list)"
'(("(" default-color) '(("(" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" " default-color) (" " default-color)
("(lib \"list.ss\")" error) ("mzlib/list" error)
(")" default-color))) (")" default-color)))
(build-test "(module m mzscheme (provide x) (define x 1))" (build-test "(module m mzscheme (provide x) (define x 1))"
'(("(" default-color) '(("(" default-color)
@ -296,37 +296,37 @@ trigger runtime errors in check syntax.
("))" default-color)) ("))" default-color))
(list '((10 18) (20 21)))) (list '((10 18) (20 21))))
(build-test "(module m mzscheme (require (lib \"list.ss\")))" (build-test "(module m mzscheme (require mzlib/list))"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" " default-color) (" " default-color)
("(lib \"list.ss\")" error) ("mzlib/list" error)
("))" default-color)) ("))" default-color))
(list '((10 18) (20 27)))) (list '((10 18) (20 27))))
(build-test "(module m mzscheme (require-for-syntax (lib \"list.ss\")) (define-syntax s foldl))" (build-test "(module m mzscheme (require-for-syntax mzlib/list) (define-syntax s foldl))"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require-for-syntax" imported-syntax) ("require-for-syntax" imported-syntax)
(" (lib \"list.ss\")) (" default-color) (" mzlib/list) (" default-color)
("define-syntax" imported-syntax) ("define-syntax" imported-syntax)
(" " default-color) (" " default-color)
("s" lexically-bound-syntax) ("s" lexically-bound-syntax)
(" " default-color) (" " default-color)
("foldl" imported-variable) ("foldl" imported-variable)
("))" default-color)) ("))" default-color))
(list '((10 18) (20 38) (57 70)) (list '((10 18) (20 38) (52 65))
'((39 54) (73 78)))) '((39 49) (68 73))))
(build-test "(module m mzscheme (require-for-syntax (lib \"etc.ss\")) (define-syntax s (rec f 1)))" (build-test "(module m mzscheme (require-for-syntax mzlib/etc) (define-syntax s (rec f 1)))"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require-for-syntax" imported-syntax) ("require-for-syntax" imported-syntax)
(" (lib \"etc.ss\")) (" default-color) (" mzlib/etc) (" default-color)
("define-syntax" imported-syntax) ("define-syntax" imported-syntax)
(" " default-color) (" " default-color)
("s" lexically-bound-syntax) ("s" lexically-bound-syntax)
@ -337,9 +337,8 @@ trigger runtime errors in check syntax.
(" " default-color) (" " default-color)
("1" constant) ("1" constant)
(")))" default-color)) (")))" default-color))
(list '((10 18) (20 38) (56 69)) (list '((10 18) (20 38) (51 64))
'((39 53) (73 76)))) '((39 48) (68 71))))
(build-test "(define-for-syntax (f x) x) (define (f x) x) f (define-syntax (m x) (f x))" (build-test "(define-for-syntax (f x) x) (define (f x) x) f (define-syntax (m x) (f x))"
@ -437,24 +436,24 @@ trigger runtime errors in check syntax.
("))))" default-color)) ("))))" default-color))
(list '((26 29) (44 47)))) (list '((26 29) (44 47))))
(build-test "(require (lib \"list.ss\")) first" (build-test "(require mzlib/list) first"
'(("(" default-color) '(("(" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" (lib \"list.ss\")) " default-color) (" mzlib/list) " default-color)
("first" imported-variable)) ("first" imported-variable))
(list '((9 24) (26 31)))) (list '((9 19) (21 26))))
(build-test "(require (lib \"etc.ss\")) (rec f 1)" (build-test "(require mzlib/etc) (rec f 1)"
'(("(" default-color) '(("(" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" (lib \"etc.ss\")) (" default-color) (" mzlib/etc) (" default-color)
("rec" imported-syntax) ("rec" imported-syntax)
(" " default-color) (" " default-color)
("f" lexically-bound-variable) ("f" lexically-bound-variable)
(" " default-color) (" " default-color)
("1" constant) ("1" constant)
(")" default-color)) (")" default-color))
(list '((9 23) (26 29)))) (list '((9 18) (21 24))))
(build-test "(define-struct s ())" (build-test "(define-struct s ())"
'(("(" default-color) '(("(" default-color)
@ -608,61 +607,61 @@ trigger runtime errors in check syntax.
("this" imported) ("this" imported)
(")" default-color))) (")" default-color)))
(build-test "(module m mzscheme (require (lib \"list.ss\")) foldl)" (build-test "(module m mzscheme (require mzlib/list) foldl)"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" (lib \"list.ss\")) " default-color) (" mzlib/list) " default-color)
("foldl" imported-variable) ("foldl" imported-variable)
(")" default-color)) (")" default-color))
(list '((10 18) (20 27)) (list '((10 18) (20 27))
'((28 43) (45 50)))) '((28 38) (40 45))))
(build-test "(module m (lib \"htdp-beginner.ss\" \"lang\") empty)" (build-test "(module m lang/htdp-beginner empty)"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m (lib \"htdp-beginner.ss\" \"lang\") " default-color) (" m lang/htdp-beginner " default-color)
("empty" imported-variable) ("empty" imported-variable)
(")" default-color)) (")" default-color))
(list '((10 41) (42 47)))) (list '((10 28) (29 34))))
(build-test "(module m mzscheme (require (prefix x: (lib \"list.ss\"))) x:foldl)" (build-test "(module m mzscheme (require (prefix x: mzlib/list)) x:foldl)"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" (prefix x: (lib \"list.ss\"))) " default-color) (" (prefix x: mzlib/list)) " default-color)
("x:foldl" imported-variable) ("x:foldl" imported-variable)
(")" default-color)) (")" default-color))
(list '((10 18) (20 27)) (list '((10 18) (20 27))
'((28 55) (57 64)))) '((28 50) (52 59))))
(build-test "(module m mzscheme (require (prefix x: (lib \"list.ss\")) (lib \"list.ss\")) x:foldl foldl)" (build-test "(module m mzscheme (require (prefix x: mzlib/list) mzlib/list) x:foldl foldl)"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" (prefix x: (lib \"list.ss\")) (lib \"list.ss\")) " default-color) (" (prefix x: mzlib/list) mzlib/list) " default-color)
("x:foldl" imported-variable) ("x:foldl" imported-variable)
(" " default-color) (" " default-color)
("foldl" imported-variable) ("foldl" imported-variable)
(")" default-color)) (")" default-color))
(list '((10 18) (20 27)) (list '((10 18) (20 27))
'((28 55) (73 80)) '((28 50) (63 70))
'((56 71) (81 86)))) '((51 61) (71 76))))
(build-test "(module m mzscheme (require (only (lib \"list.ss\") foldr) (only (lib \"list.ss\") foldl)) foldl foldr)" (build-test "(module m mzscheme (require (only mzlib/list foldr) (only mzlib/list foldl)) foldl foldr)"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" (only (lib \"list.ss\") foldr) (only (lib \"list.ss\") foldl)) " default-color) (" (only mzlib/list foldr) (only mzlib/list foldl)) " default-color)
("foldl" imported-variable) ("foldl" imported-variable)
(" " default-color) (" " default-color)
("foldr" imported-variable) ("foldr" imported-variable)
(")" default-color)) (")" default-color))
(list '((10 18) (20 27)) (list '((10 18) (20 27))
'((28 56) (87 92) (93 98)) '((28 51) (77 82) (83 88))
'((57 85) (87 92) (93 98)))) '((52 75) (77 82) (83 88))))
(build-test "(module m mzscheme (require (prefix x: mzscheme)) x:+ +)" (build-test "(module m mzscheme (require (prefix x: mzscheme)) x:+ +)"
'(("(" default-color) '(("(" default-color)
@ -677,12 +676,12 @@ trigger runtime errors in check syntax.
(list '((10 18) (20 27) (54 55)) (list '((10 18) (20 27) (54 55))
'((28 48) (50 53)))) '((28 48) (50 53))))
(build-test "(module m mzscheme (require (lib \"etc.ss\")) (rec f 1))" (build-test "(module m mzscheme (require mzlib/etc) (rec f 1))"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" (lib \"etc.ss\")) (" default-color) (" mzlib/etc) (" default-color)
("rec" imported-syntax) ("rec" imported-syntax)
(" " default-color) (" " default-color)
("f" lexically-bound-variable) ("f" lexically-bound-variable)
@ -690,23 +689,22 @@ trigger runtime errors in check syntax.
("1" constant) ("1" constant)
("))" default-color)) ("))" default-color))
(list '((10 18) (20 27)) (list '((10 18) (20 27))
'((28 42) (45 48)))) '((28 37) (40 43))))
(build-test "(module m (lib \"htdp-intermediate.ss\" \"lang\") (local ((define x x)) x))"
'(("(" default-color)
("module" imported-syntax)
(" m (lib \"htdp-intermediate.ss\" \"lang\") (" default-color)
("local" imported-syntax)
(" ((define " default-color)
("x" lexically-bound-variable)
(" " default-color)
("x" lexically-bound-variable)
(")) " default-color)
("x" lexically-bound-variable)
("))" default-color))
(list '((10 45) (47 52))
'((62 63) (64 65) (68 69))))
(build-test "(module m lang/htdp-intermediate (local ((define x x)) x))"
'(("(" default-color)
("module" imported-syntax)
(" m lang/htdp-intermediate (" default-color)
("local" imported-syntax)
(" ((define " default-color)
("x" lexically-bound-variable)
(" " default-color)
("x" lexically-bound-variable)
(")) " default-color)
("x" lexically-bound-variable)
("))" default-color))
(list '((10 32) (34 39))
'((49 50) (51 52) (55 56))))
(build-test "(module m mzscheme (define-syntax rename #f) (require (rename mzscheme ++ +)))" (build-test "(module m mzscheme (define-syntax rename #f) (require (rename mzscheme ++ +)))"
'(("(" default-color) '(("(" default-color)
@ -816,14 +814,14 @@ trigger runtime errors in check syntax.
'((77 79) (210 212)) '((77 79) (210 212))
'((73 76) (41 44)))) '((73 76) (41 44))))
(make-dir-test "(module m mzscheme (require \"~a/list.ss\") foldl foldl)" (make-dir-test "(module m mzscheme (require \"~a/list.rkt\") foldl foldl)"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)
(" m mzscheme (" default-color) (" m mzscheme (" default-color)
("require" imported-syntax) ("require" imported-syntax)
(" \"" default-color) (" \"" default-color)
(relative-path default-color) (relative-path default-color)
("/list.ss\") " default-color) ("/list.rkt\") " default-color)
("foldl" imported-variable) ("foldl" imported-variable)
(" " default-color) (" " default-color)
("foldl" imported-variable) ("foldl" imported-variable)
@ -883,7 +881,7 @@ trigger runtime errors in check syntax.
;; this isn't right -- seems like there is a race condition because ;; this isn't right -- seems like there is a race condition because
;; wait-for-computation isn't waiting long enough? ;; wait-for-computation isn't waiting long enough?
'(when (send defs in-edit-sequence?) '(when (send defs in-edit-sequence?)
(error 'syncheck-test.ss "still in edit sequence for ~s" input)) (error 'syncheck-test.rkt "still in edit sequence for ~s" input))
(when (send drs syncheck:error-report-visible?) (when (send drs syncheck:error-report-visible?)
(fprintf (current-error-port) (fprintf (current-error-port)

2
collects/tests/drracket/teachpack.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "drracket-test-util.ss" (require "drracket-test-util.rkt"
scheme/class scheme/class
scheme/path scheme/path
scheme/gui/base scheme/gui/base