From a9b658bb4cd45ae08e098758a3af48c803b9d826 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 25 Jan 2018 07:16:42 -0700 Subject: [PATCH] add test for `define-serializable-cstruct` at top level --- pkgs/racket-test-core/tests/racket/foreign-test.rktl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/foreign-test.rktl b/pkgs/racket-test-core/tests/racket/foreign-test.rktl index d707136419..c046f04026 100644 --- a/pkgs/racket-test-core/tests/racket/foreign-test.rktl +++ b/pkgs/racket-test-core/tests/racket/foreign-test.rktl @@ -702,7 +702,6 @@ (err/rt-test (in-array '(1 2 3)) exn:fail:contract?)) - ;; check cstruct serialization (define-serialize-cstruct must be at module level, can't use (let () ...)) (module mod-cstruct-serialize racket/base (require (for-syntax racket/base) @@ -1060,6 +1059,12 @@ (require (only-in 'mod-cstruct-serialize)) +;; Check that `define-serializable-cstruct' works in a top-level context +(require racket/serialize + ffi/serialize-cstruct) +(define-serializable-cstruct _serializable-example-1 ([a _int])) +(test 17 serializable-example-1-a (deserialize (serialize (make-serializable-example-1 17)))) + ;; ---------------------------------------- (define-cpointer-type _foo)