Overview
| Comment: | fixed call to get-keys |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
f7a525de6480f6aa928eb50835f54fe1 |
| User & Date: | mrwellan on 2013-06-24 09:18:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-06-26
| ||
| 13:57 | Merged development into v1.55 in prep for an interim release check-in: 4756799da4 user: mrwellan tags: v1.55, v1.5505 | |
|
2013-06-24
| ||
| 09:18 | fixed call to get-keys check-in: f7a525de64 user: mrwellan tags: v1.55 | |
|
2013-06-18
| ||
| 15:43 | The big numbers of items run is working (and exposes a few bugs). Upped timeout so server stalls don't kill the test run check-in: ea8419fe80 user: mrwellan tags: v1.55 | |
Changes
Modified megatest.scm from [0890716f13] to [46665468a0].
| ︙ | ︙ | |||
406 407 408 409 410 411 412 |
(for-each (lambda (x)
;; (print "[" x "]"))
(print x))
targets)
(set! *didsomething* #t)))
(define (full-runconfigs-read)
| | | 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 |
(for-each (lambda (x)
;; (print "[" x "]"))
(print x))
targets)
(set! *didsomething* #t)))
(define (full-runconfigs-read)
(let* ((keys (cdb:remote-run db:get-keys #f))
(target (if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(args:get-arg "-target")
#f)))
(key-vals (if target (keys:target->keyval keys target) #f))
(sections (if target (list "default" target) #f))
|
| ︙ | ︙ |