New tool: virt-sparsify to make disk images sparse.
[libguestfs.git] / sparsify / test-virt-sparsify.sh
diff --git a/sparsify/test-virt-sparsify.sh b/sparsify/test-virt-sparsify.sh
new file mode 100755 (executable)
index 0000000..4a054db
--- /dev/null
@@ -0,0 +1,58 @@
+#!/bin/bash -
+# libguestfs virt-sparsify test script
+# Copyright (C) 2011 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.
+
+export LANG=C
+set -e
+
+rm -f test1.img test2.img
+
+# Create a filesystem, fill it with data, then delete the data.  Then
+# prove that sparsifying it reduces the size of the final filesystem.
+
+../fish/guestfish \
+    -N bootrootlv:/dev/VG/LV:ext2:ext4:400M:32M:gpt <<EOF
+mount-options "" /dev/VG/LV /
+mkdir /boot
+mount-options "" /dev/sda1 /boot
+fill 1 300M /big
+fill 1 10M /boot/big
+sync
+rm /big
+rm /boot/big
+umount-all
+EOF
+
+./virt-sparsify --format raw test1.img --convert qcow2 test2.img
+
+size_before=$(du -s test1.img | awk '{print $1}')
+size_after=$(du -s test2.img | awk '{print $1}')
+
+echo "test virt-sparsify: $size_before K -> $size_after K"
+
+if [ $size_before -lt 310000 ]; then
+    echo "test virt-sparsify: size_before ($size_before) too small"
+    exit 1
+fi
+
+if [ $size_after -gt 5000 ]; then
+    echo "test virt-sparsify: size_after ($size_after) too large"
+    echo "sparsification failed"
+    exit 1
+fi
+
+rm -f test1.img test2.img