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