Overview
| Comment: | Added unit test to exercise server cycle |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
004afb09165d58d716fcc665d5cad068 |
| User & Date: | matt on 2014-12-14 21:47:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-15
| ||
| 00:16 | Fixed db running bug check-in: 6eef552c2e user: matt tags: v1.60 | |
|
2014-12-14
| ||
| 21:47 | Added unit test to exercise server cycle check-in: 004afb0916 user: matt tags: v1.60 | |
| 21:29 | Added unit test to exercise server cycle check-in: 4efa55d2d5 user: matt tags: v1.60 | |
Changes
Modified tests/unittests/server.scm from [9dc881f037] to [c4b3b05ca3].
| ︙ | ︙ | |||
28 29 30 31 32 33 34 35 36 37 38 39 40 41 | (test #f 1 (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))) ;; Tests to assess reading/writing while servers are starting/stopping (define start-time (current-seconds)) (let loop ((test-state 'start)) (let* ((server-dats (tasks:get-server-records (db:delay-if-busy (tasks:open-db)) run-id)) (first-dat (if (not (null? server-dats)) (car server-dats) | > > > > > > > | 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | (test #f 1 (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))) (use trace) (import trace) (trace rmt:send-receive rmt:open-qry-close-locally ) ;; Tests to assess reading/writing while servers are starting/stopping (define start-time (current-seconds)) (let loop ((test-state 'start)) (let* ((server-dats (tasks:get-server-records (db:delay-if-busy (tasks:open-db)) run-id)) (first-dat (if (not (null? server-dats)) (car server-dats) |
| ︙ | ︙ |