# $Id: tstVDCompact.vd 36637 2011-04-09 12:17:40Z vboxsync $
#
# Storage: Testcase for compacting disks.
#

#
# Copyright (C) 2011 Oracle Corporation
#
# This file is part of VirtualBox Open Source Edition (OSE), as
# available from http://www.virtualbox.org. This file is free software;
# you can redistribute it and/or modify it under the terms of the GNU
# General Public License (GPL) as published by the Free Software
# Foundation, in version 2 as it comes in the "COPYING" file of the
# VirtualBox OSE distribution. VirtualBox OSE is distributed in the
# hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
#

# Init I/O RNG for generating random data for writes
iorngcreate size=10M mode=manual seed=1234567890

# Create zero pattern
iopatterncreatefromnumber name=zero size=1M pattern=0

print msg=Testing_VDI
# Create disk containers, read verification is on.
createdisk name=disk verify=yes
# Create the disk.
create disk=disk mode=base name=tstCompact.vdi type=dynamic backend=VDI size=200M
# Fill the disk with random data
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=100
# Read the data to verify it once.
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=0
# Fill a part with 0's
io disk=disk async=no mode=seq blocksize=64k off=100M-150M size=50M writes=100 pattern=zero
# Now compact
compact disk=disk image=0
# Read again to verify that the content hasn't changed
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=0
# Fill everything with 0
io disk=disk async=no mode=seq blocksize=64k off=0M-200M size=200M writes=100 pattern=zero
# Now compact
compact disk=disk image=0
# Read again to verify that the content hasn't changed
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=0
# Cleanup
close disk=disk mode=single delete=yes
destroydisk name=disk

print msg=Testing_VHD
# Create disk containers, read verification is on.
createdisk name=disk verify=yes
# Create the disk.
create disk=disk mode=base name=tstCompact.vhd type=dynamic backend=VHD size=200M
# Fill the disk with random data
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=100
# Read the data to verify it once.
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=0
# Fill a part with 0's
io disk=disk async=no mode=seq blocksize=64k off=100M-150M size=50M writes=100 pattern=zero
# Now compact
compact disk=disk image=0
# Read again to verify that the content hasn't changed
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=0
# Fill everything with 0
io disk=disk async=no mode=seq blocksize=64k off=0M-200M size=200M writes=100 pattern=zero
# Now compact
compact disk=disk image=0
# Read again to verify that the content hasn't changed
io disk=disk async=no mode=seq blocksize=64k off=0-200M size=200M writes=0
# Cleanup
close disk=disk mode=single delete=yes
destroydisk name=disk

# Destroy RNG and pattern
iopatterndestroy name=zero
iorngdestroy