From fcb75e69ffded458f9cc98583d87a6c626f461ea Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 30 Apr 2019 10:45:08 -0600
Subject: [PATCH] cs: disable zo test that can't work

---
 pkgs/compiler-test/tests/compiler/zo-exs.rkt | 39 ++++++++++----------
 1 file changed, 20 insertions(+), 19 deletions(-)

diff --git a/pkgs/compiler-test/tests/compiler/zo-exs.rkt b/pkgs/compiler-test/tests/compiler/zo-exs.rkt
index 2a4baeb286..1cea14c7e3 100644
--- a/pkgs/compiler-test/tests/compiler/zo-exs.rkt
+++ b/pkgs/compiler-test/tests/compiler/zo-exs.rkt
@@ -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))