ocaml/bindtests.ml

   1 (* libguestfs generated file
   2  * WARNING: THIS FILE IS GENERATED BY 'src/generator.ml'.
   3  * ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.
   4  *
   5  * Copyright (C) 2009 Red Hat Inc.
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License along
  18  * with this program; if not, write to the Free Software Foundation, Inc.,
  19  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  20  *)
  21
  22 let () =
  23   let g = Guestfs.create () in
  24   Guestfs.test0 g "abc" (Some "def") [||] false 0 "123" "456";
  25   Guestfs.test0 g "abc" None [||] false 0 "123" "456";
  26   Guestfs.test0 g "" (Some "def") [||] false 0 "123" "456";
  27   Guestfs.test0 g "" (Some "") [||] false 0 "123" "456";
  28   Guestfs.test0 g "abc" (Some "def") [|"1"|] false 0 "123" "456";
  29   Guestfs.test0 g "abc" (Some "def") [|"1";"2"|] false 0 "123" "456";
  30   Guestfs.test0 g "abc" (Some "def") [|"1"|] true 0 "123" "456";
  31   Guestfs.test0 g "abc" (Some "def") [|"1"|] false (-1) "123" "456";
  32   Guestfs.test0 g "abc" (Some "def") [|"1"|] false (-2) "123" "456";
  33   Guestfs.test0 g "abc" (Some "def") [|"1"|] false 1 "123" "456";
  34   Guestfs.test0 g "abc" (Some "def") [|"1"|] false 2 "123" "456";
  35   Guestfs.test0 g "abc" (Some "def") [|"1"|] false 4095 "123" "456";
  36   Guestfs.test0 g "abc" (Some "def") [|"1"|] false 0 "" "";
  37 print_endline "EOF"