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
|
(args:get-arg "-reqtarg")))
(runname (args:get-arg "-runname"))
(tsname (common:get-testsuite-name)))
(if (and target runname)
(begin
(launch:setup)
(set! keys (rmt:get-keys))))
(let loop ()
(handle-exceptions
exn
;; (print "Process done.")
(begin (print-call-chain) (print "Error message: " ((condition-property-accessor 'exn 'message) exn)))
(let-values (((pidres exittype exitstatus)
(process-wait pid #t)))
(if (and keys
(not run-ids))
(let* ((runs (rmt:get-runs-by-patt keys
(args:get-arg "-runname")
(or (args:get-arg "-target")(args:get-arg "-reqtarg"))
#f ;; offset
#f ;; limit
#f ;; fields
0 ;; last-update
))
(header (db:get-header runs))
(rows (db:get-rows runs))
|
>
|
|
|
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
|
(args:get-arg "-reqtarg")))
(runname (args:get-arg "-runname"))
(tsname (common:get-testsuite-name)))
(if (and target runname)
(begin
(launch:setup)
(set! keys (rmt:get-keys))))
(print "TCMT: for testsuite=" tsname " found runname=" runname " and target=" target " and successfully ran launch:setup")
(let loop ()
(handle-exceptions
exn
;; (print "Process done.")
(begin (print-call-chain) (print "Error message: " ((condition-property-accessor 'exn 'message) exn)))
(let-values (((pidres exittype exitstatus)
(process-wait pid #t)))
(if (and keys
(not run-ids))
(let* ((runs (rmt:get-runs-by-patt keys
runname
target
#f ;; offset
#f ;; limit
#f ;; fields
0 ;; last-update
))
(header (db:get-header runs))
(rows (db:get-rows runs))
|