Overview
| Comment: | Added -area as an alias to -area-tag to silence errors from MCC |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
29f35f475c1ed2287f876308834d179c |
| User & Date: | jmoon18 on 2019-02-06 14:29:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-02-07
| ||
| 17:12 | fixed tasks.scm -- Error: (line 1066) unterminated list, starting in line 997 check-in: 8fe9960438 user: bjbarcla tags: v1.65 | |
|
2019-02-06
| ||
| 14:29 | Added -area as an alias to -area-tag to silence errors from MCC check-in: 29f35f475c user: jmoon18 tags: v1.65 | |
|
2019-02-01
| ||
| 11:15 | added new indexes on tests table check-in: 55bfa73d28 user: bjbarcla tags: v1.65, v1.6523 | |
Changes
Modified megatest.scm from [f471deb056] to [170ba13932].
| ︙ | ︙ | |||
308 309 310 311 312 313 314 315 316 317 318 319 320 321 |
":units"
;; misc
"-start-dir"
"-run-patt"
"-target-patt"
"-contour"
"-area-tag"
"-server"
"-transport"
"-port"
"-extract-ods"
"-pathmod"
"-env2file"
"-envcap"
| > | 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 |
":units"
;; misc
"-start-dir"
"-run-patt"
"-target-patt"
"-contour"
"-area-tag"
"-area"
"-server"
"-transport"
"-port"
"-extract-ods"
"-pathmod"
"-env2file"
"-envcap"
|
| ︙ | ︙ |
Modified tasks.scm from [a9c7045f9a] to [34eb5fbf1f].
| ︙ | ︙ | |||
1030 1031 1032 1033 1034 1035 1036 |
(run-ids (alist-ref 'runs changed))
(test-ids (alist-ref 'tests changed))
(test-step-ids (alist-ref 'test_steps changed))
(test-data-ids (alist-ref 'test_data changed))
(run-stat-ids (alist-ref 'run_stats changed))
(area-tag (if (args:get-arg "-area-tag")
(args:get-arg "-area-tag")
| > > | | 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 |
(run-ids (alist-ref 'runs changed))
(test-ids (alist-ref 'tests changed))
(test-step-ids (alist-ref 'test_steps changed))
(test-data-ids (alist-ref 'test_data changed))
(run-stat-ids (alist-ref 'run_stats changed))
(area-tag (if (args:get-arg "-area-tag")
(args:get-arg "-area-tag")
(if (args:get-arg "-area")
(args:get-arg "-area")
"")))
(if (and (equal? area-tag "") (not (pgdb:is-area-taged dbh (vector-ref area-info 0))))
(set! area-tag *default-area-tag*))
(if (not (equal? area-tag ""))
(task:add-area-tag dbh area-info area-tag))
(if (or (not (null? test-ids)) (not (null? run-ids)))
(begin
(debug:print-info 0 *default-log-port* "syncing runs")
|
| ︙ | ︙ |