Megatest

Diff
Login

Differences From Artifact [2146eaed6a]:

To Artifact [7ecdd42518]:


319
320
321
322
323
324
325

326


327
328
329
330
331
332
333
319
320
321
322
323
324
325
326

327
328
329
330
331
332
333
334
335







+
-
+
+







	     (tests:check-waiver-eligibility testdat prev-test))
	(set! real-status "WAIVED"))

    (debug:print 4 "real-status " real-status ", waived " waived ", status " status)

    ;; update the primary record IF state AND status are defined
    (if (and state status)
	(begin
	(cdb:test-set-status-state *runremote* test-id real-status state (if waived waived comment)))
	  (cdb:test-set-status-state *runremote* test-id real-status state (if waived waived comment))
	  (mt:process-triggers test-id state real-status)))
    
    ;; if status is "AUTO" then call rollup (note, this one modifies data in test
    ;; run area, it does remote calls under the hood.
    (if (and test-id state status (equal? status "AUTO")) 
	(db:test-data-rollup #f test-id status work-area: work-area))

    ;; add metadata (need to do this way to avoid SQL injection issues)