tests/protocol: Contains a Perl test so we must set PERL5LIB.
[libguestfs.git] / clone / test-virt-sysprep.sh
1 #!/bin/bash -
2 # libguestfs virt-sysprep test script
3 # Copyright (C) 2011 Red Hat Inc.
4 #
5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 2 of the License, or
8 # (at your option) any later version.
9 #
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 # GNU General Public License for more details.
14 #
15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
19 export LANG=C
20 set -e
21
22 if [ ! -w /dev/fuse ]; then
23     echo "SKIPPING virt-sysprep test, because there is no /dev/fuse."
24     exit 0
25 fi
26
27 rm -f test.img guestfish
28
29 qemu-img create -f qcow2 -o backing_file=../tests/guests/fedora.img test.img
30
31 # Provide alternate 'virt-inspector' and 'guestmount' binaries
32 # that run the just-built programs.
33
34 cat <<'EOF' > virt-inspector
35 #!/bin/sh -
36 ../run ../inspector/virt-inspector "$@"
37 EOF
38 chmod +x virt-inspector
39 cat <<'EOF' > guestmount
40 #!/bin/sh -
41 ../run ../fuse/guestmount "$@"
42 EOF
43 chmod +x guestmount
44
45 PATH=.:$PATH
46
47 ./virt-sysprep -a test.img
48
49 rm -f test.img virt-inspector guestmount