Return to common.config CVS log

Up to [Qemu by Fabrice Bellard] / qemu / tests / qemu-iotests

Annotation of qemu/tests/qemu-iotests/common.config, revision 1.1.1.1

1.1       root        1: #!/bin/bash
                      2: #
                      3: # Copyright (C) 2009 Red Hat, Inc.
                      4: # Copyright (c) 2000-2003,2006 Silicon Graphics, Inc.  All Rights Reserved.
                      5: #
                      6: # This program is free software; you can redistribute it and/or
                      7: # modify it under the terms of the GNU General Public License as
                      8: # published by the Free Software Foundation.
                      9: #
                     10: # This program is distributed in the hope that it would 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, see <http://www.gnu.org/licenses/>.
                     17: #
                     18: #
                     19: # setup and check for config parameters, and in particular
                     20: #
                     21: # EMAIL -           email of the script runner.
                     22: # TEST_DIR -        scratch test directory 
                     23: #
                     24: # - These can be added to $HOST_CONFIG_DIR (witch default to ./config)
                     25: #   below or a separate local configuration file can be used (using
                     26: #   the HOST_OPTIONS variable).
                     27: # - This script is shared by the stress test system and the auto-qa
                     28: #   system (includes both regression test and benchmark components).
                     29: # - this script shouldn't make any assertions about filesystem
                     30: #   validity or mountedness.
                     31: #
                     32: 
                     33: # all tests should use a common language setting to prevent golden
                     34: # output mismatches.
                     35: export LANG=C
                     36: 
                     37: PATH=".:$PATH"
                     38: 
                     39: HOST=`hostname -s 2> /dev/null`
                     40: HOSTOS=`uname -s`
                     41: 
                     42: EMAIL=root@localhost    # where auto-qa will send its status messages
                     43: export HOST_OPTIONS=${HOST_OPTIONS:=local.config}
                     44: export CHECK_OPTIONS=${CHECK_OPTIONS:="-g auto"}
                     45: export PWD=`pwd`
                     46: 
                     47: # $1 = prog to look for, $2* = default pathnames if not found in $PATH
                     48: set_prog_path()
                     49: {
                     50:     p=`which $1 2> /dev/null`
                     51:     if [ -n "$p" -a -x "$p" ]; then
                     52:         echo $p
                     53:         return 0
                     54:     fi
                     55:     p=$1
                     56: 
                     57:     shift
                     58:     for f; do
                     59:         if [ -x $f ]; then
                     60:             echo $f
                     61:             return 0
                     62:         fi
                     63:     done
                     64: 
                     65:     echo ""
                     66:     return 1
                     67: }
                     68: 
                     69: _fatal()
                     70: {
                     71:     echo "$*"
                     72:     status=1
                     73:     exit 1
                     74: }
                     75: 
                     76: export PERL_PROG="`set_prog_path perl`"
                     77: [ "$PERL_PROG" = "" ] && _fatal "perl not found"
                     78: 
                     79: export AWK_PROG="`set_prog_path awk`"
                     80: [ "$AWK_PROG" = "" ] && _fatal "awk not found"
                     81: 
                     82: export SED_PROG="`set_prog_path sed`"
                     83: [ "$SED_PROG" = "" ] && _fatal "sed not found"
                     84: 
                     85: export BC_PROG="`set_prog_path bc`"
                     86: [ "$BC_PROG" = "" ] && _fatal "bc not found"
                     87: 
                     88: export PS_ALL_FLAGS="-ef"
                     89: 
                     90: if [ -z "$QEMU_PROG" ]; then
                     91:     export QEMU_PROG="`set_prog_path qemu`"
                     92: fi
                     93: [ "$QEMU_PROG" = "" ] && _fatal "qemu not found"
                     94: 
                     95: if [ -z "$QEMU_IMG_PROG" ]; then
                     96:     export QEMU_IMG_PROG="`set_prog_path qemu-img`"
                     97: fi
                     98: [ "$QEMU_IMG_PROG" = "" ] && _fatal "qemu-img not found"
                     99: 
                    100: if [ -z "$QEMU_IO_PROG" ]; then
                    101:     export QEMU_IO_PROG="`set_prog_path qemu-io`"
                    102: fi
                    103: [ "$QEMU_IO_PROG" = "" ] && _fatal "qemu-io not found"
                    104: 
                    105: export QEMU=$QEMU_PROG
                    106: export QEMU_IMG=$QEMU_IMG_PROG 
                    107: export QEMU_IO="$QEMU_IO_PROG $QEMU_IO_OPTIONS"
                    108: 
                    109: [ -f /etc/qemu-iotest.config ]       && . /etc/qemu-iotest.config
                    110: 
                    111: if [ -z "$TEST_DIR" ]; then
                    112:        TEST_DIR=`pwd`/scratch
                    113: fi
                    114: 
                    115: if [ ! -e "$TEST_DIR" ]; then
                    116:        mkdir "$TEST_DIR"
                    117: fi
                    118: 
                    119: if [ ! -d "$TEST_DIR" ]; then
                    120:     echo "common.config: Error: \$TEST_DIR ($TEST_DIR) is not a directory"
                    121:     exit 1
                    122: fi
                    123: 
                    124: export TEST_DIR
                    125: 
                    126: _readlink()
                    127: {
                    128:     if [ $# -ne 1 ]; then
                    129:         echo "Usage: _readlink filename" 1>&2
                    130:         exit 1
                    131:     fi
                    132: 
                    133:     perl -e "\$in=\"$1\";" -e '
                    134:     $lnk = readlink($in);
                    135:     if ($lnk =~ m!^/.*!) {
                    136:         print "$lnk\n";
                    137:     }
                    138:     else {
                    139:         chomp($dir = `dirname $in`);
                    140:         print "$dir/$lnk\n";
                    141:     }'
                    142: }
                    143: 
                    144: # make sure this script returns success
                    145: /bin/true

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.