Overview
| Comment: | Evaluate strings before storing in environment in launch:execute |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
761dba431de0e9684134a9b8b837b479 |
| User & Date: | mrwellan on 2014-06-26 15:27:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-15
| ||
| 00:06 | Merged recent changes from v1.55 check-in: c2c7cdb91e user: matt tags: v1.60 | |
|
2014-06-26
| ||
| 15:27 | Evaluate strings before storing in environment in launch:execute check-in: 761dba431d user: mrwellan tags: v1.60 | |
|
2014-06-03
| ||
| 09:41 | Nearly all working with v1.55 changes merged into v1.60 check-in: 8d341c3b0e user: mrwellan tags: v1.60 | |
Changes
Modified tests.scm from [4207ae7c79] to [1442dbb947].
| ︙ | ︙ | |||
637 638 639 640 641 642 643 |
(if (and uname hostname)
(rmt:general-call 'update-uname-host run-id uname hostname test-id)))
;; This one is for running with no db access (i.e. via rmt: internally)
(define (tests:set-full-meta-info db test-id run-id minutes work-area remtries)
;; (define (tests:set-full-meta-info test-id run-id minutes work-area)
;; (let ((remtries 10))
| > > > > | | | | | | | | | | | | | | | | | | | | > | | 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 |
(if (and uname hostname)
(rmt:general-call 'update-uname-host run-id uname hostname test-id)))
;; This one is for running with no db access (i.e. via rmt: internally)
(define (tests:set-full-meta-info db test-id run-id minutes work-area remtries)
;; (define (tests:set-full-meta-info test-id run-id minutes work-area)
;; (let ((remtries 10))
(let* ((cpuload (get-cpu-load))
(diskfree (get-df (current-directory)))
(uname (get-uname "-srvpio"))
(hostname (get-host-name)))
;; (handle-exceptions
;; exn
;; (if (> remtries 0)
;; (begin
;; (set! remtries (- remtries 1))
;; (thread-sleep! 10)
;; (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)))
;; (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)
(tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname)))
;; (define (tests:set-partial-meta-info test-id run-id minutes work-area)
(define (tests:set-partial-meta-info test-id run-id minutes work-area remtries)
(let* ((cpuload (get-cpu-load))
(diskfree (get-df (current-directory)))
(remtries 10))
(handle-exceptions
|
| ︙ | ︙ |