scheme-libraries

History

retropikzel eb56d8606b Add git-indexing into packaging		2026-08-28 12:22:24 +03:00
..
DESCRIPTION	tap: Add more outputs using SRFI-112	2026-08-23 19:23:23 +03:00
LICENSE	tap: Add more outputs using SRFI-112	2026-08-23 19:23:23 +03:00
README.md	tap: Exit with failure code only if environment variable is set	2026-08-15 09:15:22 +03:00
VERSION	Add git-indexing into packaging	2026-08-28 12:22:24 +03:00
test.scm	Backup	2026-08-26 20:33:50 +03:00

Test Anything Protocol output for SRFI-64

Usage

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

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

(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))

SCM_TAP_EXIT_FAIL

If you want the test runner to exit on end with fail (1) if any of the tests fail, set this environment variable.