Megatest

Check-in [1366967686]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Check that xml junit stuff is there before opperating on the signature
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 136696768614ae0361367ca9b0a8814fe2f67821
User & Date: mrwellan on 2020-06-09 08:24:28
Other Links: branch diff | manifest | tags
Context
2020-06-09
12:31
Updated megatest version to 1.6552 check-in: 34682762d7 user: mmgraham tags: v1.65
08:24
Check that xml junit stuff is there before opperating on the signature check-in: 1366967686 user: mrwellan tags: v1.65
2020-06-05
15:37
changed megatest verion to 51 check-in: dac2533ee3 user: mmgraham tags: v1.65, v1.6551
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified runs.scm from [32b7aa1de8] to [87241d67d4].

︙
2733
2734
2735
2736
2737
2738
2739
2740

2741
2742
2743
2744
2745
2746





2747
2748
2749
2750



2751
2752
2753
2754
2755
2756
2757

2733
2734
2735
2736
2737
2738
2739

2740
2741





2742
2743
2744
2745
2746
2747
2748
2749

2750
2751
2752
2753
2754
2755
2756
2757
2758
2759








-
+

-
-
-
-
-
+
+
+
+
+



-
+
+
+








(define doc-template 
  '(*TOP*
    (*PI* xml "version='1.0'")
    (testsuite)))

(define (runs:update-junit-test-reporter-xml run-id)
  (let*	(
	 (junit-test-reporter	(configf:lookup *configdat* "runs" "junit-test-reporter-xml"))
	 (junit-test-reporter	 (configf:lookup *configdat* "runs" "junit-test-reporter-xml"))
	 (junit-test-report-dir  (configf:lookup *configdat* "runs" "junit-test-report-dir"))
	 (xml-dir		(if (and junit-test-reporter (equal? junit-test-reporter "yes" ))
				    (if junit-test-report-dir
					junit-test-report-dir
					(conc (getenv "MT_LINKTREE") "/" (getenv "MT_TARGET") "/" (getenv "MT_RUNNAME")))
				    #f))
	 (xml-dir		 (if (and junit-test-reporter (equal? junit-test-reporter "yes" ))
				     (if junit-test-report-dir
					 junit-test-report-dir
					 (conc (getenv "MT_LINKTREE") "/" (getenv "MT_TARGET") "/" (getenv "MT_RUNNAME")))
				     #f))
	 (xml-ts-name		(if xml-dir
				    (conc (getenv "MT_TESTSUITENAME")"."(string-translate (getenv "MT_TARGET") "/" ".") "." (getenv "MT_RUNNAME"))
				    #f))
         (keyname               (common:get-signature xml-ts-name))
         (keyname               (if xml-ts-name
				    (common:get-signature xml-ts-name)
				    #f))
	 (xml-path		(if xml-dir
				    (conc xml-dir "/" keyname ".xml")
				    #f))

	 (test-data		(if xml-dir
				    (rmt:get-tests-for-run run-id "%" '() '() ;; run-id testpatt states statuses
							   #f #f ;; offset limit
︙

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