diff options
author | Richard Jones <rjones@redhat.com> | 2009-04-13 19:10:10 +0100 |
---|---|---|
committer | Richard Jones <rjones@redhat.com> | 2009-04-13 19:10:10 +0100 |
commit | 70c2ffc39677a9f5eb6b2230cb9ca2606b2fd966 (patch) | |
tree | 253e14c3aff908f3587ba219cb4071a240dbfec7 /ocaml | |
parent | b3f11c5f62f725fa3f09452b38d52dba764f80d0 (diff) | |
download | libguestfs-70c2ffc39677a9f5eb6b2230cb9ca2606b2fd966.tar.gz libguestfs-70c2ffc39677a9f5eb6b2230cb9ca2606b2fd966.tar.xz libguestfs-70c2ffc39677a9f5eb6b2230cb9ca2606b2fd966.zip |
Additional test programs for Perl, Python, OCaml bindings.
Diffstat (limited to 'ocaml')
-rw-r--r-- | ocaml/Makefile.am | 22 | ||||
-rw-r--r-- | ocaml/t/guestfs_005_load.ml | 19 | ||||
-rw-r--r-- | ocaml/t/guestfs_010_launch.ml | 32 | ||||
-rw-r--r-- | ocaml/t/guestfs_050_lvcreate.ml | 43 |
4 files changed, 115 insertions, 1 deletions
diff --git a/ocaml/Makefile.am b/ocaml/Makefile.am index 67f4a15c..0f1c3496 100644 --- a/ocaml/Makefile.am +++ b/ocaml/Makefile.am @@ -18,11 +18,13 @@ EXTRA_DIST = \ guestfs.mli guestfs.ml \ guestfs_c.c guestfs_c.h guestfs_c_actions.c \ - .depend META.in + .depend META.in \ + t/*.ml SUBDIRS = examples CLEANFILES = *~ *.cmi *.cmo *.cmx *.cma *.cmxa *.o *.a *.so +CLEANFILES += t/*~ t/*.cmi t/*.cmo t/*.o t/*.a t/*.so if HAVE_OCAML @@ -40,6 +42,22 @@ guestfs_c.o: guestfs_c.c guestfs_c_actions.o: guestfs_c_actions.c $(CC) $(CFLAGS) -I$(OCAMLLIB) -I$(top_builddir)/src -fPIC -Wall -c $< +TESTS_ENVIRONMENT = \ + LD_LIBRARY_PATH=$(abs_top_builddir)/src/.libs \ + LIBGUESTFS_PATH=$(abs_top_builddir) + +TESTS = t/guestfs_005_load t/guestfs_010_launch t/guestfs_050_lvcreate +noinst_DATA += $(TESTS) + +t/guestfs_005_load: t/guestfs_005_load.ml + $(OCAMLFIND) ocamlopt -cclib -L$(top_builddir)/src/.libs -I . unix.cmxa mlguestfs.cmxa $< -o $@ + +t/guestfs_010_launch: t/guestfs_010_launch.ml + $(OCAMLFIND) ocamlopt -cclib -L$(top_builddir)/src/.libs -I . unix.cmxa mlguestfs.cmxa $< -o $@ + +t/guestfs_050_lvcreate: t/guestfs_050_lvcreate.ml + $(OCAMLFIND) ocamlopt -cclib -L$(top_builddir)/src/.libs -I . unix.cmxa mlguestfs.cmxa $< -o $@ + .mli.cmi: $(OCAMLFIND) ocamlc -c $< .ml.cmo: @@ -66,4 +84,6 @@ install-data-hook: guestfs \ META *.so *.a *.cma *.cmx *.cmxa *.cmi *.mli +CLEANFILES += $(noinst_DATA) + endif
\ No newline at end of file diff --git a/ocaml/t/guestfs_005_load.ml b/ocaml/t/guestfs_005_load.ml new file mode 100644 index 00000000..779e1c0f --- /dev/null +++ b/ocaml/t/guestfs_005_load.ml @@ -0,0 +1,19 @@ +(* libguestfs OCaml bindings + * Copyright (C) 2009 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., 675 Mass Ave, Cambridge, MA 02139, USA. + *) + +let _ = Guestfs.create diff --git a/ocaml/t/guestfs_010_launch.ml b/ocaml/t/guestfs_010_launch.ml new file mode 100644 index 00000000..b253e0c4 --- /dev/null +++ b/ocaml/t/guestfs_010_launch.ml @@ -0,0 +1,32 @@ +(* libguestfs OCaml bindings + * Copyright (C) 2009 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., 675 Mass Ave, Cambridge, MA 02139, USA. + *) + +open Unix + +let () = + let g = Guestfs.create () in + + let fd = openfile "test.img" [O_WRONLY;O_CREAT;O_NOCTTY;O_TRUNC] 0o666 in + ftruncate fd (500 * 1024 * 1024); + close fd; + + Guestfs.add_drive g "test.img"; + Guestfs.launch g; + Guestfs.wait_ready g; + + unlink "test.img" diff --git a/ocaml/t/guestfs_050_lvcreate.ml b/ocaml/t/guestfs_050_lvcreate.ml new file mode 100644 index 00000000..2d5bb1f9 --- /dev/null +++ b/ocaml/t/guestfs_050_lvcreate.ml @@ -0,0 +1,43 @@ +(* libguestfs OCaml bindings + * Copyright (C) 2009 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., 675 Mass Ave, Cambridge, MA 02139, USA. + *) + +open Unix + +let () = + let g = Guestfs.create () in + + let fd = openfile "test.img" [O_WRONLY;O_CREAT;O_NOCTTY;O_TRUNC] 0o666 in + ftruncate fd (500 * 1024 * 1024); + close fd; + + Guestfs.add_drive g "test.img"; + Guestfs.launch g; + Guestfs.wait_ready g; + + Guestfs.pvcreate g "/dev/sda"; + Guestfs.vgcreate g "VG" [|"/dev/sda"|]; + Guestfs.lvcreate g "LV1" "VG" 200; + Guestfs.lvcreate g "LV2" "VG" 200; + + let lvs = Guestfs.lvs g in + if lvs <> [|"/dev/VG/LV1"; "/dev/VG/LV2"|] then + failwith "Guestfs.lvs returned incorrect result"; + + Guestfs.sync g; + Guestfs.close g; + unlink "test.img" |