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

tap: Fix showing the version

This commit is contained in:
retropikzel 2026-07-24 09:00:26 +03:00
parent eff403988e
commit f308245fce
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
retropikzel/tap.scm
View File

@ -37,6 +37,9 @@
(test-runner-on-group-begin! (test-runner-on-group-begin!
runner runner
(lambda (runner suite-name count) (lambda (runner suite-name count)
(when (not started?)
(println "TAP version 14")
(set! started? #t))
(set! current-test-group-count 0) (set! current-test-group-count 0)
(when current-suite-name (when current-suite-name
(println "# Subtest: " suite-name) (println "# Subtest: " suite-name)
@ -60,9 +63,6 @@
(test-runner-on-test-begin! (test-runner-on-test-begin!
runner runner
(lambda (runner) (lambda (runner)
(when (not started?)
(println "TAP version 14")
(set! started? #t))
(set! current-test-group-count (+ current-test-group-count 1)))) (set! current-test-group-count (+ current-test-group-count 1))))
(test-runner-on-test-end! (test-runner-on-test-end!

2
retropikzel/tap/VERSION
View File

@ -1 +1 @@
0.2.1 0.2.2