erlang: Add tests.

Add bindtests and general tests for Erlang.

3 files changed, 59 insertions, 2 deletions

diff --git a/erlang/Makefile.am b/erlang/Makefile.am
index 2c9e3592..7ebc4443 100644
--- a/erlang/Makefile.am
+++ b/erlang/Makefile.am
@@ -18,11 +18,14 @@
 include $(top_srcdir)/subdir-rules.mk
 
 generator_built = \
-	guestfs.erl \
-	erl-guestfs.c
+	bindtests.erl \
+	erl-guestfs.c \
+	guestfs.erl
 
 EXTRA_DIST = \
 	$(generator_built) \
+	run-bindtests \
+	tests/*.erl \
 	README
 
 if HAVE_ERLANG
@@ -51,4 +54,12 @@ erl_guestfs_LDADD = \
 	$(top_builddir)/src/libguestfs.la \
 	../gnulib/lib/libgnu.la
 
+TESTS_ENVIRONMENT = PATH=$(builddir):$$PATH $(top_builddir)/run --test
+
+TESTS = run-bindtests
+
+if ENABLE_APPLIANCE
+TESTS += tests/010-load.erl
+endif
+
 endif
diff --git a/erlang/run-bindtests b/erlang/run-bindtests
new file mode 100755
index 00000000..1a6aea5f
--- /dev/null
+++ b/erlang/run-bindtests
@@ -0,0 +1,23 @@
+#!/bin/sh -
+# libguestfs Erlang bindings
+# 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.
+
+set -e
+
+# The output is sent to bindtests.tmp.
+./bindtests.erl
+diff -u $srcdir/../bindtests bindtests.tmp
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