Overview
Comment: | Added MT_RUNNAME back in |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
38766f7852a0cfa06befdbf9e71376f6 |
User & Date: | mrwellan on 2011-12-05 10:13:15 |
Other Links: | manifest | tags |
Context
2011-12-05
| ||
12:34 | Fixed bug with continuing to launch tests for a run after first pass though the list check-in: 428bbd9b36 user: mrwellan tags: trunk | |
10:13 | Added MT_RUNNAME back in check-in: 38766f7852 user: mrwellan tags: trunk | |
2011-12-04
| ||
23:25 | Merged back in changes for test_data type handling check-in: c48bc5a711 user: matt tags: trunk | |
Changes
Modified runs.scm from [ec19d61978] to [12b249e892].
︙ | ︙ | |||
80 81 82 83 84 85 86 | (sqlite3:for-each-row (lambda (val) (debug:print 2 "setenv " (key:get-fieldname key) " " val) (setenv (key:get-fieldname key) val)) db (conc "SELECT " (key:get-fieldname key) " FROM runs WHERE id=?;") run-id)) | | > > > > > > > > | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | (sqlite3:for-each-row (lambda (val) (debug:print 2 "setenv " (key:get-fieldname key) " " val) (setenv (key:get-fieldname key) val)) db (conc "SELECT " (key:get-fieldname key) " FROM runs WHERE id=?;") run-id)) keys) ;; Lets use this as an opportunity to put MT_RUNNAME in the environment (sqlite3:for-each-row (lambda (runname) (setenv "MT_RUNNAME" runname)) db "SELECT runname FROM runs WHERE id=?;" run-id) )) (define (set-item-env-vars itemdat) (for-each (lambda (item) (debug:print 2 "setenv " (car item) " " (cadr item)) (setenv (car item) (cadr item))) itemdat)) |
︙ | ︙ |