Overview
Comment: | Fixed import-megatest.db bug |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.60 | v1.6006 |
Files: | files | file ages | folders |
SHA1: |
398c48390d27c5fe5a9c5840b8238089 |
User & Date: | mrwellan on 2014-11-24 12:45:28 |
Other Links: | branch diff | manifest | tags |
Context
2014-11-25
| ||
16:39 | Many tweaks to improve reliability under stress check-in: 0b6b35ab5b user: mrwellan tags: v1.60 | |
2014-11-24
| ||
12:45 | Fixed import-megatest.db bug check-in: 398c48390d user: mrwellan tags: v1.60, v1.6006 | |
2014-11-21
| ||
13:18 | Better err msg check-in: 738756b239 user: mrwellan tags: v1.60 | |
Changes
Modified db.scm from [d3e0e30a50] to [dec2e76730].
︙ | |||
649 650 651 652 653 654 655 | 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 677 | - + - + | (for-each (lambda (run-id) (db:delay-if-busy mtdb) (let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id)) (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: #t) #f))) (debug:print 0 "INFO: Propagating " (length testrecs) " records for run-id=" run-id " to run specific db") (db:replace-test-records dbstruct run-id testrecs) |
︙ | |||
1942 1943 1944 1945 1946 1947 1948 | 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 | + - - - + + + + | (define db:test-record-qry-selector (string-intersperse db:test-record-fields ",")) ;; NOTE: Use db:test-get* to access records ;; NOTE: This needs rundir decoding? Decide, decode here or where used? For the moment decode where used. (define (db:get-all-tests-info-by-run-id dbstruct run-id) (let* ((dbdat (if (vector? dbstruct) |
︙ |