Overview
| Comment: | sorted-tests tests for db:test-rec instead of vector |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | defstruct-srehman |
| Files: | files | file ages | folders |
| SHA1: |
e0b23f144acac9934889f63db5107d2a |
| User & Date: | srehman on 2016-09-23 12:28:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-23
| ||
| 14:39 | replaced vector return to db:test-rec return in two function calls check-in: e5509ad8b9 user: srehman tags: defstruct-srehman | |
| 12:28 | sorted-tests tests for db:test-rec instead of vector check-in: e0b23f144a user: srehman tags: defstruct-srehman | |
| 12:26 | added more uniform naming scheme to db:test-rec defstruct check-in: 6ce8a4c44e user: srehman tags: defstruct-srehman | |
Changes
Modified runs.scm from [de4f2b1394] to [ac6ff009be].
| ︙ | ︙ | |||
1698 1699 1700 1701 1702 1703 1704 | (thread-start! worker-thread)) (else (debug:print-info 0 *default-log-port* "action not recognised " action))) ;; actions that operate on one test at a time can be handled below ;; (let ((sorted-tests (filter | | | 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 | (thread-start! worker-thread)) (else (debug:print-info 0 *default-log-port* "action not recognised " action))) ;; actions that operate on one test at a time can be handled below ;; (let ((sorted-tests (filter db:test-rec? (sort tests (lambda (a b)(let ((dira ;; (rmt:sdb-qry 'getstr (db:test-get-rundir a)) ;; ) ;; (filedb:get-path *fdb* (db:test-get-rundir a))) (dirb ;; (rmt:sdb-qry 'getstr (db:test-get-rundir b))) ;; ) ;; ((filedb:get-path *fdb* (db:test-get-rundir b)))) (if (and (string? dira)(string? dirb)) (> (string-length dira)(string-length dirb)) #f)))))) |
| ︙ | ︙ |