816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
|
;; 2. set status to n/a
(begin
(db:test-set-state! res "NOT_STARTED")
(db:test-set-status! res "n/a")))))
(define *last-test-cache-delete* (current-seconds))
;; Get test data using test_id
(define (db:get-test-info-cached-by-id db test-id)
;; is all this crap really worth it? I somehow doubt it.
(let* ((last-delete-str (db:get-var db "DELETED_TESTS"))
(last-delete (if (string? last-delete-str)(string->number last-delete-str) #f)))
(if (and last-delete (> last-delete *last-test-cache-delete*))
(begin
(set! *test-info* (make-hash-table))
(set! *test-id-cache* (make-hash-table))
(set! *last-test-cache-delete* last-delete)
(debug:print 4 "INFO: Clearing test data cache"))))
(if (not test-id)
(begin
(debug:print 4 "INFO: db:get-test-info-by-id called with test-id=" test-id)
#f)
(let* ((res (hash-table-ref/default *test-info* test-id #f)))
(if res
(db:patch-tdb-data-into-test-info db test-id res)
;; if no cached value then full read and write to cache
(begin
(sqlite3:for-each-row
(lambda (id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)
;; 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
(set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)))
|
>
>
>
>
|
>
|
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
|
;; 2. set status to n/a
(begin
(db:test-set-state! res "NOT_STARTED")
(db:test-set-status! res "n/a")))))
(define *last-test-cache-delete* (current-seconds))
(define (db:clean-all-caches)
(set! *test-info* (make-hash-table))
(set! *test-id-cache* (make-hash-table)))
;; Get test data using test_id
(define (db:get-test-info-cached-by-id db test-id)
;; is all this crap really worth it? I somehow doubt it.
(let* ((last-delete-str (db:get-var db "DELETED_TESTS"))
(last-delete (if (string? last-delete-str)(string->number last-delete-str) #f)))
(if (and last-delete (> last-delete *last-test-cache-delete*))
(begin
(set! *test-info* (make-hash-table))
(set! *test-id-cache* (make-hash-table))
(set! *last-test-cache-delete* last-delete)
(debug:print 4 "INFO: Clearing test data cache"))))
(if (not test-id)
(begin
(debug:print 4 "INFO: db:get-test-info-by-id called with test-id=" test-id)
#f)
(let* ((res (hash-table-ref/default *test-info* test-id #f)))
(if (and res
(member (db:test-get-state res) '("RUNNING" "COMPLETED")))
(db:patch-tdb-data-into-test-info db test-id res)
;; if no cached value then full read and write to cache
(begin
(sqlite3:for-each-row
(lambda (id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)
;; 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
(set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)))
|
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
|
;; 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
(set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)))
db
"SELECT id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment FROM tests WHERE id=?;"
test-id)
res)))
(define db:get-test-info-by-id db:get-test-info-cached-by-id)
(define (db:get-test-info db run-id testname item-path)
(db:get-test-info-by-id db (db:get-test-id db run-id testname item-path)))
(define (db:test-set-comment db test-id comment)
(sqlite3:execute
db
|
|
|
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
|
;; 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
(set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)))
db
"SELECT id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment FROM tests WHERE id=?;"
test-id)
res)))
(define db:get-test-info-by-id db:get-test-info-not-cached-by-id)
(define (db:get-test-info db run-id testname item-path)
(db:get-test-info-by-id db (db:get-test-id db run-id testname item-path)))
(define (db:test-set-comment db test-id comment)
(sqlite3:execute
db
|