From a4b0545974c2d5d7d77eced1701e6c217e00a195 Mon Sep 17 00:00:00 2001 From: Loic Denuziere Date: Fri, 6 Jul 2018 16:52:15 +0200 Subject: [PATCH] Web Workers: test messaging with addEventListener --- tests/WebSharper.Html5.Tests/Tests.fs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/tests/WebSharper.Html5.Tests/Tests.fs b/tests/WebSharper.Html5.Tests/Tests.fs index a16bcefab..24c078eeb 100644 --- a/tests/WebSharper.Html5.Tests/Tests.fs +++ b/tests/WebSharper.Html5.Tests/Tests.fs @@ -473,12 +473,16 @@ let WebWorkerTests = equal res "The worker replied: [worker] Hello world!" let worker2 = new Worker(fun self -> - self.Onmessage <- fun e -> - self.PostMessage(GlobalFunction2(As e.Data)) + self.AddEventListener("message", (fun (e: Dom.Event) -> + let e = e :?> MessageEvent + self.PostMessage(GlobalFunction2(As e.Data)) + ), false) ) let! res = AsyncContinuationTimeout "Worker didn't run" <| fun ok -> - worker2.Onmessage <- fun e -> - ok ("The worker replied: " + As e.Data) + worker2.AddEventListener("message", (fun (e: Dom.Event) -> + let e = e :?> MessageEvent + ok ("The worker replied: " + As e.Data) + ), false) worker2.PostMessage "Hello world!" equal res "The worker replied: [worker2] Hello world!" }