Retropikzel
/
scheme-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tap,junit: Readme updates

This commit is contained in:
retropikzel 2026-07-19 17:03:44 +03:00
parent 1183a4ab20
commit 4b5785dee7
6 changed files with 5 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
retropikzel/junit/README.md
View File

@ -14,22 +14,6 @@ JUnit, output for SRFI-64
## Jenkins usage tip
Use JUnit test runner in Jenkins and output to file, use TAP anywhere else and
output to stdout.
(cond
;; In Jenkins
((get-environment-variable "JENKINS_URL")
(let ((junit-file "junit-result.xml"))
(test-runner-current (junit-runner))
(when (file-exists? junit-file) (delete-file junit-file))
(set-junit-runner-output-port! (open-output-file junit-file))))
(else (test-runner-current (tap-runner))))
## Reference ## Reference
(**junit-runner**) (**junit-runner**)

2
retropikzel/junit/VERSION
View File

@ -1 +1 @@
0.3.0 0.3.1

16
retropikzel/tap/README.md
View File

@ -14,22 +14,6 @@ TAP output for SRFI-64
## Jenkins usage tip
Use JUnit test runner in Jenkins and output to file, use TAP anywhere else and
output to stdout.
(cond
;; In Jenkins
((get-environment-variable "JENKINS_URL")
(let ((junit-file "junit-result.xml"))
(test-runner-current (junit-runner))
(when (file-exists? junit-file) (delete-file junit-file))
(set-junit-runner-output-port! (open-output-file junit-file))))
(else (test-runner-current (tap-runner))))
## Reference ## Reference
(**tap-runner**) (**tap-runner**)

2
retropikzel/tap/VERSION
View File

@ -1 +1 @@
0.2.0 0.2.1

10
test-headers.scm
View File

@ -5,15 +5,7 @@
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel tap) (retropikzel tap)
(retropikzel junit)
(retropikzel LIBRARY) (retropikzel LIBRARY)
(srfi 64)) (srfi 64))
(cond (test-runner-current (tap-runner))
;; In Jenkins
((get-environment-variable "WORKSPACE")
(let ((junit-file "junit-result.xml"))
(test-runner-current (junit-runner))
(when (file-exists? junit-file) (delete-file junit-file))
(set-junit-runner-output-port! (open-output-file junit-file))))
(else (test-runner-current (tap-runner))))

12
test-headers.sps
View File

@ -1,15 +1,7 @@
(import (except (rnrs) delete-file) (import (rnrs)
(retropikzel tap) (retropikzel tap)
(retropikzel junit)
(retropikzel LIBRARY) (retropikzel LIBRARY)
(srfi :64) (srfi :64)
(srfi :98)) (srfi :98))
(cond (test-runner-current (tap-runner))
;; In Jenkins
((get-environment-variable "WORKSPACE")
(let ((junit-file "junit-result.xml"))
(test-runner-current (junit-runner))
(when (file-exists? junit-file) (delete-file junit-file))
(set-junit-runner-output-port! (open-output-file junit-file))))
(else (test-runner-current (tap-runner))))