mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
8554dbbc03
We don't support RHEL 5 upstream (see the 'oldlinux' branch for a version that works with RHEL 5). Therefore remove a bunch of hacks that were only needed on RHEL 5.
287 lines
8.2 KiB
Bash
Executable File
287 lines
8.2 KiB
Bash
Executable File
#!/bin/bash -
|
|
# libguestfs 'run' programs locally script
|
|
# Copyright (C) 2011-2015 Red Hat Inc.
|
|
#
|
|
# @configure_input@
|
|
#
|
|
# This library is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Lesser General Public
|
|
# License as published by the Free Software Foundation; either
|
|
# version 2 of the License, or (at your option) any later version.
|
|
#
|
|
# This library 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
|
|
# Lesser General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
# License along with this library; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
# With this script you can run all the virt tools without needing to
|
|
# install them first. You just have to do for example:
|
|
#
|
|
# ./run virt-inspector [args ...]
|
|
#
|
|
# This works for any C program, virt tools, and most non-C bindings
|
|
# and programs in the libguestfs distribution.
|
|
#
|
|
# For lots more ways to use this script, see the libguestfs README
|
|
# file.
|
|
#
|
|
# The script can also be used to make the output of tests shorter:
|
|
# TESTS_ENVIRONMENT = ... $(top_builddir)/run --test [$(VG)]
|
|
# (Use the optional $(VG) when the tests must also be run under
|
|
# valgrind).
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
if [ "$1" = "--test" ]; then
|
|
test_mode=1
|
|
shift
|
|
fi
|
|
|
|
# Function to intelligently prepend a path to an environment variable.
|
|
# See http://stackoverflow.com/a/9631350
|
|
prepend()
|
|
{
|
|
eval $1="$2\${$1:+:\$$1}"
|
|
}
|
|
|
|
# Source and build directories (absolute paths so this works from any
|
|
# directory).
|
|
s="$(cd @abs_srcdir@ && pwd)"
|
|
b="$(cd @abs_builddir@ && pwd)"
|
|
|
|
# Set T to current date & time (mainly for valgrind logfile name).
|
|
T=`date +%Y%m%d.%H.%M.%S`
|
|
export T
|
|
|
|
# Set tmpdir and cachedir so the appliance doesn't conflict with
|
|
# globally installed libguestfs.
|
|
#
|
|
# We set it to a subdirectory ('tmp') so that we can label this
|
|
# subdirectory to make libvirt + sVirt + SELinux enforcing work.
|
|
export LIBGUESTFS_TMPDIR="$b/tmp"
|
|
export LIBGUESTFS_CACHEDIR="$b/tmp"
|
|
mkdir -p "$b/tmp"
|
|
chcon --reference=/tmp "$b/tmp" 2>/dev/null ||:
|
|
|
|
# Only set path if the appliance was enabled.
|
|
if [ "x@ENABLE_APPLIANCE@" = "xyes" ]; then
|
|
export LIBGUESTFS_PATH="$b/appliance"
|
|
elif [ -z "$LIBGUESTFS_PATH" ]; then
|
|
cat <<'EOF' >&2
|
|
run: warning: You used './configure --disable-appliance' so LIBGUESTFS_PATH
|
|
run: warning: has not been set automatically.
|
|
EOF
|
|
fi
|
|
|
|
# Set the PATH to contain all the libguestfs binaries. There are a
|
|
# lot of binaries, so a lot of path entries.
|
|
prepend PATH "$b/align"
|
|
prepend PATH "$b/builder"
|
|
prepend PATH "$b/cat"
|
|
prepend PATH "$b/customize"
|
|
prepend PATH "$b/df"
|
|
prepend PATH "$b/dib"
|
|
prepend PATH "$b/diff"
|
|
prepend PATH "$b/edit"
|
|
prepend PATH "$b/erlang"
|
|
prepend PATH "$b/fish"
|
|
prepend PATH "$b/format"
|
|
prepend PATH "$b/fuse"
|
|
prepend PATH "$b/get-kernel"
|
|
prepend PATH "$b/inspector"
|
|
prepend PATH "$b/make-fs"
|
|
prepend PATH "$b/p2v"
|
|
prepend PATH "$b/rescue"
|
|
prepend PATH "$b/resize"
|
|
prepend PATH "$b/sparsify"
|
|
prepend PATH "$b/sysprep"
|
|
prepend PATH "$b/test-tool"
|
|
prepend PATH "$b/tools"
|
|
prepend PATH "$b/v2v"
|
|
export PATH
|
|
|
|
# Set LD_LIBRARY_PATH and DYLD_LIBRARY_PATH to contain library.
|
|
prepend LD_LIBRARY_PATH "$b/gobject/.libs"
|
|
prepend LD_LIBRARY_PATH "$b/java/.libs"
|
|
prepend LD_LIBRARY_PATH "$b/src/.libs"
|
|
prepend DYLD_LIBRARY_PATH "$b/gobject/.libs"
|
|
prepend DYLD_LIBRARY_PATH "$b/java/.libs"
|
|
prepend DYLD_LIBRARY_PATH "$b/src/.libs"
|
|
export LD_LIBRARY_PATH
|
|
export DYLD_LIBRARY_PATH
|
|
|
|
# Make virt-builder use the local website copy to avoid hitting
|
|
# the network all the time.
|
|
if [ -z "$XDG_CONFIG_DIRS" ]; then
|
|
prepend XDG_CONFIG_DIRS "$b/builder/test-website"
|
|
export XDG_CONFIG_DIRS
|
|
fi
|
|
|
|
# virt-p2v-make-* data directory.
|
|
if [ -z "$VIRT_P2V_DATA_DIR" ]; then
|
|
VIRT_P2V_DATA_DIR="$b/p2v"
|
|
export VIRT_P2V_DATA_DIR
|
|
fi
|
|
|
|
# For Perl.
|
|
prepend PERL5LIB "$b/perl/blib/arch"
|
|
prepend PERL5LIB "$b/perl/blib/lib"
|
|
export PERL5LIB
|
|
|
|
# Enable Perl valgrinding.
|
|
# XXX Unclear if this actually makes any difference. It seems you
|
|
# have to recompile the Perl interpreter with debugging enabled.
|
|
export PERL_DEBUG=1
|
|
export PERL_VALGRIND=1
|
|
export PERL_DESTRUCT_LEVEL=2
|
|
|
|
# For Python.
|
|
export PYTHON=@PYTHON@
|
|
prepend PYTHONPATH "$b/python/.libs"
|
|
prepend PYTHONPATH "$b/python"
|
|
prepend PYTHONPATH "$s/python"
|
|
export PYTHONPATH
|
|
|
|
# For Ruby.
|
|
export RUBY=@RUBY@
|
|
export RAKE=@RAKE@
|
|
prepend RUBYLIB "$b/ruby/ext/guestfs"
|
|
prepend RUBYLIB "$b/ruby/lib"
|
|
export RUBYLIB
|
|
prepend LD_LIBRARY_PATH "$b/ruby/ext/guestfs"
|
|
prepend DYLD_LIBRARY_PATH "$b/ruby/ext/guestfs"
|
|
|
|
# For OCaml.
|
|
prepend CAML_LD_LIBRARY_PATH "$b/ocaml"
|
|
export CAML_LD_LIBRARY_PATH
|
|
|
|
# For Java.
|
|
export JAVA_EXE=@JAVA_EXE@
|
|
prepend CLASSPATH "$b/java/libguestfs-@VERSION@.jar"
|
|
prepend CLASSPATH "$b/java/t"
|
|
prepend CLASSPATH "$b/java"
|
|
export CLASSPATH
|
|
|
|
# For Erlang (note $PATH is adjusted above to include erl-guestfs).
|
|
prepend ERL_LIBS "$b/erlang"
|
|
export ERL_LIBS
|
|
|
|
# For Lua.
|
|
export LUA=@LUA@
|
|
# Can't use 'prepend' here because Lua paths use semicolons.
|
|
if [ -z "$LUA_CPATH" ]; then
|
|
LUA_CPATH="$b/lua/?.so"
|
|
else
|
|
LUA_CPATH="$b/lua/?.so;$LUA_CPATH"
|
|
fi
|
|
export LUA_CPATH
|
|
|
|
# For golang.
|
|
export GOLANG=@GOLANG@
|
|
prepend GOPATH "$b/golang"
|
|
export GOPATH
|
|
if [ -z "$CGO_CFLAGS" ]; then
|
|
CGO_CFLAGS="-I$s/src"
|
|
else
|
|
CGO_CFLAGS="$CGO_CFLAGS -I$s/src"
|
|
fi
|
|
export CGO_CFLAGS
|
|
if [ -z "$CGO_LDFLAGS" ]; then
|
|
CGO_LDFLAGS="-L$b/src/.libs"
|
|
else
|
|
CGO_LDFLAGS="$CGO_LDFLAGS -L$b/src/.libs"
|
|
fi
|
|
export CGO_LDFLAGS
|
|
|
|
# For GObject, Javascript and friends.
|
|
export GJS=@GJS@
|
|
prepend GI_TYPELIB_PATH "$b/gobject"
|
|
export GI_TYPELIB_PATH
|
|
# Be friendly to valgrind (https://live.gnome.org/Valgrind)
|
|
export G_SLICE=always-malloc
|
|
export G_DEBUG=gc-friendly
|
|
|
|
# This is a cheap way to find some use-after-free and uninitialized
|
|
# read problems when using glibc.
|
|
random_val="$(@AWK@ 'BEGIN{srand(); print 1+int(255*rand())}' < /dev/null)"
|
|
export MALLOC_PERTURB_=$random_val
|
|
|
|
# Do we have libtool? If we have it then we can use it to make
|
|
# running valgrind simpler. However don't depend on it.
|
|
if libtool --help >/dev/null 2>&1; then
|
|
libtool="libtool --mode=execute"
|
|
fi
|
|
|
|
# Avoid GNOME keyring stupidity
|
|
export GNOME_KEYRING_CONTROL=
|
|
export GNOME_KEYRING_PID=
|
|
|
|
# Run the program.
|
|
if [ -z "$test_mode" ]; then
|
|
exec $libtool "$@"
|
|
fi
|
|
|
|
# For tests (./run --test):
|
|
# - redirect all output to a file, and only print the file if the
|
|
# test fails
|
|
# - print how long it takes to run the test
|
|
# - timeout if the test takes too long to run
|
|
|
|
# Originally 1h, but that is not long enough to run the C API
|
|
# tests on Koji.
|
|
timeout_period=4h
|
|
timeout_kill=30s
|
|
|
|
# Must use the --foreground option (RHBZ#1025269).
|
|
if timeout --foreground 2 sleep 0 >/dev/null 2>&1; then
|
|
# Does this version of timeout have the -k option? (Not on RHEL 6)
|
|
if timeout -k 10s 10s true >/dev/null 2>&1; then
|
|
timeout="timeout --foreground -k $timeout_kill $timeout_period"
|
|
fi
|
|
fi
|
|
|
|
pid=$$
|
|
tmpout=$b/tmp/run-$pid
|
|
rm -f $tmpout
|
|
start_t="$(date +'%s')"
|
|
$timeout $libtool "$@" > $tmpout 2>&1
|
|
fail=$?
|
|
end_t="$(date +'%s')"
|
|
if [ "$fail" -eq 0 ]; then
|
|
# Test successful.
|
|
echo $(($end_t - $start_t)) seconds: "$@"
|
|
elif [ "$fail" -eq 77 ]; then
|
|
# Tests return 77 to mean skipped.
|
|
cat $tmpout
|
|
elif [ "$fail" -eq 124 ]; then
|
|
# Timed out.
|
|
echo "$b/run --test" "$@"
|
|
cat $tmpout
|
|
echo "$b/run: command timed out after $timeout_period"
|
|
else
|
|
# Test failed.
|
|
echo "$b/run --test" "$@"
|
|
cat $tmpout
|
|
echo "$b/run: command failed with exit code $fail"
|
|
fi
|
|
if [ -n "$RUN_OUTPUT_FILE" ]; then
|
|
testname=`echo "$1" | @SED@ -e 's,^./,,g'`
|
|
echo "<test rescode=\"$fail\" name=\"$testname\" time=\"$(($end_t - $start_t))\">" >> $RUN_OUTPUT_FILE
|
|
echo "<![CDATA[" >> $RUN_OUTPUT_FILE
|
|
# skip the results of test-virt-rescue.pl, as they contain
|
|
# non-ASCII chars which give troubles to xsltproc
|
|
if ! echo "$testname" | grep test-virt-rescue.pl &>/dev/null ; then
|
|
cat $tmpout >> $RUN_OUTPUT_FILE
|
|
fi
|
|
echo "]]>" >> $RUN_OUTPUT_FILE
|
|
echo "</test>" >> $RUN_OUTPUT_FILE
|
|
fi
|
|
rm -f $tmpout
|
|
exit $fail
|