scheme-libraries/retropikzel/tap

TAP output for SRFI-64

Test Anything Protocol

Usage

(import (scheme base)
        (srfi 64)
        (retropikzel tap))

(test-runner-current (tap-runner))

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

(tap-runner)

Get the TAP test runner.

(set-tap-runner-output-port! port)

Set the output port of the test runner. To output to file you can do:

(define tap-file "tap-result.txt")
(when (file-exists? tap-file) (delete-file tap-file))
(set-tap-runner-output-port! (open-output-file tap-file))