Megatest

Check-in [a458af98bb]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: a458af98bba72f87865c616164feb6990ba024df
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified rmt.scm from [6f9d5da858] to [2a4800a8d6].

︙
525
526
527
528
529
530
531
532

533
534
535
536
537
538
539

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 (list run-id test-name run-id test-name 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
94

95
96
97

98
99
100
101
102
103
104

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          '("a" "b" "c"))
      (keyvals          '(("SYSTEM" "a")("RELEASE" "b")))
      (user             "freddy")
      (count            100)
      (keypatts         '("%a" "%b" "%c"))
      (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
131

132
133
134
135
136
137
138

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 #f (rmt:update-db-stats run-id rawcmd params duration))
  (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
171
172
173
174
175
176
177
178
179
180
181
182












183
184
185
186
187
188
189

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 #f (rmt:roll-up-pass-fail-counts run-id test-name item-path state status))
  (test #f #f (rmt:update-pass-fail-counts run-id test-name))
  (test #f #f (rmt:top-test-set-per-pf-counts run-id test-name))
  (test #f #f (rmt:get-run-info run-id))
  (test #f #f (rmt:get-num-runs runpatt))
  (test #f #f (rmt:register-run keyvals runname state status user))
  (test #f #f (rmt:get-run-name-from-id run-id))
  (test #f #f (rmt:delete-run run-id))
  (test #f #f (rmt:delete-old-deleted-test-records))
  (test #f #f (rmt:get-runs runpatt count offset keypatts))
  (test #f #f (rmt:get-all-run-ids))
  (test #f #f (rmt:get-prev-run-ids run-id))
  (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))
︙

This page was generated in about 0.078s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00