Megatest

Check-in [a5ea19cd4a]
Login
Overview
Comment:fixed call to tdb:test-data-rollup, removed db placeholder
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a5ea19cd4a5d770b9009745e24c32e70ef2bccc1
User & Date: matt on 2013-11-18 22:00:06
Other Links: manifest | tags
Context
2013-11-18
23:28
Partial transition to steps in main db check-in: e1eebd3848 user: matt tags: trunk
22:02
Merged sucessful inmemdb work to v1.60 check-in: 45af7ab710 user: matt tags: v1.60
22:00
fixed call to tdb:test-data-rollup, removed db placeholder check-in: a5ea19cd4a user: matt tags: trunk
20:39
Fixed handful of bugs due to inmemdb check-in: 540d5096fd user: matt tags: trunk
Changes

Modified tests.scm from [22a4da7218] to [988b292fea].

239
240
241
242
243
244
245
246

247
248
249
250
251
252
253
239
240
241
242
243
244
245

246
247
248
249
250
251
252
253







-
+







	(begin
	  (rmt:test-set-status-state test-id real-status state (if waived waived comment))
	  (mt:process-triggers test-id state real-status)))
    
    ;; if status is "AUTO" then call rollup (note, this one modifies data in test
    ;; run area, it does remote calls under the hood.
    (if (and test-id state status (equal? status "AUTO")) 
	(tdb:test-data-rollup #f test-id status work-area: work-area))
	(tdb:test-data-rollup test-id status work-area: work-area))

    ;; add metadata (need to do this way to avoid SQL injection issues)

    ;; :first_err
    ;; (let ((val (hash-table-ref/default otherdat ":first_err" #f)))
    ;;   (if val
    ;;       (sqlite3:execute db "UPDATE tests SET first_err=? WHERE run_id=? AND testname=? AND item_path=?;" val run-id test-name item-path)))