Megatest

Check-in [461f5cc510]
Login
Overview
Comment: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.

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | test-broken-up-queries
Files: files | file ages | folders
SHA1: 461f5cc510f1eca4badc5da9e7fa5588403608a9
User & Date: matt on 2013-10-31 09:01:53
Original Comment: Don't update central with run time - do it once test is completed or deprecate that field in tests forever
Other Links: branch diff | manifest | tags
Context
2013-10-31
09:01
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. Closed-Leaf check-in: 461f5cc510 user: matt tags: test-broken-up-queries

02:01
Fixed typos's etc. check-in: b88e2e296b user: matt tags: test-broken-up-queries
Changes

Modified tests.scm from [ed985ac2fe] to [e80406da83].

718
719
720
721
722
723
724
725

726
727
728
729
730
731
732
	  
(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)))
 







|
>







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)))