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

Compare commits

base: Retropikzel:bf72655dece9ee3f156876e0d161c9973ea2e889
Branches Tags
Retropikzel:main
Retropikzel:new-builds
Retropikzel:http
Retropikzel:docstring
...
compare: Retropikzel:eb56d8606b084f456be25d95b5299c6ff4067454
Branches Tags
Retropikzel:main
Retropikzel:new-builds
Retropikzel:http
Retropikzel:docstring

2 Commits
bf72655dec ... eb56d8606b

Author SHA1 Message Date
retropikzel eb56d8606b Add git-indexing into packaging 2026-08-28 12:22:24 +03:00
retropikzel 4a4c138c02 tap: Make output better. Add name is string checks 2026-08-28 08:33:22 +03:00
3 changed files with 16 additions and 11 deletions
Show Stats Expand all files Collapse all files

1
Makefile
View File

@ -21,6 +21,7 @@ package: retropikzel/${LIBRARY}/LICENSE retropikzel/${LIBRARY}/VERSION retropikz
--test=${TESTFILE} \
--description="$$(head -n1 retropikzel/${LIBRARY}/DESCRIPTION)" \
retropikzel/${LIBRARY}.sld
snow-chibi git-index ${PKG}
install:
snow-chibi install --impls=${SCHEME} --always-yes --verbose?=1 --skip-tests?=1 ${PKG}

24
retropikzel/tap.scm
View File

@ -151,21 +151,25 @@
(else "other")))
(count (cdr (assoc (car (test-runner-group-stack runner))
group-test-counts)))
(name (if (string=? (test-runner-test-name runner) "")
""
(string-append " - " (test-runner-test-name runner)))))
(name
(cond ((not (string? (test-runner-test-name runner))) "")
((string=? (test-runner-test-name runner) "") "")
(else (string-append " - " (test-runner-test-name runner))))))
(cond ((equal? result-kind-name "fail")
(increase-group-fail-count (car (test-runner-group-stack runner)))
(display-map runner "not ok " count name #\newline)
(display-map runner " ---" #\newline)
(display-map runner " severity: fail" #\newline)
(display-map runner " data:" #\newline)
(display-map runner " source: " (test-result-ref runner 'source-form) #\newline)
(display-map runner " got: " (test-result-ref runner 'actual-value) #\newline)
(display-map runner " expect: " (test-result-ref runner 'expected-value) #\newline)
(display-map runner " at: " #\newline)
(display-map runner " file: " (test-result-ref runner 'source-file) #\newline)
(display-map runner " line: " (test-result-ref runner 'source-line) #\newline))
(when (test-result-ref runner 'source-form)
(display-map runner " source: " (test-result-ref runner 'source-form) #\newline))
(when (test-result-ref runner 'actual-value)
(display-map runner " got: " (test-result-ref runner 'actual-value) #\newline))
(when (test-result-ref runner 'expected-value)
(display-map runner " expect: " (test-result-ref runner 'expected-value) #\newline))
(when (test-result-ref runner 'source-file)
(display-map runner " file: " (test-result-ref runner 'source-file) #\newline))
(when (test-result-ref runner 'source-line)
(display-map runner " line: " (test-result-ref runner 'source-line) #\newline)))
((equal? result-kind-name "skip")
(display-map runner "ok " count name " # skip " #\newline))
(else (display-map runner "ok " count name #\newline)))))

2
retropikzel/tap/VERSION
View File

@ -1 +1 @@
1.1.1
1.2.1