aboutsummaryrefslogtreecommitdiff
path: root/runtest
blob: 014595a6623beeb6934685cbb0c0aa1ca1ec1f4a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#!/bin/sh
#
# runtest -- basically all this script does is find the proper expect
#	     shell and then run DejaGnu.
#
# Written by Rob Savoye <rob@welcomehome.org>
#

#
# Get the execution path to this script and the current directory.
#
mypath=${0-.}
if expr ${mypath} : '.*/.*' > /dev/null
then
    :
else
    IFS="${IFS= 	}"; save_ifs="$IFS"; IFS="${IFS}:"
    for dir in $PATH
    do
	test -z "$dir" && dir=.
	if test -x $dir/$mypath
	then
	    mypath=$dir/$mypath
	    break
	fi
    done
    IFS="$save_ifs"
fi
execpath=`echo ${mypath} | sed  -e 's@/[^/]*$@@'`
# rootme=`pwd`

#
# get the name by which runtest was invoked and extract the config triplet
#
runtest=`echo ${mypath} | sed -e 's@^.*/@@'`
target=`echo $runtest | sed -e 's/-runtest$//'`
if [ "$target" != runtest ] ; then
    target="--target ${target}"
else
    target=""
fi

#
# Find the right expect binary to use. If a variable EXPECT exists,
# it takes precedence over all other tests. Otherwise look for a freshly
# built one, and then use one in the path.
#
if [ x"$EXPECT" != x ] ; then
  expectbin=$EXPECT
else
  if [ -x "$execpath/expect" ] ; then
    expectbin=$execpath/expect
  else
      expectbin=expect
    fi
fi

# just to be safe...
if [ -z "$expectbin" ]; then
  echo "ERROR: No expect shell found"
  exit 1
fi

# This wrapper script will set up run-time library search PATHs
if [ -x "$expectbin-bld.sh" ]; then
  expectbin="${CONFIG_SHELL-/bin/sh} $expectbin-bld.sh"
fi
 
#
# Extract a few options from the option list.
#
verbose=0
debug=""
for a in "$@" ; do
  case $a in	    
      -v|--v|-verb*|--verb*)    verbose=`expr $verbose + 1`;;
      -D0|--D0)       debug="-D 0" ;;
      -D1|--D1)       debug="-D 1" ;;
  esac
done

if expr $verbose \> 0 > /dev/null ; then
  echo Expect binary is $expectbin
fi

#
# find runtest.exp. First we look in it's installed location, otherwise
# start if from the source tree.
#
# runtest.exp is found in (autoconf-configure-set) @datadir@, but
# $execpath is @bindir@.  We're assuming that 
#
# @datadir@ == @bindir@/../share
# or
# @datadir@ == @bindir@/../../share
#
# which is a very weak assumption
#
for i in `echo ${execpath} | sed  -e 's@/[^/]*$@/share/dejagnu@'` `echo ${execpath} | sed  -e 's@/[^/]*/[^/]*$@/share/dejagnu@'` $execpath ; do
    if expr $verbose \> 1 > /dev/null ; then
	echo Looking for $i/runtest.exp.
    fi  
    if [ -f $i/runtest.exp ] ; then
	runpath=$i
	if expr $verbose \> 0 > /dev/null ; then
	    echo Using $i/runtest.exp as main test driver
	    break;
	fi
    fi
done
# check for an environment variable
if [ x"$DEJAGNULIBS" != x ] ; then
    runpath=$DEJAGNULIBS
    if expr $verbose \> 0 > /dev/null ; then
	echo Using $DEJAGNULIBS/runtest.exp as main test driver
    fi
fi
if [ x"$runpath" = x ] ; then
    echo "ERROR: runtest.exp does not exist."
    exit 1
fi

exec $expectbin $debug -- $runpath/runtest.exp $target ${1+"$@"}