Overview
| Comment: | Tweaks for triggers |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
61acf99e82fbe0911146b94c8174cb99 |
| User & Date: | matt on 2013-08-18 01:17:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-08-18
| ||
| 14:53 | Changed launch to useshell by default and to run in background check-in: c04fad23ea user: matt tags: v1.55 | |
| 01:17 | Tweaks for triggers check-in: 61acf99e82 user: matt tags: v1.55 | |
| 00:35 | Implemented (but not tested) triggers check-in: 8fbf618bd9 user: matt tags: v1.55 | |
Changes
Modified mt.scm from [d3f560c691] to [847075e4b1].
| ︙ | ︙ | |||
99 100 101 102 103 104 105 |
(if (and (file-exists? test-rundir)
(directory? test-rundir))
(begin
(push-directory test-rundir)
(set! tconfig (mt:lazy-read-test-config test-dat))
(pop-directory)
(for-each (lambda (trigger)
| | > | | 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 |
(if (and (file-exists? test-rundir)
(directory? test-rundir))
(begin
(push-directory test-rundir)
(set! tconfig (mt:lazy-read-test-config test-dat))
(pop-directory)
(for-each (lambda (trigger)
(let ((cmd (configf:lookup tconfig "triggers" trigger))
(logf (conc test-rundir "/last-trigger.log")))
(if cmd
(system (conc "(" cmd " " test-id " " test-rundir " " trigger ") >> " logf " 2>&1")))))
(list
(conc newstate "/" newstatus)
(conc newstate "/")
(conc "/" newstatus)))))))
;;======================================================================
;; S T A T E A N D S T A T U S F O R T E S T S
|
| ︙ | ︙ |
Modified tests.scm from [2146eaed6a] to [7ecdd42518].
| ︙ | ︙ | |||
319 320 321 322 323 324 325 |
(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)
| > | > | 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))
(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)
|
| ︙ | ︙ |
Modified tests/fullrun/tests/ez_fail_quick/testconfig from [76759892d8] to [4db721ce71].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | [requirements] priority 10 [ezsteps] # should fail on next step lookitnada ls /nada [test_meta] author matt owner bob description This test runs a single ezstep which fails immediately. tags first,single reviewed 09/10/2011, by Matt | > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | [requirements] priority 10 [ezsteps] # should fail on next step lookitnada ls /nada [triggers] COMPLETED/FAIL xterm;echo [test_meta] author matt owner bob description This test runs a single ezstep which fails immediately. tags first,single reviewed 09/10/2011, by Matt |