Check-in [7502542dd9]
Not logged in
Overview
SHA1 Hash:7502542dd961ec3e6d964f3171469391be65d660
Date: 2012-02-24 14:58:59
User: mrwellan
Edited Comment:Accidental check in of rpc related junk
Original Comment:Added chmod's to create and import so fossils are group read/write
Timelines: family | ancestors | archiving
Diffs: root of this branch
Downloads: Tarball | ZIP archive
Other Links: files | file ages | manifest
Tags And Properties
Changes

Modified dashboard-tests.scm from [8aad97ccf0c03880] to [78cff21742a0f9ca].

245 btns)))))) 245 btns)))))) 246 246 247 247 248 ;;====================================================================== 248 ;;====================================================================== 249 ;; 249 ;; 250 ;;====================================================================== 250 ;;====================================================================== 251 (define (examine-test db test-id) ;; run-id run-key origtest) 251 (define (examine-test db test-id) ;; run-id run-key origtest) 252 (let* ((testdat (db:get-test-data-by-id db test-id)) | 252 (let* ((testdat (rdb:get-test-data-by-id db test-id)) 253 (run-id (if testdat (db:test-get-run_id testdat) #f)) 253 (run-id (if testdat (db:test-get-run_id testdat) #f)) 254 (keydat (if testdat (keys:get-key-val-pairs db run-id) #f)) 254 (keydat (if testdat (keys:get-key-val-pairs db run-id) #f)) 255 (rundat (if testdat (db:get-run-info db run-id) #f)) 255 (rundat (if testdat (db:get-run-info db run-id) #f)) 256 (runname (if testdat (db:get-value-by-header (db:get-row rundat) 256 (runname (if testdat (db:get-value-by-header (db:get-row rundat) 257 (db:get-header runda 257 (db:get-header runda 258 "runname") #f)) 258 "runname") #f)) 259 ;(teststeps (if testdat (db:get-steps-for-test db test-id) #f)) 259 ;(teststeps (if testdat (db:get-steps-for-test db test-id) #f))

Modified db.scm from [ea2d2124424f7b1d] to [70be0df9a16d1b3a].

1115 (define (rdb:test-set-log! db run-id test-name item-path logf) 1115 (define (rdb:test-set-log! db run-id test-name item-path logf) 1116 (if *runremote* 1116 (if *runremote* 1117 (let ((host (vector-ref *runremote* 0)) 1117 (let ((host (vector-ref *runremote* 0)) 1118 (port (vector-ref *runremote* 1))) 1118 (port (vector-ref *runremote* 1))) 1119 ((rpc:procedure 'rpc:test-set-log! host port) 1119 ((rpc:procedure 'rpc:test-set-log! host port) 1120 run-id test-name item-path logf)) 1120 run-id test-name item-path logf)) 1121 (db:test-set-log! db run-id test-name item-path logf))) 1121 (db:test-set-log! db run-id test-name item-path logf))) > 1122 > 1123 (define (rdb:get-test-data-by-id db test-id) > 1124 (if *runremote* > 1125 (let ((host (vector-ref *runremote* 0)) > 1126 (port (vector-ref *runremote* 1))) > 1127 ((rpc:procedure 'rpc:get-test-data-by-id host port) > 1128 test-id)) > 1129 (db:get-test-data-by-id db test-id)))

Modified runs.scm from [8d5b51c35f7388dd] to [4aa9d958a3c84d2b].

409 ;; (lambda (itemdat) ;;; ((ripeness "overripe") (temperature "cool") (season 409 ;; (lambda (itemdat) ;;; ((ripeness "overripe") (temperature "cool") (season 410 (let* ((new-test-path (string-intersperse (cons test-path (map cadr itemdat) 410 (let* ((new-test-path (string-intersperse (cons test-path (map cadr itemdat) 411 (new-test-name (if (equal? item-path "") test-name (conc test-name "/ 411 (new-test-name (if (equal? item-path "") test-name (conc test-name "/ 412 (testdat (db:get-test-info db run-id test-name item-path))) 412 (testdat (db:get-test-info db run-id test-name item-path))) 413 (if (not testdat) 413 (if (not testdat) 414 (begin 414 (begin 415 ;; ensure that the path exists before registering the test 415 ;; ensure that the path exists before registering the test > 416 ;; NOPE: Cannot! Don't know yet which disk area will be assigned.... 416 (system (conc "mkdir -p " new-test-path)) | 417 ;; (system (conc "mkdir -p " new-test-path)) 417 (register-test db run-id test-name item-path) 418 (register-test db run-id test-name item-path) 418 (set! testdat (db:get-test-info db run-id test-name item-path)))) 419 (set! testdat (db:get-test-info db run-id test-name item-path)))) 419 (change-directory test-path) 420 (change-directory test-path) 420 (case (if force ;; (args:get-arg "-force") 421 (case (if force ;; (args:get-arg "-force") 421 'NOT_STARTED 422 'NOT_STARTED 422 (if testdat 423 (if testdat 423 (string->symbol (test:get-state testdat)) 424 (string->symbol (test:get-state testdat))

Modified server.scm from [ed22148f791920de] to [decc46d32583aab2].

7 ;; This program is distributed WITHOUT ANY WARRANTY; without even the 7 ;; This program is distributed WITHOUT ANY WARRANTY; without even the 8 ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 8 ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 9 ;; PURPOSE. 9 ;; PURPOSE. 10 10 11 (require-extension (srfi 18) extras tcp rpc) 11 (require-extension (srfi 18) extras tcp rpc) 12 (import (prefix rpc rpc:)) 12 (import (prefix rpc rpc:)) 13 13 14 (use sqlite3 srfi-1 posix regex regex-case srfi-69 hostinfo) | 14 (use sqlite3 srfi-1 posix regex regex-case srfi-69) > 15 ;; (use hostinfo) 15 (import (prefix sqlite3 sqlite3:)) 16 (import (prefix sqlite3 sqlite3:)) 16 17 17 (declare (unit server)) 18 (declare (unit server)) 18 19 19 (declare (uses common)) 20 (declare (uses common)) 20 (declare (uses db)) 21 (declare (uses db)) 21 22 ................................................................................................................................................................................ 92 (db:test-set-comment db run-id test-name item-path comment))) 93 (db:test-set-comment db run-id test-name item-path comment))) 93 94 94 (rpc:publish-procedure! 95 (rpc:publish-procedure! 95 'rpc:test-set-log! 96 'rpc:test-set-log! 96 (lambda (run-id test-name item-path logf) 97 (lambda (run-id test-name item-path logf) 97 (db:test-set-log! db run-id test-name item-path logf))) 98 (db:test-set-log! db run-id test-name item-path logf))) 98 99 > 100 (rpc:publish-procedure! > 101 'rpc:get-test-data-by-id > 102 (lambda (test-id) > 103 (db:get-test-data-by-id db test-id))) > 104 99 (set! *rpc:listener* rpc:listener) 105 (set! *rpc:listener* rpc:listener) 100 (on-exit (lambda () 106 (on-exit (lambda () 101 (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and v 107 (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and v 102 (sqlite3:finalize! db))) 108 (sqlite3:finalize! db))) 103 (thread-start! th1) 109 (thread-start! th1) 104 (thread-join! th1))) ;; rpc:server))) 110 (thread-join! th1))) ;; rpc:server))) 105 111

Modified tests/Makefile from [9004c03430aade84] to [bd8f147ab2b1a1a8].

2 2 3 BINPATH=$(shell realpath ../bin) 3 BINPATH=$(shell realpath ../bin) 4 MEGATEST=$(BINPATH)/megatest 4 MEGATEST=$(BINPATH)/megatest 5 PATH := $(BINPATH):$(PATH) 5 PATH := $(BINPATH):$(PATH) 6 6 7 runall : 7 runall : 8 cd ../;make install 8 cd ../;make install > 9 mkdir -p /tmp/mt_runs /tmp/mt_links 9 $(BINPATH)/dboard -rows 15 & 10 $(BINPATH)/dboard -rows 15 & 10 $(MEGATEST) -keepgoing -runall -target ubuntu/nfs/none :runname `date +w | 11 $(MEGATEST) -runall -target ubuntu/nfs/none :runname `date +w%V.%u.%H` - 11 12 12 test : 13 test : 13 csi -b -I .. ../megatest.scm -- -runall -target ubuntu/afs/tmp :runname 14 csi -b -I .. ../megatest.scm -- -runall -target ubuntu/afs/tmp :runname 14 cd ../;make test 15 cd ../;make test 15 make runall 16 make runall 16 17 17 dashboard : 18 dashboard :

Modified tests/megatest.config from [15ea3d69a8a62c57] to [ca2c047d9afbf34d].

2 sysname TEXT 2 sysname TEXT 3 fsname TEXT 3 fsname TEXT 4 datapath TEXT 4 datapath TEXT 5 5 6 [setup] 6 [setup] 7 # exectutable /path/to/megatest 7 # exectutable /path/to/megatest 8 max_concurrent_jobs 50 8 max_concurrent_jobs 50 9 linktree /tmp/runs | 9 linktree /tmp/mt_links 10 10 11 [jobtools] 11 [jobtools] 12 # useshell yes 12 # useshell yes 13 # ## launcher launches jobs, the job is managed on the target host 13 # ## launcher launches jobs, the job is managed on the target host 14 ## by megatest, comment out launcher to run local 14 ## by megatest, comment out launcher to run local 15 # workhosts localhost hermes 15 # workhosts localhost hermes 16 launcher nbfake 16 launcher nbfake ................................................................................................................................................................................ 37 # RUNDEAD [system exit 56] 37 # RUNDEAD [system exit 56] 38 38 39 ## disks are: 39 ## disks are: 40 ## name host:/path/to/area 40 ## name host:/path/to/area 41 ## -or- 41 ## -or- 42 ## name /path/to/area 42 ## name /path/to/area 43 [disks] 43 [disks] 44 1 /tmp | 44 1 /tmp/mt_runs