anchor.diff:                  worker.Onmessage <- fun e ->
                       ok ("The worker replied: " + As<string> e.Data)
                   worker.PostMessage "Hello world!"
  +            worker.Terminate()
               equal res "The worker replied: [worker] Hello world!"
           }
   
  
positive.code:             let! res = AsyncContinuationTimeout "Worker didn't run" <| fun ok ->
                  worker.Onmessage <- fun e -> ok <| string (e.Data :?> bool)
                  worker.PostMessage(())
              equalMsg res "false" "default doesn't include js exports"
          }
  
  
negative.code:                 worker.Onmessage <- fun e ->
                      ok ("The worker replied: " + As<string> e.Data)
                  worker.PostMessage "Hello world!"
              worker.Terminate()
              equal res "The worker replied: [worker] Hello world!"
  
              let worker2 = new Worker(fun self ->
  