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

added test for toplevel bug

Browse Source 
svn: r3821
This commit is contained in:
Robby Findler 2006-07-26 12:24:47 +00:00
parent 45a02967aa
commit b50627ffe6
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,6 +55,7 @@ There shouldn't be any error (but add in a bug that triggers one to be sure!)
(define test-data (define test-data
(list (list
;; basic tests ;; basic tests
(make-test "1" (make-test "1"
"1" "1"
@ -518,10 +519,10 @@ There shouldn't be any error (but add in a bug that triggers one to be sure!)
;; this test depends on the state of the 'framework:fraction-snip-style preference ;; this test depends on the state of the 'framework:fraction-snip-style preference
;; make sure this preference is set to the default when running this test. ;; make sure this preference is set to the default when running this test.
(make-test 'fraction-sum (make-test 'fraction-sum
"{number 5/6 \"5/6\" improper}" #rx"{number 5/6 \"5/6\" (improper|mixed)}"
"{number 5/6 \"5/6\" improper}" #rx"{number 5/6 \"5/6\" (improper|mixed)}"
"{number 5/6 \"5/6\" improper}" #rx"{number 5/6 \"5/6\" (improper|mixed)}"
"{number 5/6 \"5/6\" improper}" #rx"{number 5/6 \"5/6\" (improper|mixed)}"
'interactions 'interactions
#f #f
void void
@ -644,12 +645,23 @@ There shouldn't be any error (but add in a bug that triggers one to be sure!)
void void
void) void)
(make-test "(define x 1)\n(begin (set! x (call/cc (lambda (x) x)))\n(x 3))" (make-test "(define x 1)\n((λ (x y) y) (set! x (call/cc (lambda (x) x)))\n(x 3))"
"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" "procedure application: expected procedure, given: 3; arguments were: 3"
"{bug09.gif} procedure application: expected procedure, given: 3; arguments were: 3" "{bug09.gif} procedure application: expected procedure, given: 3; arguments were: 3"
"{bug09.gif} {file.gif} repl-test-tmp.ss::62: procedure application: expected procedure, given: 3; arguments were: 3" "{bug09.gif} {file.gif} repl-test-tmp.ss::74: procedure application: expected procedure, given: 3; arguments were: 3"
(cons (make-loc 3 7 61) (make-loc 3 12 66)) (cons (make-loc 3 19 73) (make-loc 3 24 78))
#f
void
void)
;; top-level & continuation interaction test
(make-test "(begin (define k (call/cc (λ (x) x)))\n(define x 'wrong))\n(set! x 'right)\n(k 1)\nx"
"right"
"right"
"right"
"right"
'interactions
#f #f
void void
void) void)
@ -998,7 +1010,7 @@ There shouldn't be any error (but add in a bug that triggers one to be sure!)
(delete-file tmp-load-filename)) (delete-file tmp-load-filename))
(save-drscheme-window-as tmp-load-filename) (save-drscheme-window-as tmp-load-filename)
(run-test-in-language-level #t) ;(run-test-in-language-level #t)
(run-test-in-language-level #f) (run-test-in-language-level #f)
(kill-tests) (kill-tests)
(callcc-test) (callcc-test)