diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-07-18 13:45:21 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-07-18 13:45:21 +0100 |
commit | eef11f33f9f14d3706b681bd4e23e334fcc9b791 (patch) | |
tree | 5e683b70f852d736fc4af8fbbf364d3dd839682d /ocaml/t/exit.c | |
parent | 50780a84f65ec5d76605691cea889392c2730f54 (diff) | |
download | libguestfs-eef11f33f9f14d3706b681bd4e23e334fcc9b791.tar.gz libguestfs-eef11f33f9f14d3706b681bd4e23e334fcc9b791.tar.xz libguestfs-eef11f33f9f14d3706b681bd4e23e334fcc9b791.zip |
ocaml: Test mount-local, without parallel test.
Unfortunately the parallel test keeps hitting this bug:
https://bugzilla.redhat.com/show_bug.cgi?id=838081
which could be a bug in the OCaml runtime.
Just test simple mount-local. We will write a parallel test in C to
replace this.
Diffstat (limited to 'ocaml/t/exit.c')
-rw-r--r-- | ocaml/t/exit.c | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/ocaml/t/exit.c b/ocaml/t/exit.c deleted file mode 100644 index ca392def..00000000 --- a/ocaml/t/exit.c +++ /dev/null @@ -1,44 +0,0 @@ -/* libguestfs OCaml bindings - * Copyright (C) 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. - */ - -#include <config.h> - -#include <stdio.h> -#include <stdlib.h> -#include <unistd.h> - -#include <caml/alloc.h> -#include <caml/fail.h> -#include <caml/memory.h> -#include <caml/misc.h> -#include <caml/mlvalues.h> - -value ocaml_guestfs__exit (value) Noreturn; - -/* _exit : int -> 'a (does not return) */ -value -ocaml_guestfs__exit (value statusv) -{ - CAMLparam1 (statusv); - int status = Int_val (statusv); - - _exit (status); - - /*NOTREACHED*/ - CAMLnoreturn; -} |