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
152
153
154
155
156
|
#!/bin/csh -f
#
# SXTEST - test SX
#
# Source Version: 2.0
# Software Release #92-0043
#
# include "cpyright.h"
#
#############################################################################XS
set FrontEnd = ""
set DPE = `which pact-dpe`
if ("$DPE" != "") then
if (-e "$DPE[1]") then
source $DPE
endif
endif
set System = `../manager/system-id`
set BinDir = ../dev/$System/bin
set ERROR = "FALSE"
set FAIL = "NO"
set status = 0
source ../manager/env-$System
set SX = "$FrontEnd $BinDir/sx"
# (Template of test on size of DIFF compare (i.e. 12 char date differs)
# set Files = `find . -name "sxpdb.res.diff" -size 12c -print`
# if ($#Files == 0) then.... compare fails!
rm -f sxpdb.res sxpdba.res sxpdbi.res sxhash.res sxpgs.ps
rm -f sxpdb.res.diff sxpdba.res.diff sxpdbi.res.diff sxhash.res.diff sxpgs.ps.diff
if (-e ../dev/$System/include/sx.h) then
echo ""
echo "SX TEST..."
rm -f sxtest.debug
echo `../manager/pwhich pact` >& sxtest.debug
echo `../manager/pwhich cc` >>& sxtest.debug
echo "BinDir = $BinDir" >>& sxtest.debug
echo ""
echo -n " SX PDB Test ....."
$SX -r -s -l sxpdb.scm > sxpdb.res
diff sxpdb.res sxpdb.res.ref > sxpdb.res.diff
set DiffStat = $status
if ($DiffStat != 0) then
echo ""
echo " SX PDB Test ............... FAILED"
set ERROR = "TRUE"
else
echo ".......... PASSED"
rm -f sxpdb.res sxpdb.res.diff
endif
echo ""
echo -n " SX PDB Attribute Test ....."
$SX -r -s -l sxpdba.scm > sxpdba.res
diff sxpdba.res sxpdba.res.ref > sxpdba.res.diff
set DiffStat = $status
if ($DiffStat != 0) then
echo ""
echo " SX PDB Attribute Test ..... FAILED"
set ERROR = "TRUE"
else
echo " PASSED"
rm -f sxpdba.res sxpdba.res.diff
endif
echo ""
echo -n " SX PDB VIF Test ..........."
$SX -p -q -l sxpdbi.scm > sxpdbi.res
diff sxpdbi.res sxpdbi.res.ref > sxpdbi.res.diff
set DiffStat = $status
if ($DiffStat != 0) then
cp sxpdbi.res sxpdbi.res.crash
echo ""
echo " SX PDB VIF Test ........... FAILED"
set ERROR = "TRUE"
else
echo " PASSED"
rm -f sxpdbi.res sxpdbi.res.diff
endif
echo ""
echo -n " SX HASH Test ....."
$SX -r -s -l sxhash.scm > sxhash.res.tmp
sed -e '/diskaddr =/d' -e '/size =/d' -e '/alignment =/d' -e '/member_offs =/d' \
-e '/cast_offs =/d' -e '/number =/d' -e '/order/d' -e '/format/d' \
-e 's/#([^A-Za-z)]*)//g' \
sxhash.res.tmp > sxhash.res
diff sxhash.res sxhash.res.ref > sxhash.res.diff
set DiffStat = $status
if ($DiffStat != 0) then
echo ""
echo " SX HASH Test .............. FAILED"
set ERROR = "TRUE"
else
echo "......... PASSED"
rm -f sxhash.res.tmp sxhash.res sxhash.res.diff
endif
echo ""
echo -n " SX PGS Test ....."
$SX -r -s -l sxpgs.scm > sxpgs.ps
diff sxpgs.ps sxpgs.ps.ref > sxpgs.ps.diff
cat sxpgs.ps.diff | $BinDir/ps-diff > /dev/null
set DiffStat = $status
if ($DiffStat != 0) then
echo ""
echo " SX PGS Test ............... FAILED"
set ERROR = "TRUE"
else
echo ".......... PASSED"
rm -f sxpgs.ps sxpgs.ps.diff
endif
echo ""
if ($ERROR == "TRUE") then
echo ""
echo "Debug:"
cat sxtest.debug
echo ""
echo "SX TEST...FAILED"
else
echo "SX TEST...PASSED"
endif
echo ""
echo " --------------------------------------------------------"
else
echo ""
echo "SX Code Not Available"
endif
set xstatus = 0
if ($ERROR == "TRUE") then
set xstatus = 1
endif
exit($xstatus)
|
