Overview
| Comment: | Speculative fix for partial updates of test_meta |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
53eb2bad17e24a72fd6442c166c60d8f |
| User & Date: | mrwellan on 2013-10-24 17:51:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-10-24
| ||
| 18:10 | Fixed -update-meta check-in: 2057d3d239 user: mrwellan tags: v1.55, v1.5513 | |
| 17:51 | Speculative fix for partial updates of test_meta check-in: 53eb2bad17 user: mrwellan tags: v1.55 | |
|
2013-10-23
| ||
| 09:33 | Removed auto marking of tests as incomplete as it is failing to detect legit running tests in some cases. Added -mark-incomplete switch to enable manual running of marking incompleted tests check-in: 183f240774 user: mrwellan tags: v1.55, v1.5513 | |
Changes
Modified NOTES from [973eb2f3d1] to [f5959ca38f].
1 2 3 4 5 6 7 | # FROM andyjpg on #chicken (let ((original-exit (exit-handler))) (exit-handler (lambda (#!optional (exit-code 0)) (printf "Preparing to exit...\n" exit-code) (for-each (lambda (pid) (printf "Sending signal/term to ~A\n" pid) | > > > > | 1 2 3 4 5 6 7 8 9 10 11 | [87cbe68f31] [be405e8e2e] # FROM andyjpg on #chicken (let ((original-exit (exit-handler))) (exit-handler (lambda (#!optional (exit-code 0)) (printf "Preparing to exit...\n" exit-code) (for-each (lambda (pid) (printf "Sending signal/term to ~A\n" pid) |
| ︙ | ︙ |
Modified megatest.scm from [6da83cb93e] to [dc048f2b48].
| ︙ | ︙ | |||
1125 1126 1127 1128 1129 1130 1131 |
(begin
(if (not (setup-for-run))
(begin
(debug:print 0 "Failed to setup, exiting")
(exit 1)))
;; now can find our db
;; keep this one local
| | | 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 |
(begin
(if (not (setup-for-run))
(begin
(debug:print 0 "Failed to setup, exiting")
(exit 1)))
;; now can find our db
;; keep this one local
(open-run-close runs:update-all-test_meta #f)
(set! *didsomething* #t)))
;;======================================================================
;; Start a repl
;;======================================================================
(if (or (args:get-arg "-repl")
|
| ︙ | ︙ |
Modified runs.scm from [97c60d5363] to [160be09387].
| ︙ | ︙ | |||
1419 1420 1421 1422 1423 1424 1425 |
(begin
(print "Updating " test-name " " fld " to " val)
(cdb:remote-run db:testmeta-update-field #f test-name fld val)))))
'(("author" 2)("owner" 3)("description" 4)("reviewed" 5)("tags" 9)))))
;; Update test_meta for all tests
(define (runs:update-all-test_meta db)
| | | 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 |
(begin
(print "Updating " test-name " " fld " to " val)
(cdb:remote-run db:testmeta-update-field #f test-name fld val)))))
'(("author" 2)("owner" 3)("description" 4)("reviewed" 5)("tags" 9)))))
;; Update test_meta for all tests
(define (runs:update-all-test_meta db)
(let ((test-names (tests:get-all))) ;; (tests:get-valid-tests)))
(for-each
(lambda (test-name)
(let* ((test-conf (mt:lazy-read-test-config test-name)))
;; use the cdb:remote-run instead of passing in db
(if test-conf (runs:update-test_meta test-name test-conf))))
test-names)))
|
| ︙ | ︙ |