Overview
| Comment: | Fixed regression on exception handling code which caused crash in -list-runs % |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
5cdcc368f3a083fef48f23a88ea6440e |
| User & Date: | mrwellan on 2013-11-05 10:02:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-11-05
| ||
| 22:30 | Added full self-check to test4 check-in: d2bcf39689 user: matt tags: v1.55 | |
| 10:02 | Fixed regression on exception handling code which caused crash in -list-runs % check-in: 5cdcc368f3 user: mrwellan tags: v1.55 | |
|
2013-11-03
| ||
| 21:54 | Heuristic method added to end the run when there are waitons clogging up the queue check-in: 388090bb52 user: matt tags: v1.55 | |
Changes
Modified db.scm from [b34cccd126] to [77cc7e048e].
| ︙ | ︙ | |||
2164 2165 2166 2167 2168 2169 2170 |
;; db-get-test-steps-for-run
(define (db:get-steps-for-test db test-id #!key (work-area #f))
(let* ((tdb (db:open-test-db-by-test-id db test-id work-area: work-area))
(res '()))
(if (sqlite3:database? tdb)
(handle-exceptions
exn
| > | | | 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 |
;; db-get-test-steps-for-run
(define (db:get-steps-for-test db test-id #!key (work-area #f))
(let* ((tdb (db:open-test-db-by-test-id db test-id work-area: work-area))
(res '()))
(if (sqlite3:database? tdb)
(handle-exceptions
exn
(begin
(debug:print 0 "ERROR: error on access to testdat for test with id " test-id)
'())
(begin
(sqlite3:for-each-row
(lambda (id test-id stepname state status event-time logfile)
(set! res (cons (vector id test-id stepname state status event-time (if (string? logfile) logfile "")) res)))
tdb
"SELECT id,test_id,stepname,state,status,event_time,logfile FROM test_steps WHERE test_id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
test-id)
|
| ︙ | ︙ |
Modified utils/installall.sh from [067c450820] to [e3bee64528].
| ︙ | ︙ | |||
124 125 126 127 128 129 130 |
tar xfz sqlite-autoconf-$SQLITE3_VERSION.tar.gz
(cd sqlite-autoconf-$SQLITE3_VERSION;./configure --prefix=$PREFIX;make;make install)
# CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL -prefix $DEPLOYTARG -deploy $PROX sqlite3
CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL $PROX sqlite3
fi
fi
| < < | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
tar xfz sqlite-autoconf-$SQLITE3_VERSION.tar.gz
(cd sqlite-autoconf-$SQLITE3_VERSION;./configure --prefix=$PREFIX;make;make install)
# CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL -prefix $DEPLOYTARG -deploy $PROX sqlite3
CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $CHICKEN_INSTALL $PROX sqlite3
fi
fi
# $CHICKEN_INSTALL $PROX sqlite3
if [[ `uname -a | grep x86_64` == "" ]]; then
export ARCHSIZE=''
else
export ARCHSIZE=64_
fi
|
| ︙ | ︙ |