238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
|
(exit 4))
((let ((db #f))
(if (not (setup-for-run))
(begin
(debug:print 0 print "Failed to setup, exiting")
(exit 1)))
(set! db (open-db))
(if (not (args:get-arg "-server"))
(server:client-setup db))
(if (not (car *configinfo*))
(begin
(debug:print 0 "ERROR: Attempted to remove test(s) but run area config file not found")
(exit 1))
;; put test parameters into convenient variables
(runs:remove-runs db
(args:get-arg ":runname")
|
|
|
|
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
|
(exit 4))
((let ((db #f))
(if (not (setup-for-run))
(begin
(debug:print 0 print "Failed to setup, exiting")
(exit 1)))
(set! db (open-db))
;; (if (not (args:get-arg "-server"))
;; (server:client-setup db))
(if (not (car *configinfo*))
(begin
(debug:print 0 "ERROR: Attempted to remove test(s) but run area config file not found")
(exit 1))
;; put test parameters into convenient variables
(runs:remove-runs db
(args:get-arg ":runname")
|