Overview
| Comment: | Preemptive fix of mis-sized record placeholder |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
ee086f46337e6696549968dfce9c4d2c |
| User & Date: | matt on 2013-12-09 22:40:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-12-09
| ||
| 23:12 | Added install of zmq from git clone check-in: 6c88a76a75 user: matt tags: v1.55 | |
| 22:40 | Preemptive fix of mis-sized record placeholder check-in: ee086f4633 user: matt tags: v1.55 | |
| 21:30 | Fixed couple more bugs in jobgroups check-in: 8b39e9feb6 user: matt tags: v1.55 | |
Changes
Modified runs.scm from [b253b6906f] to [6735d5d96c].
| ︙ | ︙ | |||
1460 1461 1462 1463 1464 1465 1466 |
;;======================================================================
;; Update the test_meta table for this test
(define (runs:update-test_meta test-name test-conf)
(let ((currrecord (cdb:remote-run db:testmeta-get-record #f test-name)))
(if (not currrecord)
(begin
| | | 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 |
;;======================================================================
;; Update the test_meta table for this test
(define (runs:update-test_meta test-name test-conf)
(let ((currrecord (cdb:remote-run db:testmeta-get-record #f test-name)))
(if (not currrecord)
(begin
(set! currrecord (make-vector 11 #f))
(cdb:remote-run db:testmeta-add-record #f test-name)))
(for-each
(lambda (key)
(let* ((idx (cadr key))
(fld (car key))
(val (config-lookup test-conf "test_meta" fld)))
;; (debug:print 5 "idx: " idx " fld: " fld " val: " val)
|
| ︙ | ︙ |