From 9cc15cb49d3aea15da1cfc06efbd47aa9bc8e15d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Jul 2014 15:50:26 +0100 Subject: [PATCH] add multiple-values test for `replace-evt` --- pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl | 8 ++++++++ 1 file changed, 8 insertions(+) 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