1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
|
(apply sqlite3:execute state-status-stmt params))
((state-status-msg)
(apply sqlite3:execute state-status-msg-stmt params))
((test_data-pf-rollup)
;; (hash-table-set! rollups (car params) params))
(apply sqlite3:execute test_data-rollup-stmt params))
((pass-fail-counts)
(debug:print 0 "INFO: pass fail count params are " params)
(apply sqlite3:execute pass-fail-counts-stmt params))
((register-test)
(apply sqlite3:execute register-test-stmt params))
(else
(debug:print 0 "ERROR: Queued entry not recognised " entry)))))
data)))
;; now do any rollups
|
<
|
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
|
(apply sqlite3:execute state-status-stmt params))
((state-status-msg)
(apply sqlite3:execute state-status-msg-stmt params))
((test_data-pf-rollup)
;; (hash-table-set! rollups (car params) params))
(apply sqlite3:execute test_data-rollup-stmt params))
((pass-fail-counts)
(apply sqlite3:execute pass-fail-counts-stmt params))
((register-test)
(apply sqlite3:execute register-test-stmt params))
(else
(debug:print 0 "ERROR: Queued entry not recognised " entry)))))
data)))
;; now do any rollups
|