From c44c04128128001bf0e0992b284c4437d3b795d3 Mon Sep 17 00:00:00 2001 From: Michael Santos Date: Thu, 16 Aug 2012 16:17:35 -0400 Subject: [PATCH] Convenience wrapper around virDomainCreate/2 --- README.md | 2 +- src/vert.erl | 4 +++- test/vert_tests.erl | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 97137ec..a86d0da 100644 --- a/README.md +++ b/README.md @@ -55,7 +55,7 @@ To call the same functions in Erlang: {ok, Connect} = vert:virConnectOpen("qemu:///system"), {ok, XML} = file:read_file(Path), {ok, Domain} = vert:virDomainDefineXML(Connect, XML), - ok = vert:virDomainCreate(Domain, 0), + ok = vert:virDomainCreate(Domain), Active = vert:virConnectNumOfDomains(Connect), io:format("Active Domains: ~p~n", [Active]), diff --git a/src/vert.erl b/src/vert.erl index 2a5d0b9..2bfcecb 100644 --- a/src/vert.erl +++ b/src/vert.erl @@ -86,7 +86,7 @@ virDomainGetAutostart/1, virDomainDestroy/1, virDomainDefineXML/2, - virDomainCreate/2, + virDomainCreate/1, virDomainCreate/2, virDomainOpenConsole/2, virDomainOpenConsole/3, virConnectOpen/1, virConnectOpenReadOnly/1, @@ -573,6 +573,8 @@ virDomainDefineXML(#resource{type = connect, res = Res}, Xml) when is_binary(Xml %virDomainCreateXML(Conn, XmlDesc, Flags) -> +virDomainCreate(Domain) -> + virDomainCreate(Domain, 0). virDomainCreate(#resource{type = domain, res = Res}, Flags) when is_integer(Flags) -> ok(call(virDomainCreate, [Res, Flags])). diff --git a/test/vert_tests.erl b/test/vert_tests.erl index 5811455..8fb51b5 100644 --- a/test/vert_tests.erl +++ b/test/vert_tests.erl @@ -62,7 +62,7 @@ create_test() -> {ok, XML} = file:read_file(Path), {ok, Domain} = vert:virDomainDefineXML(Connect, XML), - ok = vert:virDomainCreate(Domain, 0), + ok = vert:virDomainCreate(Domain), Active = vert:virConnectNumOfDomains(Connect),