mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-21 22:53:37 +00:00
669eda1e24
Previously we tested if KVM was available, and cached that for the qemu binary. I think this was actually wrong. For example, if the machine restarts, then the cache is still around, but KVM might be enabled or disabled because of a new host kernel. In any case, let's radically simplify this. Test for KVM on each run. Consequently we can remove all the qemu test caching stuff as it is no longer used anywhere. I also tightened up the code that runs the QMP query-kvm command, so now any unexpected output will cause a runtime failure. This command ought to work, and if it breaks we ought to know about it and fix it.
124 lines
3.3 KiB
Bash
Executable File
124 lines
3.3 KiB
Bash
Executable File
#!/bin/bash
|
|
# Copyright (C) 2013 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
# Test that disks map to the correct qemu -drive parameter.
|
|
|
|
source ./functions.sh
|
|
set -e
|
|
set -x
|
|
|
|
skip_if_skipped
|
|
|
|
export LIBGUESTFS_BACKEND=direct
|
|
export LIBGUESTFS_HV="$abs_srcdir/disks/debug-qemu.sh"
|
|
export DEBUG_QEMU_FILE="$abs_builddir/test-qemu-drive.out"
|
|
|
|
function check_output ()
|
|
{
|
|
if [ ! -f "$DEBUG_QEMU_FILE" ]; then
|
|
echo "$0: guestfish command failed, see previous error messages"
|
|
exit 1
|
|
fi
|
|
cat "$DEBUG_QEMU_FILE"
|
|
}
|
|
|
|
function fail ()
|
|
{
|
|
echo "$0: Test failed. Command line output was:"
|
|
cat "$DEBUG_QEMU_FILE"
|
|
exit 1
|
|
}
|
|
|
|
rm -f "$DEBUG_QEMU_FILE"
|
|
|
|
# Ceph (RBD).
|
|
|
|
guestfish <<EOF ||:
|
|
add "abc-def/ghi-jkl" "format:raw" "protocol:rbd" \
|
|
"server:1.2.3.4:1234 1.2.3.5:1235 1.2.3.6:1236"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=rbd:abc-def/ghi-jkl:mon_host=1.2.3.4\\:1234\\;1.2.3.5\\:1235\\;1.2.3.6\\:1236:auth_supported=none,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|
|
|
|
guestfish <<EOF ||:
|
|
add "abc-def/ghi-jkl" "format:raw" "protocol:rbd"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=rbd:abc-def/ghi-jkl:auth_supported=none,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|
|
|
|
# HTTP.
|
|
|
|
guestfish <<EOF ||:
|
|
add "/disk.img" "format:raw" "protocol:http" "server:www.example.com"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=http://www.example.com/disk.img,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|
|
|
|
# iSCSI.
|
|
|
|
guestfish <<EOF ||:
|
|
add "target-iqn-name/lun" "format:raw" "protocol:iscsi" "server:www.example.com:3000"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=iscsi://www.example.com:3000/target-iqn-name/lun,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|
|
|
|
guestfish <<EOF ||:
|
|
add "target-iqn-name/lun" "format:raw" "protocol:iscsi" "server:www.example.com:3000" \
|
|
"username:user" "secret:pass"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=iscsi://user%pass@www.example.com:3000/target-iqn-name/lun,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|
|
|
|
# NBD.
|
|
|
|
guestfish <<EOF ||:
|
|
add "" "format:raw" "protocol:nbd" "server:1.2.3.4:1234"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=nbd:1.2.3.4:1234,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|
|
|
|
guestfish <<EOF ||:
|
|
add "" "format:raw" "protocol:nbd" "server:unix:/socket"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=nbd:unix:/socket,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|
|
|
|
# SSH.
|
|
|
|
guestfish <<EOF ||:
|
|
add "/disk.img" "format:raw" "protocol:ssh" "server:example.com" \
|
|
"username:rich"
|
|
run
|
|
EOF
|
|
check_output
|
|
grep -sq -- '-drive file=ssh://rich@example.com/disk.img,' "$DEBUG_QEMU_FILE" || fail
|
|
rm "$DEBUG_QEMU_FILE"
|