Overview
| Comment: | Merged remaining change from v1.65 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2aac0d5e8d16598e6b274d3899d4dee2 |
| User & Date: | mrwellan on 2018-10-19 14:32:50 |
| Other Links: | manifest | tags |
Context
|
2018-10-24
| ||
| 15:25 | Updates to user manual. Switched back to versioned files instead of wiki pages. check-in: f02438d40b user: mrwellan tags: trunk | |
|
2018-10-19
| ||
| 14:41 | Create new branch named "v2.01" check-in: 28ee2dd11d user: mrwellan tags: v2.01-try-1 | |
| 14:32 | Merged remaining change from v1.65 check-in: 2aac0d5e8d user: mrwellan tags: trunk | |
|
2018-10-03
| ||
| 10:35 | fix for contour value sql-null-type check-in: 11a467a8ef user: pjhatwal tags: v1.65, v1.6515 | |
|
2018-09-12
| ||
| 11:30 | Merged changes from 1.65 to trunk check-in: 2de04d314a user: mrwellan tags: trunk | |
Changes
Modified tasks.scm from [c5107e3a44] to [358b0b74f6].
| ︙ | ︙ | |||
753 754 755 756 757 758 759 | (state (db:get-value-by-header row header "state")) (status (db:get-value-by-header row header "status")) (owner (db:get-value-by-header row header "owner")) (event-time (db:get-value-by-header row header "event_time")) (comment (db:get-value-by-header row header "comment")) (fail-count (db:get-value-by-header row header "fail_count")) (pass-count (db:get-value-by-header row header "pass_count")) | | | | 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 |
(state (db:get-value-by-header row header "state"))
(status (db:get-value-by-header row header "status"))
(owner (db:get-value-by-header row header "owner"))
(event-time (db:get-value-by-header row header "event_time"))
(comment (db:get-value-by-header row header "comment"))
(fail-count (db:get-value-by-header row header "fail_count"))
(pass-count (db:get-value-by-header row header "pass_count"))
(db-contour (db:get-value-by-header row header "contour"))
(contour (if (args:get-arg "-prepend-contour")
(if (and db-contour (not (equal? db-contour "")) (string? db-contour ))
(begin
(debug:print-info 1 *default-log-port* "db-contour")
db-contour)
(args:get-arg "-contour"))))
(keytarg (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
(conc "MT_CONTOUR/MT_AREA/" (string-intersperse (rmt:get-keys) "/")) (string-intersperse (rmt:get-keys) "/"))) ;; e.g. version/iteration/platform
(target (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
|
| ︙ | ︙ | |||
986 987 988 989 990 991 992 |
(area-tag (if (args:get-arg "-area-tag")
(args:get-arg "-area-tag")
"")))
(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))
| | | 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 |
(area-tag (if (args:get-arg "-area-tag")
(args:get-arg "-area-tag")
"")))
(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 1 *default-log-port* "Syncing " (length test-step-ids) " changed tests")
;;Assumption here is that if test-step or test data is changed then the test last update time is changed
;; not syncing run stats at this time as they can be derived from tests table.
(tasks:sync-tests-data dbh cached-info test-ids area-info)
;(exit)
(tasks:sync-run-data dbh cached-info run-ids area-info)
|
| ︙ | ︙ |