Overview
| Comment: | Fix id returned in test of tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | better-html-update-control |
| Files: | files | file ages | folders |
| SHA1: |
ef0bfe97bb4c3bc7c76697f3f58474d9 |
| User & Date: | matt on 2015-03-08 23:43:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-03-09
| ||
| 05:19 | Merging better-html-update-control to v1.60 check-in: bd663b5d13 user: matt tags: v1.60 | |
|
2015-03-08
| ||
| 23:43 | Fix id returned in test of tests Closed-Leaf check-in: ef0bfe97bb user: matt tags: better-html-update-control | |
| 23:19 | Bring back support for keeping test control panel around when the db is removed check-in: bee02f96c8 user: matt tags: better-html-update-control | |
Changes
Modified tests/unittests/basicserver.scm from [bbe04303a3] to [28418079ab].
| ︙ | ︙ | |||
90 91 92 93 94 95 96 | ;; Insert data into db ;; (test #f 1 (rmt:register-run keyvals runname "new" "n/a" user)) ;; (test #f #f (rmt:get-runs-by-patt keys runname)) (test #f #t (rmt:general-call 'register-test run-id run-id "test-one" "")) (define test-one-id #f) | | | 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | ;; Insert data into db ;; (test #f 1 (rmt:register-run keyvals runname "new" "n/a" user)) ;; (test #f #f (rmt:get-runs-by-patt keys runname)) (test #f #t (rmt:general-call 'register-test run-id run-id "test-one" "")) (define test-one-id #f) (test #f 30001 (let ((test-id (rmt:get-test-id run-id "test-one" ""))) (set! test-one-id test-id) test-id)) (define test-one-rec #f) (test #f "test-one" (let ((test-rec (rmt:get-test-info-by-id run-id test-one-id))) (set! test-one-rec test-rec) (vector-ref test-rec 2))) |
| ︙ | ︙ |