viewing logs
job succeeded
veritas
- time taken
- 6 seconds
- started at
- Mon Jul 21 11:03:11 2025
- updated at
- Mon Jul 21 11:03:17 2025
- log uuid
2e5b8154-7f8d-4749-b347-0a8c2c874d06
inspect the job's lambda expression
(lambda()
`((task . "make-test")
(project . "veritas")
(branch-name . "trunk")
(clone-url . "https://codeberg.org/jjba23/veritas.git")))
starting new job...
-> running command: cd /etc/byggsteg/job-clone/veritas/trunk && uname -a
Linux wolk-jjba 6.15.5-gnu #1 SMP PREEMPT_DYNAMIC 1 x86_64 GNU/Linux
-> running command: cd /etc/byggsteg/job-clone/veritas/trunk && git pull
Updating 66d87c6..a487730
Fast-forward
Makefile | 2 +-
README.org | 9 ++++-
src/veritas/runner.scm | 95 ++++++++++++++++++++++++++++++++++++++++++++
test/veritas/unit/simple.scm | 4 +-
4 files changed, 106 insertions(+), 4 deletions(-)
create mode 100644 src/veritas/runner.scm
-> running command: cd /etc/byggsteg/job-clone/veritas/trunk && git log --name-status HEAD^..HEAD
commit a4877305b80442175a7bf7aca19b55b55c273131
Author: Josep Bigorra <jjbigorra@gmail.com>
Date: Mon Jul 21 11:02:45 2025 +0200
add custom runner
M Makefile
M README.org
A src/veritas/runner.scm
M test/veritas/unit/simple.scm
-> running command: cd /etc/byggsteg/job-clone/veritas/trunk && make test
make[1]: Entering directory '/etc/byggsteg/job-clone/veritas/trunk'
[1m[INFO] 2025-07-21 11:03:12+02:00 - formatting all Scheme files[0m
find . -maxdepth 8 -name "*.scm" -type f -exec guix style -f {} \;
guix shell -m manifest.scm -- \
guile --fresh-auto-compile -L ./src \
-L ./test \
-c '((@ (veritas runner) run-unit-tests))'
scanning directories for unit tests...
scanning present working directory for unit tests...
found unit tests: (simple.scm)
#<directory (veritas unit simple) 7f1d8d7e1aa0>
#<procedure spec ()>
+----------------------------------------------+
[[1m? suite[0m] [1mList Manipulation Tests[0m
[[1m? test[0m] [1mList Length[0m
[[1m?? assert[0m] [1mLength of empty list[0m
[0;32m? pass - expected: 0, sut: 0[0m
[[1m?? assert[0m] [1mLength of list with 3 elements[0m
[0;32m? pass - expected: 3, sut: 3[0m
[[1m?? assert[0m] [1mLength of list with one element[0m
[0;32m? pass - expected: 1, sut: 1[0m
[[1m? test[0m] [1mList Concatenation[0m
[[1m?? assert[0m] [1mConcatenate two non-empty lists[0m
[0;32m? pass - expected: (1 2 3 4 5), sut: (1 2 3 4 5)[0m
[[1m?? assert[0m] [1mConcatenate empty list with non-empty[0m
[0;32m? pass - expected: (a b), sut: (a b)[0m
[[1m?? assert[0m] [1mConcatenate non-empty list with empty[0m
[0;32m? pass - expected: (x y), sut: (x y)[0m
[[1m?? assert[0m] [1mConcatenate two empty lists[0m
[0;32m? pass - expected: (), sut: ()[0m
[[1m? test[0m] [1mGet First Element[0m
[[1m?? assert[0m] [1mFirst element of a symbol list[0m
[0;32m? pass - expected: a, sut: a[0m
[[1m?? assert[0m] [1mFirst element of an empty list should be #f[0m
[0;32m? pass - expected: #f, sut: #f[0m
[[1m?? assert[0m] [1mFirst element of a number list[0m
[0;32m? pass - expected: 1, sut: 1[0m
+----------------------------------------------+
[[1m? suite[0m] [1mBasic Suite[0m
[[1m? test[0m] [1mBasic Numeric Tests[0m
[0;32m? pass - expected: 1, sut: 1[0m
[[1m?? assert[0m] [1mchecks if addition works[0m
[0;32m? pass - expected: 4, sut: 4[0m
[0;32m? pass - expected: 0, sut: 0[0m
[0;32m? pass - expected: 1, sut: 1[0m
[[1m? test[0m] [1mCheck that function calls work[0m
[0;32m? pass - expected: 42, sut: 42[0m
[[1m? test[0m] [1mBasic Boolean Tests[0m
[[1m?? assert[0m] [1mshould succeed on checking that false is false[0m
[0;32m? pass - expected: #f, sut: #f[0m
+----------------------------------------------+
[[1m? suite[0m] [1mPredicate Tests[0m
[[1m? test[0m] [1mList Predicates[0m
[[1m?? assert[0m] [1mNon-empty list should not be null[0m
[0;32m? pass - expected: #f, sut: #f[0m
[[1m?? assert[0m] [1mEmpty list should not be a pair[0m
[0;32m? pass - expected: #f, sut: #f[0m
[[1m?? assert[0m] [1mPair should be a pair[0m
[0;32m? pass - expected: #t, sut: #t[0m
[[1m?? assert[0m] [1mEmpty list should be null[0m
[0;32m? pass - expected: #t, sut: #t[0m
[[1m? test[0m] [1mEven Number Checks[0m
[[1m?? assert[0m] [1m0 should be even[0m
[0;32m? pass - expected: #t, sut: #t[0m
[[1m?? assert[0m] [1m4 should be even[0m
[0;32m? pass - expected: #t, sut: #t[0m
[[1m?? assert[0m] [1m1 should not be even[0m
[0;32m? pass - expected: #f, sut: #f[0m
[[1m?? assert[0m] [1m7 should not be even[0m
[0;32m? pass - expected: #f, sut: #f[0m
+----------------------------------------------+
[[1m? suite[0m] [1mError Handling Tests[0m
[[1m? test[0m] [1mNo Error on Valid Division[0m
[[1m?? assert[0m] [1mValid division result[0m
[0;32m? pass - expected: 5, sut: 5[0m
[[1m?? assert[0m] [1mShould not signal error on valid division[0m
[0;32m? pass - success running without errors[0m
[[1m? test[0m] [1mDivision by Zero Error[0m
[[1m?? assert[0m] [1mShould signal error on division by zero[0m
[0;32m? pass - success catching error: misc-error: (#f Division by zero () #f)[0m
+----------------------------------------------+
[[1m? suite[0m] [1mComplex Data Structure Tests[0m
[[1m? test[0m] [1mVector Operations[0m
[[1m?? assert[0m] [1mVector length[0m
[0;32m? pass - expected: 3, sut: 3[0m
[[1m?? assert[0m] [1mVector ref at index 0[0m
[0;32m? pass - expected: 1, sut: 1[0m
[[1m?? assert[0m] [1mVector ref at index 1[0m
[0;32m? pass - expected: 2, sut: 2[0m
[[1m? test[0m] [1mAssociation List Lookups[0m
[[1m?? assert[0m] [1mLookup 'age' in alist[0m
[0;32m? pass - expected: 30, sut: 30[0m
[[1m?? assert[0m] [1mLookup non-existent key should be #f[0m
[0;32m? pass - expected: #f, sut: #f[0m
[[1m?? assert[0m] [1mLookup 'name' in alist[0m
[0;32m? pass - expected: Alice, sut: Alice[0m
+----------------------------------------------+
[[1m? suite[0m] [1mstr[0m
[[1m? test[0m] [1mString Operation Tests[0m
[0;32m? pass - expected: #f, sut: #f[0m
[0;32m? pass - expected: #t, sut: #t[0m
[0;32m? pass - expected: hello world, sut: hello world[0m
[1m?? info - ran 6 test suites in: 0 seconds, 16714 microseconds[0m
[1m? debug -[0m assertion-results: (#t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t)make[1]: Leaving directory '/etc/byggsteg/job-clone/veritas/trunk'