let string_of_message_to_worker =
    function
      | Exit -> "Exit"
      | AckLock _ -> "AckLock _"
      | RunTest _ -> "RunTest _"