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

Revert "IN PROGRESS: starting to fix the repl-test for the new error icons"

Browse Source 
This reverts commit 8ec968fe8f.
This commit is contained in:
Robby Findler 2011-11-03 17:14:06 -05:00
parent d00aed6f1b
commit b7541c5d1b
1 changed files with 221 additions and 167 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,7 +59,7 @@ This produces an ACK message
(string-append (string-append
(regexp-quote "#<syntax:") (regexp-quote "#<syntax:")
".*" ".*"
a (regexp-quote "tests/drracket/repl-test-tmp") (regexp-quote "tests/drracket/repl-test-tmp")
"3?" "3?"
(regexp-quote ".rkt"))) (regexp-quote ".rkt")))
@ -77,10 +77,6 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
"[0-9]+:[0-9]+: " "[0-9]+:[0-9]+: "
(regexp-quote str)))) (regexp-quote str))))
;; err-prefix : string -> regexp
(define (err-prefix x)
(regexp (string-append "({[^]*}|){[^]*} " (regexp-quote x))))
(define test-data (define test-data
(list (list
;; basic tests ;; basic tests
@ -97,6 +93,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "\"a\"" (mktest "\"a\""
("\"a\"" ("\"a\""
"\"a\"" "\"a\""
"\"a\"" "\"a\""
@ -109,6 +106,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "1 2" (mktest "1 2"
("1\n2" ("1\n2"
"2" "2"
"2" "2"
@ -121,6 +119,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "\"a\" \"b\"" (mktest "\"a\" \"b\""
("\"a\"\n\"b\"" ("\"a\"\n\"b\""
"\"b\"" "\"b\""
"\"b\"" "\"b\""
@ -133,36 +132,38 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(" (mktest "("
((err-prefix "read: expected a `)' to close `('") ("{stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "read: expected a `)' to close `('") "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('"
(err-prefix "read: expected a `)' to close `('") "{stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "read: expected a `)' to close `('") "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "repl-test-tmp3.rkt: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
void) void)
(mktest "." (mktest "."
((err-prefix "read: illegal use of \".\"")
(err-prefix "read: illegal use of \".\"") ("{stop-22x22.png} read: illegal use of \".\""
(err-prefix "repl-test-tmp3.rkt:1:0: read: illegal use of \".\"") "{stop-multi.png} {stop-22x22.png} read: illegal use of \".\""
(err-prefix "read: illegal use of \".\"") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: illegal use of \".\""
(err-prefix "read: illegal use of \".\"") "{stop-22x22.png} read: illegal use of \".\""
(err-prefix "repl-test-tmp3.rkt:1:0: read: illegal use of \".\"")) "{stop-multi.png} {stop-22x22.png} 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
void) void)
(mktest "(lambda ())" (mktest "(lambda ())"
((err-prefix "lambda: bad syntax in: (lambda ())")
(err-prefix "lambda: bad syntax in: (lambda ())") ("{stop-22x22.png} lambda: bad syntax in: (lambda ())"
(err-prefix "repl-test-tmp3.rkt:1:0: lambda: bad syntax in: (lambda ())") "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())") "{stop-22x22.png} repl-test-tmp3.rkt:1:0: lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())") "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
(err-prefix "repl-test-tmp3.rkt:1:0: 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.rkt:1:0: lambda: bad syntax in: (lambda ())")
'definitions 'definitions
#f #f
void void
@ -170,30 +171,32 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; make sure only a single syntax error occurs when in nested begin situation ;; make sure only a single syntax error occurs when in nested begin situation
(mktest "(begin (lambda ()) (lambda ()))" (mktest "(begin (lambda ()) (lambda ()))"
((err-prefix "lambda: bad syntax in: (lambda ())")
(err-prefix "lambda: bad syntax in: (lambda ())") ("{stop-22x22.png} lambda: bad syntax in: (lambda ())"
(err-prefix "repl-test-tmp3.rkt:1:7: lambda: bad syntax in: (lambda ())") "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())") "{stop-22x22.png} repl-test-tmp3.rkt:1:7: lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())") "{stop-22x22.png} lambda: bad syntax in: (lambda ())"
(err-prefix "repl-test-tmp3.rkt:1:7: 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.rkt:1:7: lambda: bad syntax in: (lambda ())")
'definitions 'definitions
#f #f
void void
void) void)
(mktest "xx" (mktest "xx"
((err-prefix "reference to undefined identifier: xx")
(err-prefix "reference to undefined identifier: xx") ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
(err-prefix "repl-test-tmp3.rkt:1:0: 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.rkt:1:0: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
'definitions 'definitions
#f #f
void void
void) void)
(mktest "(raise 1)" (mktest "(raise 1)"
("uncaught exception: 1" ("uncaught exception: 1"
"uncaught exception: 1" "uncaught exception: 1"
"uncaught exception: 1" "uncaught exception: 1"
@ -204,8 +207,8 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
#f #f
void void
void) void)
(mktest "(raise #f)" (mktest "(raise #f)"
("uncaught exception: #f" ("uncaught exception: #f"
"uncaught exception: #f" "uncaught exception: #f"
"uncaught exception: #f" "uncaught exception: #f"
@ -218,6 +221,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(values 1 2)" (mktest "(values 1 2)"
("1\n2" ("1\n2"
"1\n2" "1\n2"
"1\n2" "1\n2"
@ -229,6 +233,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void void
void) void)
(mktest "(list 1 2)" (mktest "(list 1 2)"
("(1 2)" ("(1 2)"
"(1 2)" "(1 2)"
"(1 2)" "(1 2)"
@ -241,6 +246,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(parameterize ([print-struct #t])(define-struct s (x) (make-inspector))(printf \"~s\\n\" (make-s 1)))" (mktest "(parameterize ([print-struct #t])(define-struct s (x) (make-inspector))(printf \"~s\\n\" (make-s 1)))"
("#(struct:s 1)" ("#(struct:s 1)"
"#(struct:s 1)" "#(struct:s 1)"
"#(struct:s 1)" "#(struct:s 1)"
@ -254,18 +260,20 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; top-level semantics test ;; top-level semantics test
(mktest "(define (f) (+ 1 1)) (define + -) (f)" (mktest "(define (f) (+ 1 1)) (define + -) (f)"
("define-values: cannot change constant variable: +" ("define-values: cannot change constant variable: +"
"define-values: cannot change constant variable: +" "define-values: cannot change constant variable: +"
"define-values: cannot change constant variable: +" "define-values: cannot change constant variable: +"
"define-values: cannot change constant variable: +" "define-values: cannot change constant variable: +"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant variable: \\+" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant variable: \\+"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant variable: \\+") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant variable: \\+")
'interactions 'interactions
#f #f
void void
void) void)
(mktest "(begin (define-struct a ()) (define-struct (b a) ()))" (mktest "(begin (define-struct a ()) (define-struct (b a) ()))"
("" (""
"" ""
"" ""
@ -278,6 +286,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(begin (values) 1)" (mktest "(begin (values) 1)"
("1" ("1"
"1" "1"
"1" "1"
@ -290,12 +299,13 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(begin xx (printf \"hi\\n\"))" (mktest "(begin xx (printf \"hi\\n\"))"
((err-prefix "reference to undefined identifier: xx")
(err-prefix "reference to undefined identifier: xx") ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
(err-prefix "repl-test-tmp3.rkt:1:7: 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.rkt:1:7: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
'definitions 'definitions
#f #f
void void
@ -307,12 +317,12 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
"(require 'n)\n" "(require 'n)\n"
"s") "s")
((err-prefix "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"
(err-prefix "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"
(err-prefix "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} repl-test-tmp3.rkt:1:43: compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1"
(err-prefix "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"
(err-prefix "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"
(err-prefix "repl-test-tmp3.rkt: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
@ -321,6 +331,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; leading comment test ;; leading comment test
(mktest "#!/bin/sh\n1" (mktest "#!/bin/sh\n1"
("1" ("1"
"1" "1"
"1" "1"
@ -333,12 +344,13 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "#!/bin/sh\nxx" (mktest "#!/bin/sh\nxx"
((err-prefix "reference to undefined identifier: xx")
(err-prefix "reference to undefined identifier: xx") ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
(err-prefix "repl-test-tmp3.rkt:2:0: 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.rkt:2:0: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
'definitions 'definitions
#f #f
void void
@ -347,6 +359,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; eval tests ;; eval tests
(mktest " (eval '(values 1 2))" (mktest " (eval '(values 1 2))"
("1\n2" ("1\n2"
"1\n2" "1\n2"
"1\n2" "1\n2"
@ -359,6 +372,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest " (eval '(list 1 2))" (mktest " (eval '(list 1 2))"
("(1 2)" ("(1 2)"
"(1 2)" "(1 2)"
"(1 2)" "(1 2)"
@ -371,42 +385,46 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest " (eval '(lambda ()))" (mktest " (eval '(lambda ()))"
((err-prefix "lambda: bad syntax in: (lambda ())")
(err-prefix "lambda: bad syntax in: (lambda ())") ("{stop-multi.png} lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())") "{stop-multi.png} lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())") "{stop-multi.png} lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())") "lambda: bad syntax in: (lambda ())"
(err-prefix "lambda: bad syntax in: (lambda ())")) "{stop-multi.png} lambda: bad syntax in: (lambda ())"
"{stop-multi.png} lambda: bad syntax in: (lambda ())")
'interactions 'interactions
#f #f
void void
void) void)
(mktest " (read (open-input-string \".\"))" (mktest " (read (open-input-string \".\"))"
((err-prefix "read: illegal use of \".\"")
(err-prefix "read: illegal use of \".\"") ("{stop-multi.png} read: illegal use of \".\""
(err-prefix "read: illegal use of \".\"") "{stop-multi.png} read: illegal use of \".\""
(err-prefix "read: illegal use of \".\"") "{stop-multi.png} read: illegal use of \".\""
(err-prefix "read: illegal use of \".\"") "read: illegal use of \".\""
(err-prefix "read: illegal use of \".\"")) "{stop-multi.png} read: illegal use of \".\""
"{stop-multi.png} read: illegal use of \".\"")
'interactions 'interactions
#f #f
void void
void) void)
(mktest " (eval 'x)" (mktest " (eval 'x)"
((err-prefix "reference to undefined identifier: x")
(err-prefix "reference to undefined identifier: x") ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
(err-prefix "repl-test-tmp3.rkt:1:4: 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.rkt:1:4: reference to undefined identifier: x"
"reference to undefined identifier: x" "reference to undefined identifier: x"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x")
'definitions 'definitions
#f #f
void void
void) void)
(mktest "(eval (box 1))" (mktest "(eval (box 1))"
("#&1" ("#&1"
"#&1" "#&1"
"#&1" "#&1"
@ -419,6 +437,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(eval '(box 1))" (mktest "(eval '(box 1))"
("#&1" ("#&1"
"#&1" "#&1"
"#&1" "#&1"
@ -432,12 +451,13 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
; printer setup test ; printer setup test
(mktest "(expt 3 (void))" (mktest "(expt 3 (void))"
((err-prefix "expt: expected argument of type <number>; given #<void>")
(err-prefix "expt: expected argument of type <number>; given #<void>") ("{stop-multi.png} {stop-22x22.png} expt: expected argument of type <number>; given #<void>"
(err-prefix "repl-test-tmp3.rkt:1:0: 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.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-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #<void>")
'definitions 'definitions
#f #f
void void
@ -445,50 +465,55 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; 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 `)' to close `('" ("1\n2\n{stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "read: expected a `)' to close `('") "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('"
#rx"1\n2\n({[^}]*}|){stop-22x22.png} read: expected a `[)]' to close `[(]'" "1\n2\n{stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "read: expected a `)' to close `('") "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
(err-prefix "repl-test-tmp3.rkt: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
void) void)
(mktest "1 2 . 3 4" (mktest "1 2 . 3 4"
(#rx"1\n2\n({[^}]*}|){stop-22x22.png} read: illegal use of \"[.]\""
"{stop-22x22.png} read: illegal use of \".\"" ("1\n2\n{stop-22x22.png} read: illegal use of \".\""
"{stop-22x22.png} repl-test-tmp3.rkt:1:4: read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} 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-22x22.png} read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} read: illegal use of \".\""
"{stop-22x22.png} repl-test-tmp3.rkt: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
void) void)
(mktest "1 2 (lambda ()) 3 4" (mktest "1 2 (lambda ()) 3 4"
("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.rkt: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-22x22.png} lambda: bad syntax in: (lambda ())" "{stop-multi.png} {stop-22x22.png} lambda: bad syntax in: (lambda ())"
"{stop-22x22.png} repl-test-tmp3.rkt: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
void) void)
(mktest "1 2 x 3 4" (mktest "1 2 x 3 4"
("1\n2\n{stop-22x22.png} reference to undefined identifier: x"
"{stop-22x22.png} reference to undefined identifier: x" ("1\n2\n{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-22x22.png} repl-test-tmp3.rkt:1:4: 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.rkt:1:4: reference to undefined identifier: x"
"1\n2\nreference to undefined identifier: x" "1\n2\nreference to undefined identifier: x"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: x")
'definitions 'definitions
#f #f
void void
void) void)
(mktest "1 2 (raise 1) 3 4" (mktest "1 2 (raise 1) 3 4"
("1\n2\nuncaught exception: 1" ("1\n2\nuncaught exception: 1"
"uncaught exception: 1" "uncaught exception: 1"
"uncaught exception: 1" "uncaught exception: 1"
@ -500,6 +525,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void void
void) void)
(mktest "1 2 (raise #f) 3 4" (mktest "1 2 (raise #f) 3 4"
("1\n2\nuncaught exception: #f" ("1\n2\nuncaught exception: #f"
"uncaught exception: #f" "uncaught exception: #f"
"uncaught exception: #f" "uncaught exception: #f"
@ -512,25 +538,28 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(require lang/htdp-beginner)\n(cond [1 2 3 4])" (mktest "(require lang/htdp-beginner)\n(cond [1 2 3 4])"
("{stop-22x22.png} cond: expected a clause with a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an 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 a question and an answer, but found a clause with 4 parts in:\n 1\n 2\n 3\n 4")
'definitions 'definitions
#f #f
void void
void) void)
;; error across separate files ;; error across separate files
(mktest "(load \"repl-test-tmp2.rkt\") (define (g) (+ 1 (expt 3 #f))) (f g)" (mktest
("{stop-22x22.png} expt: expected argument of type <number>; given #f" "(load \"repl-test-tmp2.rkt\") (define (g) (+ 1 (expt 3 #f))) (f g)"
"{stop-22x22.png} expt: expected argument of type <number>; given #f"
"{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-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-22x22.png} 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-22x22.png} repl-test-tmp3.rkt:1:28: 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.rkt:1:28: expt: expected argument of type <number>; given #f")
'definitions 'definitions
#f #f
(λ () (λ ()
@ -543,24 +572,26 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; 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.rkt: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-22x22.png} if: bad syntax in: if" "{stop-multi.png} {stop-22x22.png} if: bad syntax in: if"
"{stop-22x22.png} repl-test-tmp3.rkt: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
void) void)
(mktest "(current-namespace (make-namespace 'empty))\nif" (mktest "(current-namespace (make-namespace 'empty))\nif"
("{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.rkt: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-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-22x22.png} repl-test-tmp3.rkt: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
@ -568,6 +599,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; macro tests ;; macro tests
(mktest "(define-syntax (c stx) (syntax-case stx () [(_ p q r) (syntax (+ p q r))]))" (mktest "(define-syntax (c stx) (syntax-case stx () [(_ p q r) (syntax (+ p q r))]))"
("" (""
"" ""
"" ""
@ -582,12 +614,13 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; error escape handler test ;; error escape handler test
(mktest (mktest
"(let ([old (error-escape-handler)])\n(+ (let/ec k\n(dynamic-wind\n(lambda () (error-escape-handler (lambda () (k 5))))\n(lambda () (expt 3 #f))\n(lambda () (error-escape-handler old))))\n10))" "(let ([old (error-escape-handler)])\n(+ (let/ec k\n(dynamic-wind\n(lambda () (error-escape-handler (lambda () (k 5))))\n(lambda () (expt 3 #f))\n(lambda () (error-escape-handler old))))\n10))"
("{stop-22x22.png} expt: expected argument of type <number>; given #f\n15"
"{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-22x22.png} repl-test-tmp3.rkt:5:19: 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.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-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: expected argument of type <number>; given #f\n15")
'definitions 'definitions
#f #f
void void
@ -623,6 +656,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; make sure syntax objects only go into good ports ;; make sure syntax objects only go into good ports
(mktest "(define-syntax (foo stx) (with-handlers ([exn:fail? (lambda (x) #'10)]) (syntax-local-value #'foot))) (foo)" (mktest "(define-syntax (foo stx) (with-handlers ([exn:fail? (lambda (x) #'10)]) (syntax-local-value #'foot))) (foo)"
("10" ("10"
"10" "10"
"10" "10"
@ -636,6 +670,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; make sure syntax objects don't go into bad ports ;; make sure syntax objects don't go into bad ports
(mktest "(parameterize ([current-output-port (open-output-string)]) (write #'1))" (mktest "(parameterize ([current-output-port (open-output-string)]) (write #'1))"
("" (""
"" ""
"" ""
@ -648,6 +683,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(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.rkt:1:96.*>" (#rx"#<syntax:.*repl-test-tmp.rkt:1:96.*>"
#rx"#<syntax:.*repl-test-tmp.rkt:1:96.*>" #rx"#<syntax:.*repl-test-tmp.rkt:1:96.*>"
#rx"#<syntax:.*repl-test-tmp3.rkt:1:96.*>" #rx"#<syntax:.*repl-test-tmp3.rkt:1:96.*>"
@ -661,6 +697,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
(mktest "(write-special 1)" (mktest "(write-special 1)"
("1#t" ("1#t"
"1#t" "1#t"
"1#t" "1#t"
@ -676,6 +713,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; the begin/void combo is to make sure that no value printout ;; the begin/void combo is to make sure that no value printout
;; comes and messes up the source location for the error. ;; comes and messes up the source location for the error.
"(define s (make-semaphore 0))\n(queue-callback\n(lambda ()\n(dynamic-wind\nvoid\n(lambda () (expt 3 #f))\n(lambda () (semaphore-post s)))))\n(begin (yield s) (void))" "(define s (make-semaphore 0))\n(queue-callback\n(lambda ()\n(dynamic-wind\nvoid\n(lambda () (expt 3 #f))\n(lambda () (semaphore-post s)))))\n(begin (yield s) (void))"
(#rx"expt: expected argument of type <number>; given #f" (#rx"expt: expected argument of type <number>; given #f"
#rx"expt: expected argument of type <number>; given #f" #rx"expt: expected argument of type <number>; given #f"
#rx"expt: expected argument of type <number>; given #f" #rx"expt: expected argument of type <number>; given #f"
@ -715,6 +753,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; continuation tests ;; continuation tests
(mktest "(define k (call/cc (lambda (x) x)))\n(k 17)\nk" (mktest "(define k (call/cc (lambda (x) x)))\n(k 17)\nk"
("17" ("17"
"17" "17"
"17" "17"
@ -726,6 +765,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void void
void) void)
(mktest "(define v (vector (call/cc (lambda (x) x))))\n((vector-ref v 0) 2)\nv" (mktest "(define v (vector (call/cc (lambda (x) x))))\n((vector-ref v 0) 2)\nv"
("#(2)" ("#(2)"
"#(2)" "#(2)"
"#(2)" "#(2)"
@ -737,6 +777,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void void
void) void)
(mktest "(define v (vector (eval '(call/cc (lambda (x) x)))))\n((vector-ref v 0) 2)\nv" (mktest "(define v (vector (eval '(call/cc (lambda (x) x)))))\n((vector-ref v 0) 2)\nv"
("#(2)" ("#(2)"
"#(2)" "#(2)"
"#(2)" "#(2)"
@ -749,12 +790,13 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest "(define x 1)\n((λ (x y) y) (set! x (call/cc (lambda (x) x)))\n(x 3))" (mktest "(define x 1)\n((λ (x y) y) (set! x (call/cc (lambda (x) x)))\n(x 3))"
("{stop-22x22.png} procedure application: expected procedure, given: 3; arguments were: 3"
"{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-22x22.png} repl-test-tmp3.rkt:3:13: 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.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-22x22.png} .*rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: procedure application: expected procedure, given: 3; arguments were: 3")
'definitions 'definitions
#f #f
void void
@ -762,6 +804,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; top-level & continuation interaction test ;; top-level & continuation interaction test
(mktest "(begin (define k (call/cc (λ (x) x)))\n(define x 'wrong))\n(set! x 'right)\n(k 1)\nx" (mktest "(begin (define k (call/cc (λ (x) x)))\n(define x 'wrong))\n(set! x 'right)\n(k 1)\nx"
("right" ("right"
"right" "right"
"right" "right"
@ -782,6 +825,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
10))) 10)))
(default-continuation-prompt-tag) (default-continuation-prompt-tag)
list)) list))
("(1 2 3)" ("(1 2 3)"
"(1 2 3)" "(1 2 3)"
"(1 2 3)" "(1 2 3)"
@ -807,6 +851,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; graphical lambda tests ;; graphical lambda tests
(mktest (list "((" '("Insert" "Insert λ") "(x) x) 1)") (mktest (list "((" '("Insert" "Insert λ") "(x) x) 1)")
("1" ("1"
"1" "1"
"1" "1"
@ -819,12 +864,13 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
void) void)
(mktest (list "(" '("Insert" "Insert λ") "())") (mktest (list "(" '("Insert" "Insert λ") "())")
("{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.rkt: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-22x22.png} λ: bad syntax in: (λ ())" "{stop-multi.png} {stop-22x22.png} λ: bad syntax in: (λ ())"
"{stop-22x22.png} repl-test-tmp3.rkt: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
@ -832,9 +878,10 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; thread tests ;; thread tests
(mktest "(begin (thread (lambda () x)) (sleep 1/10))" (mktest "(begin (thread (lambda () x)) (sleep 1/10))"
("{stop-22x22.png} reference to undefined identifier: x"
"{stop-22x22.png} reference to undefined identifier: x" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: x"
"{stop-22x22.png} repl-test-tmp3.rkt:1:26: 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.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")
@ -845,12 +892,13 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; brought down from above for comparison ;; brought down from above for comparison
(mktest "xx" (mktest "xx"
("{stop-22x22.png} reference to undefined identifier: xx"
"{stop-22x22.png} reference to undefined identifier: xx" ("{stop-multi.png} {stop-22x22.png} reference to undefined identifier: xx"
"{stop-22x22.png} repl-test-tmp3.rkt:1:0: 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.rkt:1:0: reference to undefined identifier: xx"
"reference to undefined identifier: xx" "reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx" #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx"
#rx"{stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx") #rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier: xx")
'definitions 'definitions
#f #f
void void
@ -859,6 +907,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
;; setup of the namespaces for pict printing (from slideshow) ;; setup of the namespaces for pict printing (from slideshow)
(mktest "(require texpict/utils)(disk 3)" (mktest "(require texpict/utils)(disk 3)"
("{image}" ("{image}"
"{image}" "{image}"
"{image}" "{image}"
@ -876,6 +925,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
(current-namespace (make-namespace)) (current-namespace (make-namespace))
(namespace-set-variable-value! 'd (disk 3))) (namespace-set-variable-value! 'd (disk 3)))
'd) 'd)
("#<pict>" ("#<pict>"
"#<pict>" "#<pict>"
"#<pict>" "#<pict>"
@ -893,6 +943,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
(namespace-attach-module on n)) (namespace-attach-module on n))
'(require texpict/utils) '(require texpict/utils)
'(disk 3)) '(disk 3))
("{image}" ("{image}"
"{image}" "{image}"
"{image}" "{image}"
@ -908,6 +959,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
"(require mzlib/pretty)" "(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)")
("(1 2 3)" ("(1 2 3)"
"(1 2 3)" "(1 2 3)"
"(1 2 3)" "(1 2 3)"
@ -922,6 +974,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
(mktest (format "~s\n~s" (mktest (format "~s\n~s"
`(require scheme/pretty) `(require scheme/pretty)
`(parameterize ((pretty-print-exact-as-decimal #t)) (display 1/4))) `(parameterize ((pretty-print-exact-as-decimal #t)) (display 1/4)))
("1/4" ("1/4"
"1/4" "1/4"
"1/4" "1/4"
@ -945,6 +998,7 @@ a (regexp-quote "tests/drracket/repl-test-tmp")
"(with-handlers ((void values)) (eval '(lambda ())))))\n" "(with-handlers ((void values)) (eval '(lambda ())))))\n"
"(lambda ()\n" "(lambda ()\n"
"(display (get-output-string p)))))\n") "(display (get-output-string p)))))\n")
("x in: (lambda ())" ("x in: (lambda ())"
"x in: (lambda ())" "x in: (lambda ())"
"x in: (lambda ())" "x in: (lambda ())"