Megatest

Check-in [99afad6671]
Login
Overview
Comment:For teamcity it is necessary to emit a testFinished message even when the test is marked testFailed.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: 99afad667172db55121baea252818d982a4ff4df
User & Date: mrwellan on 2017-08-14 16:36:49
Other Links: branch diff | manifest | tags
Context
2017-08-15
09:55
Missed some cases where testFinished was needed. check-in: d68a09622d user: mrwellan tags: v1.64, v1.6428
2017-08-14
16:36
For teamcity it is necessary to emit a testFinished message even when the test is marked testFailed. check-in: 99afad6671 user: mrwellan tags: v1.64
2017-08-08
16:59
Use process-pid for flowId for teamcity, fall back to testname check-in: 2890f3b693 user: mrwellan tags: v1.64
Changes

cgisetup/cgi-bin/models became a symlink with target [39c07627cc].

cgisetup/cgi-bin/pages became a symlink with target [e2b5ed002d].

Modified tcmt.scm from [5f5e90a486] to [f9e002254b].

93
94
95
96
97
98
99
100
101
102

103
104
105
106
107
108
109
      ((COMPLETED)
       (if (not startp) ;; start stanza never printed
	   (begin
	     (print "##teamcity[testStarted " tcname flowid tstmp "]")
	     (testdat-start-printed-set! tdat #t)))
       (if (not endp)
	   (begin
	     (if (member status '(PASS WARN SKIP WAIVED))
		 (print "##teamcity[testFinished" tcname flowid comment details duration "]")
		 (print "##teamcity[testFailed  " tcname flowid comment details "]"))

	     (testdat-end-printed-set! tdat #t))))
      (else
       (if flush-mode
	   (begin
	     (if (not startp)
		 (begin
		   (print "##teamcity[testStarted " tcname flowid tstmp "]")







|
<

>







93
94
95
96
97
98
99
100

101
102
103
104
105
106
107
108
109
      ((COMPLETED)
       (if (not startp) ;; start stanza never printed
	   (begin
	     (print "##teamcity[testStarted " tcname flowid tstmp "]")
	     (testdat-start-printed-set! tdat #t)))
       (if (not endp)
	   (begin
	     (if (not (member status '(PASS WARN SKIP WAIVED)))

		 (print "##teamcity[testFailed  " tcname flowid comment details "]"))
             (print "##teamcity[testFinished" tcname flowid comment details duration "]")
	     (testdat-end-printed-set! tdat #t))))
      (else
       (if flush-mode
	   (begin
	     (if (not startp)
		 (begin
		   (print "##teamcity[testStarted " tcname flowid tstmp "]")