← Back to branch summary

~ubuntu-branches/debian/experimental/eso-midas/experimental

« back to all changes in this revision

Viewing changes to .pc/disable_failing_tests.patch/test/prim/veriall.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2015-03-17 15:17:38 UTC
  • mfrom: (1.1.4)
  • Revision ID: package-import@ubuntu.com-20150317151738-04qxxeqm36oful9i
Tags: 15.02pl1.1-1~exp1
New upstream version

Show diffs side-by-side

added added

removed removed

Lines of Context:
.pc/disable_failing_tests.patch/test/prim/veriall.prg
1
 
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++
2
 
!
3
 
!  MIDAS procedure veriall.prg  to execute all the "verify" procedures
4
 
!  K. Banse     921202  creation
5
 
!
6
 
!  use as:      @@ veriall display flags format loop 
7
 
! 
8
 
!  130611               last modif
9
 
! 
10
 
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++
11
 
! 
12
 
define/param p1 Display c "Enter NoDisplay or Display (the default):"
13
 
define/param p2 10 c "Enter 2-digit flag for choice of verifications:"
14
 
! p2(1:1) = 1 for non-interactive tests
15
 
! p2(2:2) = 1 for interactive tests
16
 
define/param p3 1 n -
17
 
   "Enter flag (1/2/3/4) for using data files in Midas, FITS, M+F, F+M format):"
18
 
define/param p4 1 n "Enter no. of verification runs:"
19
 
! 
20
 
if p1(1:1) .eq. "D" then
21
 
   write/keyw dispflg/i/1/1 1
22
 
else
23
 
   write/keyw dispflg/i/1/1 0
24
 
endif
25
 
! 
26
 
write/keyw verities/i/1/30 0 all
27
 
write/keyw nodemo/i/1/1 0               !to check MID_TEST dir.
28
 
! 
29
 
write/keyw loopflag/i/1/2 1,1
30
 
write/keyw datformat/c/1/6 " " all
31
 
write/keyw times/i/1/5 0 all
32
 
times(1) = m$secs()
33
 
set/format i1
34
 
! 
35
 
! check for basic run
36
 
if p2(1:1) .eq. "0" goto last_procs
37
 
! 
38
 
! check, if we have the default width (80 chars)
39
 
if log(10) .ne. 80 then
40
 
   write/out "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
41
 
   write/out Warning: terminal width not good for logfile comparison...
42
 
   write/out "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
43
 
endif
44
 
! 
45
 
do loopflag(1) = 1 {p4} 1
46
 
   loopflag(2) = {p3}                   !init loopflag(2) again
47
 
   if loopflag(2) .eq. 1 .or. loopflag(2) .eq. 3 then
48
 
      datformat = "Midas "
49
 
   else
50
 
      datformat = "FITS  "
51
 
   endif
52
 
   set/midas workenv={datformat}
53
 
   ! 
54
 
  FITSloop:
55
 
   ! 
56
 
   write/out
57
 
   write/out *********************************************************
58
 
   write/out
59
 
   set/format i3
60
 
   write/out    Verification run ({loopflag(1)}) using data files in {datformat} format
61
 
   set/format i1
62
 
   write/out
63
 
   write/out *********************************************************
64
 
   write/out
65
 
   !
66
 
   q1 = "0"
67
 
   @@ verify1 
68
 
   if q1 .ne. "0" return 99
69
 
   verities(1) = mid$info(8)
70
 
   ! 
71
 
   @@ verify2 {dispflg}1111111111 111111111111
72
 
   if q1 .ne. "0" return 99
73
 
   verities(2) = mid$info(8)
74
 
   ! 
75
 
   @@ verify3 
76
 
   if q1 .ne. "0" return 99
77
 
   verities(3) = mid$info(8)
78
 
   ! 
79
 
   @@ verify4 {dispflg}1111111111 111111111111
80
 
   if q1 .ne. "0" return 99
81
 
   verities(4) = mid$info(8)
82
 
   ! 
83
 
   @@ verify5 {dispflg}111111 1111111111111
84
 
   if q1 .ne. "0" return 99
85
 
   verities(5) = mid$info(8)
86
 
   ! 
87
 
   @@ verify55 {dispflg}111111 1111111111111
88
 
   if q1 .ne. "0" return 99
89
 
   verities(23) = mid$info(8)
90
 
   ! 
91
 
   @@ verify6 {dispflg}1111111111 111111111111
92
 
   if q1 .ne. "0" return 99
93
 
   verities(6) = mid$info(8)
94
 
   ! 
95
 
   @@ verify7  {dispflg}1111111111 111111111111
96
 
   if q1 .ne. "0" return 99
97
 
   verities(7) = mid$info(8)
98
 
   ! 
99
 
   @@ verify8  {dispflg}1111111111 111111111111
100
 
   if q1 .ne. "0" return 99
101
 
   verities(8) = mid$info(8)
102
 
   ! 
103
 
   @@ verifyt1 
104
 
   if q1 .ne. "0" return 99
105
 
   verities(21) = mid$info(8)
106
 
   ! 
107
 
   @@ verifyt2 
108
 
   if q1 .ne. "0" return 99
109
 
   verities(22) = mid$info(8)
110
 
   ! 
111
 
   @@ verifydio
112
 
   verities(20) = mid$info(8)
113
 
   if q1 .ne. "0" then
114
 
      write/out ******** verifydio.prg ******** ... failed ...
115
 
      return 99
116
 
   endif
117
 
   ! 
118
 
   @@ verify99  {dispflg}1111111111 
119
 
   if q1 .ne. "0" return 99
120
 
   verities(24) = mid$info(8)
121
 
   ! 
122
 
   @@ verify9  1111111111 111111111111
123
 
   if q1 .ne. "0" return 99
124
 
   verities(9) = mid$info(8)
125
 
   ! 
126
 
   @@ verify10  {dispflg}11111111
127
 
   if q1 .ne. "0" return 99
128
 
   verities(10) = mid$info(8)
129
 
   ! 
130
 
   @@ verify11  {dispflg}1111111111 
131
 
   if q1 .ne. "0" return 99
132
 
   verities(11) = mid$info(8)
133
 
   ! 
134
 
   @@ verify12  {dispflg}111111111111 
135
 
   if q1 .ne. "0" return 99
136
 
   verities(12) = mid$info(8)
137
 
   ! 
138
 
   @@ verify13  {dispflg}111111111111 
139
 
   if q1 .ne. "0" return 99
140
 
   verities(13) = mid$info(8)
141
 
   ! 
142
 
   @@ verify14  {dispflg}111111111111           !Marc's table stuff...
143
 
   if q1 .ne. "0" return 99
144
 
   verities(14) = mid$info(8)
145
 
   ! 
146
 
   @@ verify15  {dispflg}111111111111111
147
 
   if q1 .ne. "0" return 99
148
 
   verities(15) = mid$info(8)
149
 
   ! 
150
 
   @@ verify16  {dispflg}111111111111111
151
 
   if q1 .ne. "0" return 99
152
 
   verities(16) = mid$info(8)
153
 
   ! 
154
 
   ! +++ special test procedure for copy/table ...
155
 
   @@ verify17  {dispflg}11111
156
 
   if q1 .ne. "0" then
157
 
      write/out "  "
158
 
      write/out "*** these problems are caused by the copy/table command..."
159
 
      write/out "*** please, notify ESO/Midas via the midas-users mailing list"
160
 
      return 99
161
 
   endif
162
 
   ! +++
163
 
   ! 
164
 
   if loopflag(2) .gt. 2 then
165
 
      @ vericopy  >Null
166
 
      if loopflag(2) .eq. 3 then
167
 
         datformat = "FITS  "
168
 
      else
169
 
         datformat = "Midas "
170
 
      endif
171
 
      set/midas workenv={datformat}
172
 
      loopflag(2) = -1                  !loop only once
173
 
      goto FITSloop
174
 
   endif
175
 
   ! 
176
 
   if {p3} .gt. 1 @ vericopy  >Null
177
 
   !
178
 
enddo
179
 
! 
180
 
set/midas workenv=midas
181
 
!                                       get execution time
182
 
times(2) = m$secs()-times(1)
183
 
set/format i1
184
 
times(3) = times(2)/60
185
 
times(4) = times(2)-times(3)*60
186
 
!                                       get system info from host
187
 
if aux_mode(1) .ne. 1 then
188
 
   $ uname -mnrs | write/keyw out_b
189
 
else
190
 
   write/keyw out_b VAX/VMS system
191
 
endif
192
 
inputc = m$time(1)
193
 
!                                       open logfile for verification times
194
 
define/local fc/i/1/3 0,0,0
195
 
inputi = m$index(out_b," ") - 1
196
 
if inputi .lt. 1 then
197
 
   write/keyw in_b  MID_WORK:veriall_X.{inputc} 
198
 
else
199
 
   if inputi .gt. 8 inputi = 8
200
 
   if out_b(1:5) .eq. "Linux" then              !different Linux systems
201
 
      $ uname -m | write/keyw outputc
202
 
      write/keyw in_b MID_WORK:veriall_{out_b(1:{inputi})}_{outputc}.{inputc}
203
 
   else
204
 
      write/keyw in_b MID_WORK:veriall_{out_b(1:{inputi})}.{inputc}
205
 
   endif
206
 
endif
207
 
open/file {in_b} write  fc
208
 
if fc(1) .lt. 0 then
209
 
   write/out Could not create file: "MID_WORK:veriall_{out_b}.{inputc} ..."
210
 
   fc(3) = -1
211
 
endif
212
 
! 
213
 
write/out  
214
 
write/out Midas version {mid$sess(16:27)} ... {inputc(1:40)}
215
 
if fc(3) .eq. 0 then
216
 
   write/file {fc(1)} "Midas version {mid$sess(16:27)} ... {inputc(1:40)}"
217
 
endif
218
 
write/out 
219
 
if loopflag(1) .eq. 1 then
220
 
   write/out -
221
 
   "successful end of verification run (with option {p3})"
222
 
   if fc(3) .eq. 0 then
223
 
      write/file {fc(1)} -
224
 
         "successful end of verification run (with option {p3})"
225
 
   endif
226
 
else
227
 
   write/out -
228
 
   "successful end of {p4} verification runs (with option {p3})"
229
 
   if fc(3) .eq. 0 then
230
 
      write/file {fc(1)} -
231
 
         "successful end of {p4} verification runs (with option {p3})"
232
 
   endif
233
 
endif
234
 
if nodemo .gt. 0 then
235
 
   write/out " "
236
 
   write/out {nodemo} files were missing from Midas demo-data dir. (MID_TEST)
237
 
   write/out check the ASCII file ./missing-files for details
238
 
   write/out " "
239
 
else
240
 
   write/out Midas demo-data dir. (MID_TEST) complete
241
 
endif
242
 
write/out "elapsed time: {times(3)}m {times(4)}s ({times(2)} secs)"
243
 
   write/out
244
 
if fc(3) .eq. 0 then
245
 
   write/file {fc(1)} "elapsed time: {times(3)}m {times(4)}s ({times(2)} secs)"
246
 
   write/file {fc(1)} "   "
247
 
endif
248
 
! 
249
 
write/out individual times (in secs) for the verify(x) procedures:
250
 
write/out (1) {verities(1)}, (2) {verities(2)}, (3) {verities(3)}, (4) {verities(4)}, (5) {verities(5)},
251
 
write/out (6) {verities(6)}, (7) {verities(7)}, (8) {verities(8)}, (9) {verities(9)}, (10) {verities(10)},
252
 
write/out (11) {verities(11)}, (12) {verities(12)}, (13) {verities(13)}, (14) {verities(14)}, (15) {verities(15)}, (16) {verities(16)}
253
 
write/out (dio) {verities(20)}, (t1) {verities(21)}, (t2) {verities(22)}, (99) {verities(29)}
254
 
if fc(3) .eq. 0 then
255
 
   write/file {fc(1)} -
256
 
      individual times (in secs) for the verify(x) procedures:
257
 
   write/file {fc(1)} -
258
 
      "(1) {verities(1)}, (2) {verities(2)}, (3) {verities(3)}, (4) {verities(4)}, (5) {verities(5)},"
259
 
   write/file {fc(1)} -
260
 
      "(6) {verities(6)}, (7) {verities(7)}, (8) {verities(8)}, (9) {verities(9)}, (10) {verities(10)},"
261
 
   write/file {fc(1)} -
262
 
      "(11) {verities(11)}, (12) {verities(12)}, (13) {verities(13)}, (14) {verities(14)},(15) {verities(15)}"
263
 
   write/file {fc(1)} -
264
 
      "(dio) {verities(20)}, (t1) {verities(21)}, (t2) {verities(22)}, (99) {verities(29)}"
265
 
endif
266
 
! 
267
 
write/out 
268
 
write/out system used: {out_b(1:40)}
269
 
! 
270
 
if fc(3) .eq. 0 then
271
 
   write/file {fc(1)} "   "
272
 
   write/file {fc(1)} "system used: {out_b(1:40)}"
273
 
   close/file {fc(1)}
274
 
endif
275
 
!
276
 
! if required, execute the interactive verification procedures 
277
 
! 
278
 
last_procs:
279
 
if p2(2:2) .eq. "1" then
280
 
   write/out executing interactive verifications
281
 
   write/out
282
 
   @@ verifyia
283
 
endif
284
 
return 0
285