From eef11f33f9f14d3706b681bd4e23e334fcc9b791 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Wed, 18 Jul 2012 13:45:21 +0100 Subject: 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. --- ocaml/t/exit.c | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 ocaml/t/exit.c (limited to 'ocaml/t/exit.c') 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 - -#include -#include -#include - -#include -#include -#include -#include -#include - -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; -} -- cgit