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

catch up test suite for recent changes

Browse Source 
svn: r8055
This commit is contained in:
Matthew Flatt 2007-12-18 22:07:30 +00:00
parent 3d8d11051b
commit e3b4751adb
6 changed files with 12 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/contract-test.ss
View File

@ -10,7 +10,8 @@
(namespace-require '(for-syntax scheme/base))
(namespace-require '(for-template scheme/base))
(namespace-require 'scheme/contract)
(namespace-require 'scheme/class))
(namespace-require 'scheme/class)
(namespace-require 'scheme/promise))
n))
(define (contract-eval x)

2
collects/tests/mzscheme/optimize.ss
View File

@ -357,8 +357,6 @@
'(f 5))
(test-comp '(parameterize () (f 5))
'(f 5))
(test-comp '(fluid-let () (f 5))
'(f 5))
(test-comp '(let ([i (cons 0 1)]) (let ([j i]) j))
'(let ([i (cons 0 1)]) i))

2
collects/tests/mzscheme/pp-regression.ss
View File

File diff suppressed because one or more lines are too long

10
collects/tests/mzscheme/pretty.ss
View File

@ -64,10 +64,12 @@
(test "#&10" pretty-format (box 10))
(parameterize ([print-box #f])
(test "#<box>" pretty-format (box 10)))
(test "#1(10)" pretty-format (vector 10))
(test "#2(10)" pretty-format (vector 10 10))
(parameterize ([print-vector-length #f])
(test "#(10 10)" pretty-format (vector 10 10)))
(test "#(10)" pretty-format (vector 10))
(test "#(10 10)" pretty-format (vector 10 10))
(parameterize ([print-vector-length #t])
(test "#1(10)" pretty-format (vector 10))
(test "#2(10)" pretty-format (vector 10 10))
(test "#2(10 20)" pretty-format (vector 10 20)))
(test "#hasheq((1 . 2))" pretty-format (let ([ht (make-hash-table)])
(hash-table-put! ht 1 2)
ht))

2
collects/tests/mzscheme/stx.ss
View File

@ -444,7 +444,7 @@
b)))
(test '('#%kernel case-lambda scheme/init case-lambda #f) identifier-binding* #'case-lambda)
(test '("more-scheme.ss" delay scheme/init delay #f) identifier-binding* #'delay)
(test '(scheme/promise delay scheme/init delay #f) identifier-binding* #'delay)
(test '('#%kernel #%module-begin scheme/init #%plain-module-begin #f) identifier-binding* #'#%plain-module-begin)
(require (only-in scheme/base [#%plain-module-begin #%pmb]))
(test '('#%kernel #%module-begin scheme/base #%plain-module-begin #f) identifier-binding* #'#%pmb)

30
collects/tests/mzscheme/syntax.ss
View File

@ -1,6 +1,8 @@
(load-relative "loadtest.ss")
(Section 'syntax)
;; ----------------------------------------
(test 0 'with-handlers (with-handlers () 0))
@ -519,8 +521,6 @@
(with-handlers () ,@body)))
(teval `(test ,val 'with-handlers-begin
(with-handlers ([void void]) ,@body)))
(teval `(test ,val 'fluid-let-begin (fluid-let () ,@body)))
(teval `(test ,val 'fluid-let-begin (fluid-let ([x 20]) ,@body)))
(syntax-test (datum->syntax #f `(when (positive? 1) ,@body) #f))
(syntax-test (datum->syntax #f `(unless (positive? -1) ,@body) #f))
(syntax-test (datum->syntax #f `(cond [(positive? 1) ,@body][else #f]) #f))
@ -897,32 +897,6 @@
(define x 1)
(define y -1)
(define (get-x) x)
(test 5 'fluid-let (fluid-let () 5))
(test 2 'fluid-let (fluid-let ([x 2]) x))
(test 0 'fluid-let (fluid-let ([x 2][y -2]) (+ x y)))
(test 20 'fluid-let (fluid-let ([x 20]) (get-x)))
(test 1 'fluid-let-done x)
(error-test #'(fluid-let ([x 10]) (error 'bad)) exn:fail?)
(test 1 'fluid-let-done-escape x)
(test 3 'fluid-let (let* ([x 0][y (lambda () x)]) (fluid-let ([x 3]) (y))))
(test 0 'fluid-let (let* ([x 0][y (lambda () x)]) (fluid-let ([x 3]) (y)) (y)))
(test-values '(34 56) (lambda () (fluid-let ([x 34][y 56]) (values x y))))
(test 'second 'fluid-let (fluid-let ([x 2][y -2]) (+ x y) 'second))
(error-test #'(fluid-let ([undefined-variable 0]) 8) exn:fail:contract:variable?)
(syntax-test #'fluid-let)
(syntax-test #'(fluid-let))
(syntax-test #'(fluid-let . 1))
(syntax-test #'(fluid-let x 9))
(syntax-test #'(fluid-let 1 9))
(syntax-test #'(fluid-let (x) 9))
(syntax-test #'(fluid-let ([x]) 9))
(syntax-test #'(fluid-let ([x . 5]) 9))
(syntax-test #'(fluid-let ([x 5] . y) 9))
(syntax-test #'(fluid-let ([x 5] [y]) 9))
(syntax-test #'(fluid-let ([x 5]) . 9))
(syntax-test #'(fluid-let ([x 5]) 9 . 10))
(test 5 'parameterize (parameterize () 5))
(test 6 'parameterize (parameterize ([error-print-width 10]) 6))