658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
|
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
|
-
+
|
;; (tests:set-full-meta-info db test-id run-id minutes work-area (- remtries 1)))
;; (let ((err-status ((condition-property-accessor 'sqlite3 'status #f) exn)))
;; (debug:print 0 "ERROR: tried for over a minute to update meta info and failed. Giving up")
;; (debug:print 0 "EXCEPTION: database probably overloaded or unreadable.")
;; (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
;; (print "exn=" (condition->list exn))
;; (debug:print 0 " status: " ((condition-property-accessor 'sqlite3 'status) exn))
;; (print-call-chain)))
;; (print-call-chain (current-error-port))))
;; (let* ((num-records 0) ;; (test:tdb-get-rundat-count tdb))
;; (cpuload (get-cpu-load))
;; (diskfree (get-df (current-directory)))
;; (uname (get-uname "-srvpio"))
;; (hostname (get-host-name)))
;; ;(tests:update-testdat-meta-info db test-id work-area cpuload diskfree minutes)
;; (tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname)
|
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
|
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
|
-
+
|
(tests:set-full-meta-info db test-id run-id minutes work-area (- remtries 1)))
(let ((err-status ((condition-property-accessor 'sqlite3 'status #f) exn)))
(debug:print 0 "ERROR: tried for over a minute to update meta info and failed. Giving up")
(debug:print 0 "EXCEPTION: database probably overloaded or unreadable.")
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))
(debug:print 0 " status: " ((condition-property-accessor 'sqlite3 'status) exn))
(print-call-chain)))
(print-call-chain (current-error-port))))
(tests:update-testdat-meta-info db test-id work-area cpuload diskfree minutes)
)))
;;======================================================================
;; A R C H I V I N G
;;======================================================================
(define (test:archive db test-id)
#f)
(define (test:archive-tests db keynames target)
#f)
|