Overview
| Comment: | Merged servermode to trunk |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0e271e38b4f0f6636042041d6c5d4cfc |
| User & Date: | matt on 2012-03-19 20:04:35 |
| Other Links: | manifest | tags |
Context
|
2012-03-20
| ||
| 18:24 | Added template for load based launcher check-in: 5b804d31a0 user: mrwellan tags: trunk | |
|
2012-03-19
| ||
| 20:04 | Merged servermode to trunk check-in: 0e271e38b4 user: matt tags: trunk | |
|
2012-03-13
| ||
| 20:13 | Added item_path to the tests_index check-in: 581d1148b4 user: mrwellan 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 | |
Changes
Modified db.scm from [84a9b41337] to [64f23143e9].
| ︙ | ︙ | |||
1312 1313 1314 1315 1316 1317 1318 |
(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)))
| > > > > > > > > > | 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 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 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)) (define megatest-version 1.39) |
Modified server.scm from [0c84f97116] to [8ec39ca96f].
| ︙ | ︙ | |||
241 242 243 244 245 246 247 248 249 250 251 252 253 254 |
(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)))
;;======================================================================
;; 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)
| > > > > > > | 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)
|
| ︙ | ︙ |