blob: cbb43ea2686cc6c17b1b63a38a1473cb9856f13d (
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
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#! /bin/sh
#
# This application is using [incr Tcl]
#
# Copyright (C) 1998, 1999 jotOmega dsc, Inc.
# This file is part of BlueGnu testing framework.
# It asumes that the itclsh3.0 program is on your PATH
#
#
# Get the execution path to this script
#
execpath=`echo ${0-.} | sed -e 's@/[^/]*$@@'`
#
# get the name by which bluegnu was invoked and extract the config triplet
#
bluegnu=`echo ${0-.} | sed -e 's@^.*/@@'`
target=`echo $bluegnu | sed -e 's/-bluegnu$//'`
if [ "$target" != bluegnu ] ; then
target="--target=${target}"
else
target=""
fi
#
# Find the right interpreter 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/itclsh3.0" ] ; then
expectbin=$execpath/itclsh3.0
else
expectbin=itclsh3.0
fi
fi
# just to be safe...
if [ -z "$expectbin" ]; then
echo "ERROR: No $expectbin shell found"
exit 1
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 \& "$DEBUG" > /dev/null ; then
echo Using $expectbin as interpreter for the BlueGnu testing framework.
fi
#
# find bluegnu.itcl. First we look in it's installed location, otherwise
# start if from the source tree.
#
for i in $execpath/../lib/bluegnu $execpath/../lib $execpath $execpath/lib ; do
if expr $verbose \> 2 \& "$DEBUG" > /dev/null ; then
echo Looking for $i/bluegnu.itcl.
fi
if [ -f $i/bluegnu.itcl ] ; then
runpath=$i
if expr $verbose \> 0 \& "$DEBUG" > /dev/null ; then
echo Using $i/bluegnu.itcl as default main test driver
fi
break
fi
done
# check for an environment variable
if [ x"$BLUEGNULIB" != x ] ; then
runpath=$BLUEGNULIB
else
BLUEGNULIB=$runpath; export BLUEGNULIB
fi
if expr $verbose \> 0 \& "$DEBUG" > /dev/null ; then
echo Using $BLUEGNULIB as the BlueGnu library
fi
#
# Find the right test framework. If a variable FRAMEWORK exists,
# it takes precedence over all other frameworks. Otherwise look for the
# default one.
if [ x"$FRAMEWORK" != x ] ; then
framework=$FRAMEWORK
else
if [ -r "$runpath/bluegnu.itcl" ] ; then
framework=bluegnu.itcl
else
echo "ERROR: $runpath/bluegnu.itcl does not exist."
exit 1
fi
fi
if [ x"$runpath" = x ] ; then
echo "ERROR: bluegnu.itcl does not exist."
exit 1
fi
if [ ! -r "$runpath/$framework" ] ; then
echo "ERROR: $runpath/$framework does not exist."
else
if expr $verbose \> 0 \& "$DEBUG" > /dev/null ; then
echo "Using $runpath/$framework as main test driver"
fi
fi
# Find Test Suite Root directory
#
if [ x"$TESTSUITEROOT" = x ] ; then
TESTSUITEROOT=`pwd`; export TESTSUITEROOT
else
cd $TESTSUITEROOT
fi
if expr $verbose \> 0 \& "$DEBUG" > /dev/null ; then
echo "Using $TESTSUITEROOT as Test Suite Directory."
fi
# Start the BlueGnu Test Framework
#
if expr $verbose \> 2 \& "$DEBUG" > /dev/null ; then
echo Command: $expectbin $debug $runpath/$framework $target ${1+"$@"}
fi
exec $expectbin $debug $runpath/$framework $target ${1+"$@"}
|