1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/env escript
%! -smp enable -sname create_disk debug verbose
% libguestfs generated file
% WARNING: THIS FILE IS GENERATED FROM THE FOLLOWING FILES:
% generator/bindtests.ml
% and from the code in the generator/ subdirectory.
% ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.
%
% Copyright (C) 2009-2019 Red Hat Inc.
%
% This program is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License along
% with this program; if not, write to the Free Software Foundation, Inc.,
% 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
main(_) ->
{ok, G} = guestfs:create(),
% We have to set the output file here because otherwise the
% bindtests code would print its output on stdout, and that
% channel is also being used by the erl-guestfs communications.
Filename = "bindtests.tmp",
ok = guestfs:internal_test_set_output(G, Filename),
ok = guestfs:internal_test(G, "abc", "def", [], false, 0, 0, "123", "456", "abc\0abc", [{obool, true}, {oint, 1}, {oint64, 9223372036854775807}]),
ok = guestfs:internal_test(G, "abc", undefined, [], false, 0, 0, "123", "456", "abc\0abc", [{oint64, 1}, {ostring, "string"}]),
ok = guestfs:internal_test(G, "", "def", [], false, 0, 0, "123", "456", "abc\0abc", [{obool, false}, {oint64, -9223372036854775808}]),
ok = guestfs:internal_test(G, "", "", [], false, 0, 0, "123", "456", "abc\0abc", []),
ok = guestfs:internal_test(G, "abc", "def", ["1"], false, 0, 0, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1","2"], false, 0, 0, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1"], true, 0, 0, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1"], false, -1, -1, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1"], false, -2, -2, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1"], false, 1, 1, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1"], false, 2, 2, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1"], false, 4095, 9223372036854775807, "123", "456", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", ["1"], false, 0, -9223372036854775808, "", "", "abc\0abc"),
ok = guestfs:internal_test(G, "abc", "def", [], false, 0, 0, "123", "456", "abc\0abc", [{ostringlist, []}]),
ok = guestfs:internal_test(G, "abc", "def", [], false, 0, 0, "123", "456", "abc\0abc", [{ostringlist, ["optelem1"]}]),
ok = guestfs:internal_test(G, "abc", "def", [], false, 0, 0, "123", "456", "abc\0abc", [{ostringlist, ["optelem1","optelem2"]}]),
ok = guestfs:internal_test(G, "abc", "def", [], false, 0, 0, "123", "456", "abc\0abc", [{ostringlist, ["optelem1","optelem2","optelem3"]}]),
ok = guestfs:internal_test_close_output(G),
ok = guestfs:close(G),
{ok, File} = file:open(Filename, [append]),
ok = file:write(File, "EOF\n"),
ok = file:close(File).
|
