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

cs: disable zo test that can't work

Browse Source
This commit is contained in:
Matthew Flatt 2019-04-30 10:45:08 -06:00
parent 258fb8fafd
commit fcb75e69ff
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
pkgs/compiler-test/tests/compiler/zo-exs.rkt
View File

@ -13,25 +13,26 @@
(system (format "racket ~a -t test.rkt" (if delayed? "" "-d"))))
(define (roundtrip ct-in)
(define ct (if (linkl-directory? ct-in)
(linkl-directory
(for/hash ([(k v) (linkl-directory-table ct-in)])
(if (linkl-bundle? v)
(values k
(linkl-bundle
(hash-set (linkl-bundle-table v)
'vm
(string->bytes/utf-8 (symbol->string (system-type 'vm))))))
(values k v))))
ct-in))
(define bs (zo-marshal ct))
(test #:failure-prefix (format "~S" ct)
(test bs
(zo-parse (open-input-bytes bs)) => ct
(read-compiled-bytes bs)
#;(with-output-to-file "compiled/test_rkt.zo" (λ () (write-bytes bs)) #:exists 'replace)
#;(run-compiled-bytes bs #t)
#;(run-compiled-bytes bs #f))))
(unless (eq? 'chez-scheme (system-type 'vm)) ; currently can't synthesize machine code
(define ct (if (linkl-directory? ct-in)
(linkl-directory
(for/hash ([(k v) (linkl-directory-table ct-in)])
(if (linkl-bundle? v)
(values k
(linkl-bundle
(hash-set (linkl-bundle-table v)
'vm
(string->bytes/utf-8 (symbol->string (system-type 'vm))))))
(values k v))))
ct-in))
(define bs (zo-marshal ct))
(test #:failure-prefix (format "~S" ct)
(test bs
(zo-parse (open-input-bytes bs)) => ct
(read-compiled-bytes bs)
#;(with-output-to-file "compiled/test_rkt.zo" (λ () (write-bytes bs)) #:exists 'replace)
#;(run-compiled-bytes bs #t)
#;(run-compiled-bytes bs #f)))))
(define mpi (module-path-index-join #f #f))