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

reapir test for zo-parse

Browse Source
This commit is contained in:
Matthew Flatt 2019-02-02 13:08:49 -07:00
parent acb2cfc465
commit 3a821bbeb7
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,7 +12,18 @@
(system "touch compiled/test_rkt.zo") (system "touch compiled/test_rkt.zo")
(system (format "racket ~a -t test.rkt" (if delayed? "" "-d")))) (system (format "racket ~a -t test.rkt" (if delayed? "" "-d"))))
(define (roundtrip ct) (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)) (define bs (zo-marshal ct))
(test #:failure-prefix (format "~S" ct) (test #:failure-prefix (format "~S" ct)
(test bs (test bs