Overview
Comment: | Fixed update pass-fail counts, added more tests |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.60 |
Files: | files | file ages | folders |
SHA1: |
a458af98bba72f87865c616164feb699 |
User & Date: | matt on 2015-09-01 00:53:27 |
Other Links: | branch diff | manifest | tags |
Context
2015-09-01
| ||
21:44 | Added all rmt calls of interest to basic invocations under test check-in: 54e87a5f54 user: matt tags: v1.60 | |
00:53 | Fixed update pass-fail counts, added more tests check-in: a458af98bb user: matt tags: v1.60 | |
00:35 | Added number of unit tests for rmt calls. Fixed couple bugs found in db calls check-in: f84f53eaf5 user: matt tags: v1.60 | |
Changes
Modified rmt.scm from [6f9d5da858] to [2a4800a8d6].
︙ | ︙ | |||
525 526 527 528 529 530 531 | ;; state and status are extra hints not usually used in the calculation ;; (define (rmt:roll-up-pass-fail-counts run-id test-name item-path state status) (rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status))) (define (rmt:update-pass-fail-counts run-id test-name) | | | 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 | ;; state and status are extra hints not usually used in the calculation ;; (define (rmt:roll-up-pass-fail-counts run-id test-name item-path state status) (rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status))) (define (rmt:update-pass-fail-counts run-id test-name) (rmt:general-call 'update-pass-fail-counts run-id test-name test-name test-name)) (define (rmt:top-test-set-per-pf-counts run-id test-name) (rmt:send-receive 'top-test-set-per-pf-counts run-id (list run-id test-name))) ;;====================================================================== ;; R U N S ;;====================================================================== |
︙ | ︙ |
Modified tests/unittests/misc.scm from [ee63f04fc2] to [f0990d6344].
︙ | ︙ | |||
87 88 89 90 91 92 93 | (statepatt "CO%") (statuspatt "PA%") (keynames '("SYSTEM" "RELEASE")) ;; "sysname" "fsname" "datapath")) (waitons '("a" "b" "c")) (ref-item-path "/d/e/f") (jobgroup "anl") (runpatt "run%") | | | | 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | (statepatt "CO%") (statuspatt "PA%") (keynames '("SYSTEM" "RELEASE")) ;; "sysname" "fsname" "datapath")) (waitons '("a" "b" "c")) (ref-item-path "/d/e/f") (jobgroup "anl") (runpatt "run%") (keyvals '(("SYSTEM" "a")("RELEASE" "b"))) (user "freddy") (count 100) (keypatts '(("SYSTEM" "%a")("RELEASE" "%b"))) (lock #f) (unlock #t) (run-status "n/a") (runnamepatt "b%") (targpatt "%a/%b/c%") (fields "id,runname") (ovr-deadtime 100) |
︙ | ︙ | |||
124 125 126 127 128 129 130 | (bdisk-name "what") (bdisk-path "tmp") (df 1000000) (archive-block-id 1) (stmtname 'blah)) (test #f #f (rmt:write-frequency-over-limit? cmd run-id)) (test #f #f (rmt:get-connection-info run-id)) | | | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | (bdisk-name "what") (bdisk-path "tmp") (df 1000000) (archive-block-id 1) (stmtname 'blah)) (test #f #f (rmt:write-frequency-over-limit? cmd run-id)) (test #f #f (rmt:get-connection-info run-id)) (test #f #t (rmt:update-db-stats run-id rawcmd params duration)) (test #f #t (begin (rmt:print-db-stats) #t)) (test #f '(none . 0) (rmt:get-max-query-average run-id)) (test #f #f (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)) (test #f "\"abc\"" (rmt:dat->json-str dat)) (test #f "def" (rmt:json-str->dat json-str)) (test #f #f (rmt:kill-server run-id)) (test #f #t (begin (rmt:start-server run-id) #t)) |
︙ | ︙ | |||
164 165 166 167 168 169 170 | (test #f '() (rmt:get-run-ids-matching-target keynames target res runname testpatt statepatt statuspatt)) (test #f '() (rmt:test-get-paths-matching-keynames-target-new keynames target res testpatt statepatt statuspatt runname)) (test #f '("c" "b" "a") (rmt:get-prereqs-not-met run-id waitons ref-item-path)) ;; #!key (mode '(normal))(itemmap #f))) (test #f 0 (rmt:get-count-tests-running-for-run-id run-id)) (test #f 0 (rmt:get-count-tests-running run-id)) (test #f 0 (rmt:get-count-tests-running-for-testname run-id testname)) (test #f 0 (rmt:get-count-tests-running-in-jobgroup run-id jobgroup)) | | | | | | | | | | | | | | 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 | (test #f '() (rmt:get-run-ids-matching-target keynames target res runname testpatt statepatt statuspatt)) (test #f '() (rmt:test-get-paths-matching-keynames-target-new keynames target res testpatt statepatt statuspatt runname)) (test #f '("c" "b" "a") (rmt:get-prereqs-not-met run-id waitons ref-item-path)) ;; #!key (mode '(normal))(itemmap #f))) (test #f 0 (rmt:get-count-tests-running-for-run-id run-id)) (test #f 0 (rmt:get-count-tests-running run-id)) (test #f 0 (rmt:get-count-tests-running-for-testname run-id testname)) (test #f 0 (rmt:get-count-tests-running-in-jobgroup run-id jobgroup)) (test #f #t (rmt:roll-up-pass-fail-counts run-id test-name item-path state status)) (test #f #t (rmt:update-pass-fail-counts run-id test-name)) (test #f #t (rmt:top-test-set-per-pf-counts run-id test-name)) (test #f #t (vector? (rmt:get-run-info run-id))) (test #f 0 (rmt:get-num-runs runpatt)) (test #f 1 (rmt:register-run keyvals runname state status user)) (test #f "myfirstrun" (rmt:get-run-name-from-id run-id)) (test #f #t (begin (rmt:delete-run run-id) #t)) (test #f #t (begin (rmt:delete-old-deleted-test-records) #t)) (test #f #t (vector? (rmt:get-runs runpatt count offset keypatts))) (test #f '() (rmt:get-all-run-ids)) (test #f '() (rmt:get-prev-run-ids run-id)) ;; (test #f #f (rmt:lock/unlock-run run-id lock unlock user)) ;; (test #f #f (rmt:get-run-status run-id)) ;; (test #f #f (rmt:set-run-status run-id run-status msg: msg)) ;; (test #f #f (rmt:update-run-event_time run-id)) ;; (test #f #f (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit fields)) ;; fields of #f uses default) ;; (test #f #f (rmt:find-and-mark-incomplete run-id ovr-deadtime)) ;; (test #f #f (rmt:find-and-mark-incomplete-all-runs ovr-deadtime: ovr-deadtime)) |
︙ | ︙ |