Fix the module-reader tests.

svn: r17183
This commit is contained in:
Stevie Strickland 2009-12-04 20:18:14 +00:00
parent 40b17fa7de
commit 5650cb9647

View File

@ -20,7 +20,7 @@
;; plain version
(module r0 syntax/module-reader scheme/base)
(test-both '(r0) "#reader '~s (define FoO #:bAr)"
'(module page scheme/base (define FoO #:bAr)))
'(module page scheme/base (#%module-begin (define FoO #:bAr))))
;; using a simple wrapper to get a case-insensitive reader
(module r1 syntax/module-reader scheme/base
@ -35,7 +35,7 @@
(parameterize ([read-case-sensitive #f]) (apply reader args))))
;;
(test-both '(r1 r2 r3) "#reader '~s (define FoO #:bAr)"
'(module page scheme/base (define foo #:bar)))
'(module page scheme/base (#%module-begin (define foo #:bar))))
;; add something to the result
(module r4 syntax/module-reader zzz
@ -45,7 +45,7 @@
#:wrapper1 (lambda (t stx?) (cons (if stx? #'foo 'foo) (t))))
;;
(test-both '(r4 r5) "#reader '~s (define foo #:bar)"
'(module page zzz foo (define foo #:bar)))
'(module page zzz (#%module-begin foo (define foo #:bar))))
;; make an empty module, after reading the contents
(module r6 syntax/module-reader zzz
@ -56,14 +56,14 @@
;; forget about the input -- just return a fixed empty input module
(module r8 syntax/module-reader whatever
#:wrapper2 (lambda (in rd)
(if (syntax? (rd in)) #'(module page zzz) '(module page zzz))))
(if (syntax? (rd in)) #'(module page zzz (#%module-begin)) '(module page zzz (#%module-begin)))))
;; the same, the easy way
(module r9 syntax/module-reader
#:language (lambda () 'zzz)
#:wrapper1 (lambda (t) '()))
;;
(test-both '(r6 r7 r8 r9) "#reader '~s (define foo #:bar)"
'(module page zzz))
'(module page zzz (#%module-begin)))
;; a module that uses the scribble syntax with a specified language
(module r10 syntax/module-reader -ignored-
@ -89,9 +89,9 @@
(require scribble/reader))
;;
(test-both '(r10 r11) "#reader '~s scheme/base (define foo 1)"
'(module page scheme/base (define foo 1)))
'(module page scheme/base (#%module-begin (define foo 1))))
(test-both '(r10 r11) "#reader '~s scheme/base @define[foo]{one}"
'(module page scheme/base (define foo "one")))
'(module page scheme/base (#%module-begin (define foo "one"))))
;; ----------------------------------------