add the timeout operation when interpreting a response from xenvm

diff --git a/tests/xenvm/test.ml b/tests/xenvm/test.ml
index 542c9b7c26072d8cdab6ad0ef0a52a12ea141c69..8c84f7a81e1f6f091982639da476b5d50cf95626 100644 (file)
--- a/tests/xenvm/test.ml
+++ b/tests/xenvm/test.ml
@@ -50,6 +50,7 @@ let xenvm_cmd identifier s =
        | Xenvmlib.Error error -> failwith (sprintf "error xenvm-cmd: %s" error)
        | Xenvmlib.Msg msg     -> Some msg
        | Xenvmlib.Unknown s   -> failwith (sprintf "error unknown reply: %s" s)
+       | Xenvmlib.Timeout     -> failwith (sprintf "operation timeout")
 
 let xenvm_start config =
        let uuid = Uuid.to_string (Uuid.make_uuid ()) in