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

Just fixing the unit testcases so that they don't error.

Browse Source 
svn: r17579
This commit is contained in:
Stevie Strickland 2010-01-08 21:03:17 +00:00
parent b63c4bb8d0
commit 1c47ecc346
1 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
collects/tests/units/test-unit.ss
View File

@ -1,3 +1,5 @@
#lang scheme/load
(require (for-syntax mzlib/private/unit-compiletime (require (for-syntax mzlib/private/unit-compiletime
mzlib/private/unit-syntax)) mzlib/private/unit-syntax))
(require "test-harness.ss" (require "test-harness.ss"
@ -148,35 +150,41 @@
(define-signature x (a b)) (define-signature x (a b))
(lookup-sig-mac x))) (lookup-sig-mac x)))
(let () (let ()
(define-signature super (s1 (define-values (s2 s3) s4) (define-syntaxes (s5 s6) s7))) (define s7 (void))
(test stx-bound-id=? #'((s1 a b f) (((s2 s3) . s4) ((c d) . e) ((i) . j)) (((s5 s6) . s7) ((g) . h))) (define h (void))
(define-signature super (s1 (define-values (s2 s3) s4) (define-syntaxes (s5 s6) (values #'s7 #'s7))))
(test stx-bound-id=? #'((s1 a b f) (((s2 s3) . s4) ((c d) . e) ((i) . j)) (((s5 s6) . (values #'s7 #'s7)) ((g) . #'h)))
(let () (let ()
(define-signature x extends super (a b (define-values (c d) e) f (define-signature x extends super (a b (define-values (c d) e) f
(define-syntaxes (g) h) (define-syntaxes (g) #'h)
(define-values (i) j))) (define-values (i) j)))
(lookup-sig-mac x)))) (lookup-sig-mac x))))
(let () (let ()
(define-signature super (s1 (define-values (s2 s3) s4) (define-syntaxes (s5 s6) s7))) (define s7 (void))
(let ((a 1) (g 2) (j 3) (s1 4) (s2 5) (s7 6)) (define h (void))
(test stx-bound-id=? #'(((#f . s1) a b f) ((((#f . s2) s3) . s4) ((c d) . e) ((i) . j)) (((s5 s6) . (#f . s7)) ((g) . h))) (define-signature super (s1 (define-values (s2 s3) s4) (define-syntaxes (s5 s6) (values #'s7 #'s7))))
(let ((a 1) (g 2) (j 3) (s1 4) (s2 5))
(test stx-bound-id=? #'(((#f . s1) a b f) ((((#f . s2) s3) . s4) ((c d) . e) ((i) . j)) (((s5 s6) . (values #'s7 #'s7)) ((g) . #'h)))
(let () (let ()
(define-signature x extends super (a b (define-values (c d) e) f (define-signature x extends super (a b (define-values (c d) e) f
(define-syntaxes (g) h) (define-syntaxes (g) #'h)
(define-values (i) j))) (define-values (i) j)))
(lookup-sig-mac x))))) (lookup-sig-mac x)))))
(let () (let ()
(define-signature super (s1 (define-values (s2 s3) s4) (define-syntaxes (s5 s6) s7))) (define s7 (void))
(test stx-bound-id=? #'((s1 a b f) (((s2 s3) . s4) ((c d) . e) ((i) . j)) (((s5 s6) . s7) ((g) . h))) (define h (void))
(define-signature super (s1 (define-values (s2 s3) s4) (define-syntaxes (s5 s6) (values #'s7 #'s7))))
(test stx-bound-id=? #'((s1 a b f) (((s2 s3) . s4) ((c d) . e) ((i) . j)) (((s5 s6) . (values #'s7 #'s7)) ((g) . #'h)))
(let () (let ()
(define-signature x extends super (a b (define-values (c d) e) f (define-signature x extends super (a b (define-values (c d) e) f
(define-syntaxes (g) h) (define-syntaxes (g) #'h)
(define-values (i) j))) (define-values (i) j)))
(let ((a 1) (g 2) (j 3)) (let ((a 1) (g 2) (j 3))
(lookup-sig-mac x))))) (lookup-sig-mac x)))))
(test stx-bound-id=? #'(((#f . a) b f) (((c d) . e) ((i) . (#f . j))) ((((#f . g)) . h))) (test stx-bound-id=? #'(((#f . a) b f) (((c d) . e) ((i) . (#f . j))) ((((#f . g)) . #'h)))
(let ((a 1) (g 2) (j 3)) (let ((a 1) (g 2) (j 3))
(define-signature x (a b (define-values (c d) e) f (define-signature x (a b (define-values (c d) e) f
(define-syntaxes (g) h) (define-syntaxes (g) #'h)
(define-values (i) j))) (define-values (i) j)))
(lookup-sig-mac x))) (lookup-sig-mac x)))
(let () (let ()