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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
#! /bin/sh
#
# Copyright (c) 1995 The Regents of the University of California.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
# must display the following acknowledgement:
# This product includes software developed by the Network Research
# Group at Lawrence Berkeley National Laboratory.
# 4. Neither the name of the University nor of the Laboratory may be used
# to endorse or promote products derived from this software without
# specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# @(#) $Header: /cvsroot/nsnam/ns-2/tcl/test/test-all-template1.win,v 1.3 2007/06/17 21:52:06 tom_henderson Exp $
#
# The initial version of this script was written and contributed
# by Matt Mathis (mathis@psc.edu).
#
file=$1; shift
directory=$1; shift
version=$1; shift
if test "$version" = "v2"; then
tests=`awk '/^Class Test\//{ print substr($2,index($2, "/")+1) }' $file`
else
tests=`awk '/^proc test_/{ print substr($2,index($2, "_")+1) }' $file`
fi
quiet=false
new=false
alltests=true
# echo "num=$#, args $@"
while test $# -ge 1
do
case $1 in
quiet|QUIET) quiet=true;;
new|NEW) new=true;;
*) alltests=false; tlist="$tlist $1";;
esac
shift
done
test="$@"
datafile="temp.rands"
NS=${NS:-../../ns}
if $alltests
then
:
else
tests=$tlist
fi
if [ ! -d $directory ]; then
if $new
then
mkdir $directory
else
echo "no saved test output. do cvs update -d"
echo "or re-run your test with \"new\" as the last argument."
exit 1
fi
fi
echo Tests: $tests
success="true"
number=0
for t in $tests; do
# Beware that xgraph is run asynchronously, and if it
# is slow to launch, you may get an incorrect graph
if $quiet
then
echo $NS $file $t QUIET
if (test "$file" = "test-suite-session.tcl") || (test "$file" = "test-suite-mixmode.tcl")
then
$NS $file $t > temp.rands
else
$NS $file $t QUIET
fi
else
echo
echo Running test $t:
echo $NS $file $t
if (test "$file" = "test-suite-session.tcl") || (test "$file" = "test-suite-mixmode.tcl")
then
$NS $file $t > temp.rands
else
$NS $file $t
fi
fi
if [ -f $datafile ]; then
if [ ! -f $directory/$t.gz ]; then
echo saving output for future validation
success="unknown"
cp $datafile $datafile.bk; gzip $datafile
cp $datafile.bk $datafile
mv $datafile.gz $directory/$t.gz
else
gzip -dc $directory/$t.gz | perl -ne 'print $_;' | cmp -s - $datafile
if [ $? = 0 ]; then
echo Test output agrees with reference output
else
echo Test output differs from reference output
success="false"
cp $datafile $directory/$t.test
gzip -dc $directory/$t.gz > $directory/$t
echo "Diagnose with: diff $directory/$t.test $directory/$t"
echo "Or see URL \"http://www.isi.edu/nsnam/ns/ns-problems.html\"."
fi
fi
else
success="unknown"
fi
if $quiet
then
:
else
echo 'next?'
read answer
fi
done
# sucess can be true, false, or unknown
if "$success" = true; then
echo All test output agrees with reference output.
exit 0
else
echo Some test failed.
exit 1
fi
|
