Overview
| Comment: | fixed basicserver unit test to test for defstruct-hood of db:test returning proc rather than vec-ness |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | refactor-dbr:dbstruct |
| Files: | files | file ages | folders |
| SHA1: |
76b08501ceb38f80ade8cfa6fa4014d2 |
| User & Date: | bjbarcla on 2016-01-26 18:38:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-01-26
| ||
| 18:39 | fixed db.scm to properly pass symbols (not strings) for keys of alist so alist->db:test calls work check-in: 90bb91e3b2 user: bjbarcla tags: refactor-dbr:dbstruct | |
| 18:38 | fixed basicserver unit test to test for defstruct-hood of db:test returning proc rather than vec-ness check-in: 76b08501ce user: bjbarcla tags: refactor-dbr:dbstruct | |
|
2016-01-25
| ||
| 18:50 | first pass converting db:test from vec to defstruct check-in: 76a0be2c09 user: bjbarcla tags: refactor-dbr:dbstruct | |
Changes
Modified tests/unittests/basicserver.scm from [f2f7d0aa9d] to [a0dc70e19c].
| ︙ | ︙ | |||
96 97 98 99 100 101 102 | (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) | | < | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
(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)
(db:test-testname test-rec)))
;; With data in db
;;
(print "Using runame=" runname)
(test #f '(1) (rmt:get-all-run-ids))
(test #f runname (rmt:get-run-name-from-id run-id))
(test #f
runname
|
| ︙ | ︙ |