diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt new file mode 100644 index 0000000000..2f6eb92c10 --- /dev/null +++ b/pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt @@ -0,0 +1,8 @@ +#lang racket/base +(require racket/serialize) + +(serializable-struct foo (a b)) + +(define f (deserialize (serialize (foo 1 2)))) +(foo-a f) +(foo-b f) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl index 0a2527aa46..8b5e246814 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl @@ -312,6 +312,14 @@ (path->string (build-path (collection-path "tests" "racket") "embed-me22.rkt"))) (try-exe (mk-dest mred?) "Configure!\nThis is 22.\n" mred?) + ;; raco exe on a module with serialization + (system* raco + "exe" + "-o" (path->string (mk-dest mred?)) + (if mred? "--gui" "--") + (path->string (build-path (collection-path "tests" "racket") "embed-me23.rkt"))) + (try-exe (mk-dest mred?) "1\n2\n" mred?) + ;; raco exe --launcher (system* raco "exe"