Overview
| Comment: | Bumping version and added missing definition for rdb:test-get-path |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | servermode |
| Files: | files | file ages | folders |
| SHA1: |
7da47085ea507a92054a674e2b96ad8e |
| User & Date: | mrwellan on 2012-03-12 15:29:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-03-19
| ||
| 20:04 | Merged servermode to trunk check-in: 0e271e38b4 user: matt tags: trunk | |
|
2012-03-12
| ||
| 15:29 | Bumping version and added missing definition for rdb:test-get-path Closed-Leaf check-in: 7da47085ea user: mrwellan tags: servermode | |
| 09:01 | rpc stuff all working now check-in: 6bee52c53c user: matt tags: servermode | |
Changes
Modified db.scm from [48ed807e56] to [0258f37a96].
| ︙ | |||
1312 1313 1314 1315 1316 1317 1318 | 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 | + + + + + + + + + |
(define (rdb:test-data-rollup db test-id status)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rdb:test-data-rollup host port) test-id status))
(db:test-data-rollup db test-id status)))
(define (rdb:test-get-paths-matching db keynames target)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rdb:test-get-paths-matching host port) keynames target))
(db:test-get-paths-matching db keynames target)))
|
Modified megatest-version.scm from [9485393f9c] to [7e3ec1b570].
1 2 3 4 5 | 1 2 3 4 5 6 7 | - + | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) |
Modified server.scm from [0c84f97116] to [8ec39ca96f].
| ︙ | |||
241 242 243 244 245 246 247 248 249 250 251 252 253 254 | 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 | + + + + + + |
(rpc:publish-procedure!
'rtests:test-set-toplog!
(lambda (run-id test-name logf)
(set! *last-db-access* (current-seconds))
(test-set-toplog! db run-id test-name logf)))
(rpc:publish-procedure!
'db:test-get-paths-matching
(lambda (keynames target)
(set! *last-db-access* (current-seconds))
(db:test-get-paths-matching db keynames target)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
(sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
|
| ︙ |