diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl index 4eda6bdd38..76f0c7667d 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl @@ -626,6 +626,14 @@ (test always-evt sync always-evt (replace-evt never-evt (lambda () 10))) (err/rt-test (sync (replace-evt always-evt (lambda () 10)))) +(test 17 sync (replace-evt (wrap-evt always-evt + (lambda (_) + (values 3 14))) + (lambda (a b) + (wrap-evt always-evt + (lambda (_) + (+ a b)))))) + ;; ---------------------------------------- ;; Structures as waitables