Overview
| Comment: | Tweak to v1.25, some spreadsheet columns misaligned with the data. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
233acb17b28c0553d284e837b5dcb7f0 |
| User & Date: | mrwellan on 2011-09-13 11:39:51 |
| Other Links: | manifest | tags |
Context
|
2011-09-13
| ||
| 14:09 | Fixed handling of test data rollup when status is a null or n/a string check-in: c22c4fd813 user: mrwellan tags: trunk, v1.25 | |
| 11:39 | Tweak to v1.25, some spreadsheet columns misaligned with the data. check-in: 233acb17b2 user: mrwellan tags: trunk | |
| 09:57 | Tweak to v1.25, added table qualifiers to select, old db's had conflicting columns. check-in: 1234f4303b user: mrwellan tags: trunk | |
Changes
Modified db.scm from [23a8f08942] to [3a72bf4fd5].
| ︙ | ︙ | |||
740 741 742 743 744 745 746 |
;; runspatt is a comma delimited list of run patterns
;; keypatt-alist must contain *all* keys with an associated pattern: '( ("KEY1" "%") .. )
(define (db:extract-ods-file db outputfile keypatt-alist runspatt)
(let* ((keysstr (string-intersperse (map car keypatt-alist) ","))
(keyqry (string-intersperse (map (lambda (p)(conc (car p) " like ? ")) keypatt-alist) " AND "))
(test-ids '())
(tempdir (conc "/tmp/" (current-user-name) "/" runspatt "_" (random 10000) "_" (current-process-id)))
| | < | < > < < < | > > | | | | | | | 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 |
;; runspatt is a comma delimited list of run patterns
;; keypatt-alist must contain *all* keys with an associated pattern: '( ("KEY1" "%") .. )
(define (db:extract-ods-file db outputfile keypatt-alist runspatt)
(let* ((keysstr (string-intersperse (map car keypatt-alist) ","))
(keyqry (string-intersperse (map (lambda (p)(conc (car p) " like ? ")) keypatt-alist) " AND "))
(test-ids '())
(tempdir (conc "/tmp/" (current-user-name) "/" runspatt "_" (random 10000) "_" (current-process-id)))
(runsheader (append (list "Run Id" "Runname")
(map car keypatt-alist)
(list "Testname"
"Item Path"
"Description"
"State"
"Status"
"Final Log"
"Run Duration"
"When Run"
"Tags"
"Run Owner"
"Comment"
"Author"
"Test Owner"
"Reviewed"
"Diskfree"
"Uname"
"Rundir"
"Host"
"Cpu Load"
"Warn"
"Error")))
(results (list runsheader))
(testdata-header (list "Run Id" "Testname" "Item Path" "Category" "Variable" "Value" "Expected" "Tol" "Units" "Status" "Comment")))
(debug:print 2 "Using " tempdir " for constructing the ods file")
;; "Expected Value"
;; "Value Found"
;; "Tolerance"
(apply sqlite3:for-each-row
(lambda (test-id . b)
(set! test-ids (cons test-id test-ids)) ;; test-id is now testname
(set! results (append results (list b)))) ;; note, drop the test-id
db
(conc "SELECT
t.testname,r.id,runname," keysstr ",t.testname,
t.item_path,tm.description,t.state,t.status,
final_logf,run_duration,
strftime('%m/%d/%Y %H:%M:%S',datetime(t.event_time,'unixepoch'),'localtime'),
tm.tags,r.owner,t.comment,
author,
tm.owner,reviewed,
diskfree,uname,rundir,
host,cpuload,first_err,first_warn
FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id INNER JOIN test_meta AS tm ON tm.testname=t.testname
WHERE runname LIKE ? AND " keyqry ";")
runspatt (map cadr keypatt-alist))
(set! results (list (cons "Runs" results)))
;; now, for each test, collect the test_data info and add a new sheet
(for-each
(lambda (test-id)
|
| ︙ | ︙ |