erlang: Add tests.

Add bindtests and general tests for Erlang.

1 files changed, 23 insertions, 0 deletions

diff --git a/erlang/tests/010-load.erl b/erlang/tests/010-load.erl
new file mode 100755
index 00000000..34ade754
--- /dev/null
+++ b/erlang/tests/010-load.erl
@@ -0,0 +1,23 @@
+#!/usr/bin/env escript
+%! -smp enable -sname create_disk debug verbose
+
+% libguestfs Erlang tests -*- erlang -*-
+% Copyright (C) 2009-2012 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(),
+    ok = guestfs:close(G).
\ No newline at end of file