Differences From Artifact [ed985ac2fe]:
- File tests.scm — part of check-in [dfc126f3ca] at 2013-09-19 14:37:25 on branch v1.55 — Pulled in a long lost change to rolling up pass/fail to toplevel tests. Reverted nbfind and added nbload (user: mrwellan, size: 32897) [annotate] [blame] [check-ins using] [more...]
To Artifact [e80406da83]:
- File
tests.scm
— part of check-in
[461f5cc510]
at
2013-10-31 09:01:53
on branch test-broken-up-queries
— Don't update central with run time - do it once test is completed or deprecate that field in tests forever.
NOTE: This didn't make any substantial difference to throughput. (user: matt, size: 32903) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
718 719 720 721 722 723 724 |
(define (tests:set-partial-meta-info db test-id run-id minutes work-area)
;; DOES cdb:remote-run under the hood!
(let* ((cpuload (get-cpu-load))
(diskfree (get-df (current-directory))))
(tests:update-testdat-meta-info db test-id work-area cpuload diskfree minutes)
;; Update central with uname and hostname = #f
| | > | 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 |
(define (tests:set-partial-meta-info db test-id run-id minutes work-area)
;; DOES cdb:remote-run under the hood!
(let* ((cpuload (get-cpu-load))
(diskfree (get-df (current-directory))))
(tests:update-testdat-meta-info db test-id work-area cpuload diskfree minutes)
;; Update central with uname and hostname = #f
;(tests:update-central-meta-info test-id cpuload diskfree minutes #f #f)
))
(define (tests:update-testdat-meta-info db test-id work-area cpuload diskfree minutes)
(let ((tdb (db:open-test-db-by-test-id db test-id work-area: work-area)))
(sqlite3:execute tdb "INSERT INTO test_rundat (update_time,cpuload,diskfree,run_duration) VALUES (strftime('%s','now'),?,?,?);"
cpuload diskfree minutes)
(sqlite3:finalize! tdb)))
|
| ︙ | ︙ |