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

re-enabling tests

Browse Source
This commit is contained in:
Blake Johnson 2010-09-10 12:42:34 -06:00 committed by Jay McCarthy
parent 6338a97e0a
commit 1cb11ce6cc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/compiler/zo-exs.rkt
View File

@ -19,10 +19,11 @@
(test (test
#;(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
(prefix 0 empty empty) (prefix 0 empty empty)
(list 1 (list 2 3) (list 2 3) 4 5))) (list 1 (list 2 3) (list 2 3) 4 5)))
; XXX This should work, but closures have a field that is gensym'ed
#;(roundtrip #;(roundtrip
(compilation-top 0 (compilation-top 0
(prefix 0 empty empty) (prefix 0 empty empty)
@ -42,6 +43,7 @@
(placeholder-set! ph x) (placeholder-set! ph x)
(make-reader-graph x)))) (make-reader-graph x))))
; This should work, but module-path-index-join doesn't create equal? module-path-index's
#;(roundtrip #;(roundtrip
(compilation-top (compilation-top
0 0
@ -74,12 +76,12 @@
(toplevel 0 0 #f #f) (toplevel 0 0 #f #f)
#(racket/language-info get-info #f) #(racket/language-info get-info #f)
#t))) #t)))
#;(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
(prefix 0 empty empty) (prefix 0 empty empty)
(current-directory))) (current-directory)))
#;(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
(prefix 0 empty empty) (prefix 0 empty empty)
(list (current-directory)))) (list (current-directory))))