Overview
| Comment: | Tried rpc:close-all-connections |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | test-specific-db |
| Files: | files | file ages | folders |
| SHA1: |
15de82c995214c9a0799ceb5cf6d3218 |
| User & Date: | matt on 2012-10-06 21:44:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-10-07
| ||
| 22:05 | Updated chicken install script. Added test for -test-paths or -test-files Closed-Leaf check-in: 6c6195593c user: matt tags: test-specific-db | |
| 12:14 | merged to trunk while sitting next to a creek in Prescott wilderness check-in: 30895dfd86 user: user tags: trunk, test4-clean | |
|
2012-10-06
| ||
| 21:44 | Tried rpc:close-all-connections check-in: 15de82c995 user: matt tags: test-specific-db | |
| 19:50 | Bumpted version check-in: 1944d0c828 user: fdk71adm tags: test-specific-db, v1.4611 | |
Changes
Modified db.scm from [f499d2e56f] to [606081fd7b].
| ︙ | ︙ | |||
1130 1131 1132 1133 1134 1135 1136 | (apply sqlite3:execute state-status-stmt params)) ((state-status-msg) (apply sqlite3:execute state-status-msg-stmt params)) ((test_data-pf-rollup) ;; (hash-table-set! rollups (car params) params)) (apply sqlite3:execute test_data-rollup-stmt params)) ((pass-fail-counts) | < | 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 |
(apply sqlite3:execute state-status-stmt params))
((state-status-msg)
(apply sqlite3:execute state-status-msg-stmt params))
((test_data-pf-rollup)
;; (hash-table-set! rollups (car params) params))
(apply sqlite3:execute test_data-rollup-stmt params))
((pass-fail-counts)
(apply sqlite3:execute pass-fail-counts-stmt params))
((register-test)
(apply sqlite3:execute register-test-stmt params))
(else
(debug:print 0 "ERROR: Queued entry not recognised " entry)))))
data)))
;; now do any rollups
|
| ︙ | ︙ |
Modified megatest.scm from [52e9d5c82a] to [e8b477af90].
| ︙ | ︙ | |||
802 803 804 805 806 807 808 809 810 811 812 813 814 815 |
;;======================================================================
;; Exit and clean up
;;======================================================================
(if (not *didsomething*)
(debug:print 0 help))
(if (not (eq? *globalexitstatus* 0))
(if (or (args:get-arg "-runtests")(args:get-arg "-runall"))
(begin
(debug:print 0 "NOTE: Subprocesses with non-zero exit code detected: " *globalexitstatus*)
(exit 0))
(case *globalexitstatus*
((0)(exit 0))
| > > | 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 |
;;======================================================================
;; Exit and clean up
;;======================================================================
(if (not *didsomething*)
(debug:print 0 help))
;; (if *runremote* (rpc:close-all-connections!))
(if (not (eq? *globalexitstatus* 0))
(if (or (args:get-arg "-runtests")(args:get-arg "-runall"))
(begin
(debug:print 0 "NOTE: Subprocesses with non-zero exit code detected: " *globalexitstatus*)
(exit 0))
(case *globalexitstatus*
((0)(exit 0))
|
| ︙ | ︙ |