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

add test for define-serializable-cstruct at top level

Browse Source
This commit is contained in:
Matthew Flatt 2018-01-25 07:16:42 -07:00
parent 8dcfd3d266
commit a9b658bb4c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-test-core/tests/racket/foreign-test.rktl
View File

@ -702,7 +702,6 @@
(err/rt-test (in-array '(1 2 3)) exn:fail:contract?)) (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 () ...)) ;; check cstruct serialization (define-serialize-cstruct must be at module level, can't use (let () ...))
(module mod-cstruct-serialize racket/base (module mod-cstruct-serialize racket/base
(require (for-syntax racket/base) (require (for-syntax racket/base)
@ -1060,6 +1059,12 @@
(require (only-in 'mod-cstruct-serialize)) (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) (define-cpointer-type _foo)