Overview
| Comment: | First milestone. list-runs fully functional |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0d1bbbe7071f94413f7876d890cf9855 |
| User & Date: | matt on 2013-11-11 23:29:54 |
| Other Links: | manifest | tags |
Context
|
2013-11-11
| ||
| 23:54 | tweaks check-in: 38b08475b3 user: matt tags: trunk | |
| 23:29 | First milestone. list-runs fully functional check-in: 0d1bbbe707 user: matt tags: trunk | |
| 22:54 | Massive refactor now about 50% done check-in: 62feb767c9 user: matt tags: trunk | |
Changes
Modified db.scm from [9c4acffaac] to [38f86aa7ed].
| ︙ | ︙ | |||
126 127 128 129 130 131 132 | (let ((curr-tmdat #f)) (sqlite3:for-each-row (lambda (a . b) (set! curr-tmdat (apply vector a b))) tmgetstmt testm-id) (if (not (equal? curr-tmdat tmdat)) ;; something changed (begin | | | | 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
(let ((curr-tmdat #f))
(sqlite3:for-each-row
(lambda (a . b)
(set! curr-tmdat (apply vector a b)))
tmgetstmt testm-id)
(if (not (equal? curr-tmdat tmdat)) ;; something changed
(begin
(debug:print 0 " test-id: " testm-id
"\ncurr-tdat: " curr-tmdat
"\n tdat: " tmdat)
(apply sqlite3:execute tmputstmt (vector->list tmdat))
(set! tmrecchgd (+ tmrecchgd 1)))))))))
tmdats)
(sqlite3:finalize! tmgetstmt)
(sqlite3:finalize! tmputstmt))
;; First sync tests data
(let ((run-ids (db:get-all-run-ids fromdb))
|
| ︙ | ︙ |
Modified megatest.scm from [5d6d3c32ca] to [85bb5af86b].
| ︙ | ︙ | |||
23 24 25 26 27 28 29 30 31 32 33 34 35 36 | (declare (uses launch)) (declare (uses server)) (declare (uses client)) (declare (uses tests)) (declare (uses genexample)) (declare (uses daemon)) (declare (uses db)) (declare (uses mt)) (declare (uses api)) (define *db* #f) ;; this is only for the repl, do not use in general!!!! (include "common_records.scm") (include "key_records.scm") | > | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | (declare (uses launch)) (declare (uses server)) (declare (uses client)) (declare (uses tests)) (declare (uses genexample)) (declare (uses daemon)) (declare (uses db)) (declare (uses tdb)) (declare (uses mt)) (declare (uses api)) (define *db* #f) ;; this is only for the repl, do not use in general!!!! (include "common_records.scm") (include "key_records.scm") |
| ︙ | ︙ | |||
629 630 631 632 633 634 635 | (print " cpuload: " (db:test-get-cpuload test) "\n diskfree: " (db:test-get-diskfree test) "\n uname: " (db:test-get-uname test) "\n rundir: " (db:test-get-rundir test) ) ;; Each test ;; DO NOT remote run | | | | | | | 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 | (print " cpuload: " (db:test-get-cpuload test) "\n diskfree: " (db:test-get-diskfree test) "\n uname: " (db:test-get-uname test) "\n rundir: " (db:test-get-rundir test) ) ;; Each test ;; DO NOT remote run (let ((steps (tdb:get-steps-for-test (db:test-get-id test)))) (for-each (lambda (step) (format #t " Step: ~20a State: ~10a Status: ~10a Time ~22a\n" (tdb:step-get-stepname step) (tdb:step-get-state step) (tdb:step-get-status step) (tdb:step-get-event_time step))) steps))))) tests))))) runs) (set! *didsomething* #t)))) ;;====================================================================== ;; full run |
| ︙ | ︙ |