From 14a6f39865b13b02990eec54ab7940c3f7c0909c Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Mon, 20 Jul 2009 09:03:49 +0100 Subject: [PATCH] add the timeout operation when interpreting a response from xenvm --- tests/xenvm/test.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/xenvm/test.ml b/tests/xenvm/test.ml index 542c9b7..8c84f7a 100644 --- 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 -- 2.39.5