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

repair test for new compilation-top field

Browse Source
This commit is contained in:
Matthew Flatt 2015-09-05 17:39:31 -06:00
parent 89d99b92da
commit 6632070f75
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler-test/tests/compiler/zo-exs.rkt
View File

@ -28,20 +28,24 @@
(test (test
(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
#hash()
(prefix 0 empty empty 'insp0) (prefix 0 empty empty 'insp0)
(list 1 (list 2 3) (list 2 3) 4 5))) (list 1 (list 2 3) (list 2 3) 4 5)))
(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
#hash()
(prefix 1 empty empty 'insp0) (prefix 1 empty empty 'insp0)
(list (lam 'proc null 0 null #f #(0) '(val/ref) (set 0) 3 1)))) (list (lam 'proc null 0 null #f #(0) '(val/ref) (set 0) 3 1))))
(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
#hash()
(prefix 1 empty empty 'insp0) (prefix 1 empty empty 'insp0)
(list (lam 'proc null 0 null #f #(0) '(val/ref) #f 3 1)))) (list (lam 'proc null 0 null #f #(0) '(val/ref) #f 3 1))))
#;(roundtrip #;(roundtrip
(compilation-top 0 (compilation-top 0
#hash()
(prefix 0 empty empty) (prefix 0 empty empty)
(let* ([ph (make-placeholder #f)] (let* ([ph (make-placeholder #f)]
[x (closure [x (closure
@ -62,6 +66,7 @@
#;(roundtrip #;(roundtrip
(compilation-top (compilation-top
0 0
#hash()
(prefix 0 (list #f) (list)) (prefix 0 (list #f) (list))
(mod (mod
'simple 'simple
@ -94,17 +99,20 @@
(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
#hash()
(prefix 0 empty empty 'insp0) (prefix 0 empty empty 'insp0)
(current-directory))) (current-directory)))
(roundtrip (roundtrip
(compilation-top 0 (compilation-top 0
#hash()
(prefix 0 empty empty 'insp0) (prefix 0 empty empty 'insp0)
(list (current-directory)))) (list (current-directory))))
(roundtrip (roundtrip
(compilation-top (compilation-top
0 0
#hash()
(prefix 0 empty empty 'insp0) (prefix 0 empty empty 'insp0)
(cons #hash() (cons #hash()
#hash()))) #hash())))
@ -112,5 +120,6 @@
(roundtrip (roundtrip
(compilation-top (compilation-top
0 0
#hash()
(prefix 0 empty empty 'insp0) (prefix 0 empty empty 'insp0)
#hash()))) #hash())))