Overview
| Comment: | Fixed bad call to tests:get-testconfig |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
f0e28a591639def2f08c3c86be8a4d78 |
| User & Date: | mrwellan on 2013-07-30 00:10:47 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-30
| ||
| 09:26 | Merging itemwait fix to v1.55 and added some wait time and a different message when blocked by itemwait check-in: 472c66dbad user: mrwellan tags: v1.55 | |
| 09:21 | Fix for itemwait Closed-Leaf check-in: 0a5795ad96 user: mrwellan tags: itemwait-fix | |
| 00:10 | Fixed bad call to tests:get-testconfig check-in: f0e28a5916 user: mrwellan tags: v1.55 | |
|
2013-07-29
| ||
| 21:49 | Removed some instrumentation prints check-in: a82cbcca56 user: matt tags: v1.55 | |
Changes
Modified tests.scm from [ade03104a8] to [def3cc0191].
| ︙ | ︙ | |||
216 217 218 219 220 221 222 | (if (null? tal) (map cdr (hash-table->alist tests-hash)) ;; return a list of the most recent tests (loop (car tal)(cdr tal)))))))))) ;; Check for waiver eligibility ;; (define (tests:check-waiver-eligibility testdat prev-testdat) | > | | 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 |
(if (null? tal)
(map cdr (hash-table->alist tests-hash)) ;; return a list of the most recent tests
(loop (car tal)(cdr tal))))))))))
;; Check for waiver eligibility
;;
(define (tests:check-waiver-eligibility testdat prev-testdat)
(let* ((test-registry (make-hash-table))
(testconfig (tests:get-testconfig (db:test-get-testname testdat) test-registry #f))
(test-rundir (db:test-get-rundir testdat))
(prev-rundir (db:test-get-rundir prev-testdat))
(waivers (configf:section-vars testconfig "waivers"))
(waiver-rx (regexp "^(\\S+)\\s+(.*)$"))
(diff-rule "diff %file1% %file2%")
(logpro-rule "diff %file1% %file2% | logpro %waivername%.logpro %waivername%.html"))
(push-directory test-rundir)
|
| ︙ | ︙ |