Megatest

Check-in [cd49d29559]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Merged v.65
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.66
Files: files | file ages | folders
SHA1: cd49d29559343d0981573d921074bd8123ef683e
User & Date: matt on 2020-06-25 23:13:09
Other Links: branch diff | manifest | tags
Context
2020-06-28
23:45
Added keep-going=yes support to steps. check-in: 57aa66b026 user: matt tags: v1.66
2020-06-25
23:43
Pulled in parts of the ulex partial implementation check-in: d6e38724ed user: matt tags: v1.66-captain-ulex
23:13
Merged v.65 check-in: cd49d29559 user: matt tags: v1.66
2020-06-24
09:28
Rebuilt manual check-in: ef15846c81 user: mrwellan tags: v1.66
2020-06-16
12:10
bumped version, merged fork check-in: 5b46e5fdf9 user: mmgraham tags: v1.65, v1.6553
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified runs.scm from [af85821480] to [a12d4265e8].

︙
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"))
︙

This page was generated in about 0.126s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00