Megatest

Check-in [3e712ae5ed]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:updates to xml to use state as inQueue instead of attribute
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65 | v1.6552
Files: files | file ages | folders
SHA1: 3e712ae5ed195cee54f04e2ec00696c7448637ff
User & Date: pjhatwal on 2020-06-12 13:39:45
Other Links: branch diff | manifest | tags
Context
2020-06-16
12:10
bumped version, merged fork check-in: 5b46e5fdf9 user: mmgraham tags: v1.65, v1.6553
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
2020-06-09
12:31
Updated megatest version to 1.6552 check-in: 34682762d7 user: mmgraham tags: v1.65
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

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