Add missing reference to guestfs-perl(3) to guestfs(3).
[libguestfs.git] / regressions / test-guestfish-d.sh
1 #!/bin/bash -
2 # libguestfs
3 # Copyright (C) 2010 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., 675 Mass Ave, Cambridge, MA 02139, USA.
18
19 # Test guestfish -d option.
20
21 set -e
22
23 rm -f test1.img test2.img test3.img test.xml test.out
24
25 cwd="$(pwd)"
26
27 truncate -s 1M test1.img test2.img test3.img
28
29 # Libvirt test XML, see libvirt.git/examples/xml/test/testnode.xml
30 cat > test.xml <<EOF
31 <node>
32   <domain type="test">
33     <name>guest</name>
34     <os>
35       <type>hvm</type>
36       <boot dev='hd'/>
37     </os>
38     <memory>524288</memory>
39     <devices>
40       <disk type="file">
41         <source file="$cwd/test1.img"/>
42         <target dev="hda"/>
43       </disk>
44       <disk type="file">
45         <driver name="qemu" type="raw"/>
46         <source file="$cwd/test2.img"/>
47         <target dev="hdb"/>
48       </disk>
49       <disk type="file">
50         <driver name="qemu" type="qcow2"/>
51         <source file="$cwd/test3.img"/>
52         <target dev="hdc"/>
53       </disk>
54     </devices>
55   </domain>
56 </node>
57 EOF
58
59 ../fish/guestfish -c "test://$cwd/test.xml" --ro -d guest \
60   debug-cmdline </dev/null >test.out
61 grep -sq "test1.img.*snapshot=on" test.out
62 ! grep -sq "test1.img.*format" test.out
63 grep -sq "test2.img.*snapshot=on.*format=raw" test.out
64 grep -sq "test3.img.*snapshot=on.*format=qcow2" test.out
65
66 rm -f test1.img test2.img test3.img test.xml test.out