Megatest

Check-in [5b46e5fdf9]
Login
Overview
Comment:bumped version, merged fork
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65 | v1.6553
Files: files | file ages | folders
SHA1: 5b46e5fdf9429db4269bd72227af40ba6333acb0
User & Date: mmgraham on 2020-06-16 12:10:31
Other Links: branch diff | manifest | tags
Context
2020-07-02
11:42
fixe for end of run detection when last test is dead or dnr and remove runs without data check-in: 3c2cad2a4d user: pjhatwal tags: v1.65
2020-06-25
23:13
Merged v.65 check-in: cd49d29559 user: matt tags: v1.66
2020-06-16
12:10
bumped version, merged fork check-in: 5b46e5fdf9 user: mmgraham tags: v1.65, v1.6553
2020-06-15
16:21
Cherry pick wildcard in target or runname support from v1.66 check-in: 97894664a1 user: matt tags: v1.65
2020-06-12
13:39
updates to xml to use state as inQueue instead of attribute check-in: 3e712ae5ed user: pjhatwal tags: v1.65, v1.6552
Changes

Modified megatest-version.scm from [5c3b9591bf] to [c33ef84182].

16
17
18
19
20
21
22
23

16
17
18
19
20
21
22

23







-
+
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;; Always use two or four digit decimal
;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..

(declare (unit megatest-version))

(define megatest-version 1.6552)
(define megatest-version 1.6553)

Modified runs.scm from [87241d67d4] to [815542adba].

2779
2780
2781
2782
2783
2784
2785
2786

2787
2788

2789
2790
2791
2792
2793
2794
2795
2779
2780
2781
2782
2783
2784
2785

2786
2787

2788
2789
2790
2791
2792
2793
2794
2795







-
+

-
+







			 (tc-name	(conc test-name (if (and test-itempath (not (equal? test-itempath ""))) (conc "." (string-translate test-itempath "/" "." )) "")))
			 (test-state	(vector-ref test 3))
			 (comment	(vector-ref test 14))   
			 (test-status	(vector-ref test 4))
			 (exc-msg	(conc "No bucket for State " test-state " Status " test-status))
			 (new-doc	(cond 
						((member test-state (list "RUNNING" ))
							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inProgress (@ (type "inProgress")))))) doc))
							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inProgress)))) doc))
						((member test-state (list "LAUNCHED" "REMOTEHOSTSTART"  "NOT_STARTED"))
							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inProgress (@ (type "inQueue")))))) doc))
							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inQueue)))) doc))
						((member test-status (list "PASS" "WARN" "WAIVED"))
							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name))))) doc))
						((member test-status (list "FAIL" "CHECK"))
							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (failure (@ (message ,comment) (type "failure")))))) doc)) 
						((member test-status (list "DEAD" "KILLED" "ABORT" "PREQ_FAIL" "PREQ_DISCARDED"))
							((sxml-modify `("testsuite" insert-into (testcase (@ (name ,tc-name)) (failure (@ (message ,comment) (type "error")))))) doc))
						((member test-status (list "SKIP"))