Overview
| SHA1 Hash: | 8995de4ee199ac88a13673d2592f9bb10252b95c |
|---|---|
| Date: | 2012-04-23 15:19:37 |
| User: | mrwellan |
| Comment: | Added fname to calls for get test path |
| Timelines: | family | ancestors | descendants | both | trunk |
| Downloads: | Tarball | ZIP archive |
| Other Links: | files | file ages | manifest |
Tags And Properties
- branch=trunk inherited from [d673a9367e]
- sym-trunk inherited from [d673a9367e]
Changes
Modified db.scm from [92d14b406bf60a5d] to [685f5a2010c794b4].
1382 (define (rdb:test-data-rollup db test-id status) 1382 (define (rdb:test-data-rollup db test-id status) 1383 (if *runremote* 1383 (if *runremote* 1384 (let ((host (vector-ref *runremote* 0)) 1384 (let ((host (vector-ref *runremote* 0)) 1385 (port (vector-ref *runremote* 1))) 1385 (port (vector-ref *runremote* 1))) 1386 ((rpc:procedure 'rdb:test-data-rollup host port) test-id status)) 1386 ((rpc:procedure 'rdb:test-data-rollup host port) test-id status)) 1387 (db:test-data-rollup db test-id status))) 1387 (db:test-data-rollup db test-id status))) 1388 1388 1389 (define (rdb:test-get-paths-matching db keynames target) | 1389 (define (rdb:test-get-paths-matching db keynames target fname) 1390 (if *runremote* 1390 (if *runremote* 1391 (let ((host (vector-ref *runremote* 0)) 1391 (let ((host (vector-ref *runremote* 0)) 1392 (port (vector-ref *runremote* 1))) 1392 (port (vector-ref *runremote* 1))) 1393 ((rpc:procedure 'rdb:test-get-paths-matching host port) keynames target | 1393 ((rpc:procedure 'rdb:test-get-paths-matching host port) keynames target 1394 (db:test-get-paths-matching db keynames target))) | 1394 (db:test-get-paths-matching db keynames target fname))) 1395 1395 1396 1396
Modified megatest.scm from [4e1718db7636140d] to [232eaca49e281e8d].
479 (exit 1))) 479 (exit 1))) 480 (set! db (open-db)) 480 (set! db (open-db)) 481 (if (not (args:get-arg "-server")) 481 (if (not (args:get-arg "-server")) 482 (server:client-setup db)) 482 (server:client-setup db)) 483 (let* ((itempatt (args:get-arg "-itempatt")) 483 (let* ((itempatt (args:get-arg "-itempatt")) 484 (keys (rdb:get-keys db)) 484 (keys (rdb:get-keys db)) 485 (keynames (map key:get-fieldname keys)) 485 (keynames (map key:get-fieldname keys)) 486 (paths (rdb:test-get-paths-matching db keynames target))) | 486 (paths (rdb:test-get-paths-matching db keynames target (args 487 (set! *didsomething* #t) 487 (set! *didsomething* #t) 488 (for-each (lambda (path) 488 (for-each (lambda (path) 489 (print path)) 489 (print path)) 490 paths))) 490 paths))) 491 ;; else do a general-run-call 491 ;; else do a general-run-call 492 (general-run-call 492 (general-run-call 493 "-test-path" 493 "-test-path" 494 "Get paths to test" 494 "Get paths to test" 495 (lambda (db target runname keys keynames keyvallst) 495 (lambda (db target runname keys keynames keyvallst) 496 (let* ((itempatt (args:get-arg "-itempatt")) 496 (let* ((itempatt (args:get-arg "-itempatt")) 497 (paths (rdb:test-get-paths-matching db keynames target))) | 497 (paths (rdb:test-get-paths-matching db keynames target (arg 498 (for-each (lambda (path) 498 (for-each (lambda (path) 499 (print path)) 499 (print path)) 500 paths)))))) 500 paths)))))) 501 501 502 ;;====================================================================== 502 ;;====================================================================== 503 ;; Archive tests 503 ;; Archive tests 504 ;;====================================================================== 504 ;;======================================================================