2 * Copyright (C) 2014 Red Hat Inc.
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are
8 * * Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
11 * * Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
15 * * Neither the name of Red Hat nor the names of its contributors may be
16 * used to endorse or promote products derived from this software without
17 * specific prior written permission.
19 * THIS SOFTWARE IS PROVIDED BY RED HAT AND CONTRIBUTORS ''AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
21 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
22 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL RED HAT OR
23 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
25 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
26 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
27 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
28 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
29 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
47 main (int argc
, char *argv
[])
54 if (test_start_nbdkit ("./test-ocaml-plugin.so",
55 /* ordinary parameters */
57 /* magic config key, so equivalent to d=4 */
62 g
= guestfs_create ();
64 perror ("guestfs_create");
68 r
= guestfs_add_drive_opts (g
, "",
69 GUESTFS_ADD_DRIVE_OPTS_FORMAT
, "raw",
70 GUESTFS_ADD_DRIVE_OPTS_PROTOCOL
, "nbd",
71 GUESTFS_ADD_DRIVE_OPTS_SERVER
, server
,
76 if (guestfs_launch (g
) == -1)
79 /* Check the size is exactly 1M. */
80 size
= guestfs_blockdev_getsize64 (g
, "/dev/sda");
81 if (size
!= 1024 * 1024) {
82 fprintf (stderr
, "%s FAILED: unexpected size "
83 "(actual: %" PRIi64
", expected: %d)\n",
84 program_name
, size
, 1024*1024);
88 if (guestfs_part_disk (g
, "/dev/sda", "mbr") == -1)
90 if (guestfs_mkfs (g
, "ext2", "/dev/sda1") == -1)
93 if (guestfs_mount_options (g
, "discard", "/dev/sda1", "/") == -1)
96 #define filename "/hello.txt"
97 #define content "hello, people of the world"
99 if (guestfs_write (g
, filename
, content
, strlen (content
)) == -1)
102 data
= guestfs_cat (g
, filename
);
106 if (strcmp (data
, content
) != 0) {
108 "%s FAILED: unexpected content of %s file "
109 "(actual: %s, expected: %s)\n",
110 program_name
, filename
, data
, content
);
115 /* Run sync to test flush path. */
116 if (guestfs_sync (g
) == -1)
119 /* Run fstrim to test trim path. However only recent versions of
120 * libguestfs have this, and it probably only works in recent
123 #ifdef GUESTFS_HAVE_FSTRIM
124 if (guestfs_fstrim (g
, "/", -1) == -1)
128 /* Run fallocate(1) on the device to test zero path. */
129 if (guestfs_umount (g
, "/") == -1)
131 const char *cmd
[] = { "fallocate", "-nzl", "64k", "/dev/sda", NULL
};
132 data
= guestfs_debug (g
, "sh", (char **) cmd
);
135 if (guestfs_shutdown (g
) == -1)