viewing logs

veritas

time taken

10 seconds

started at

Tue Jul 22 10:37:27 2025

updated at

Tue Jul 22 10:37:37 2025

log uuid

4e721ee9-58a3-493d-af6a-fbed364007b8

(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 4a08df9..2db220b
Fast-forward
 README.org | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

-> running command: cd /etc/byggsteg/job-clone/veritas/trunk && git log --name-status HEAD^..HEAD
commit 2db220bbbb02509c4059d4e98e95634894a8a2de
Author: Josep Bigorra <jjbigorra@gmail.com>
Date:   Tue Jul 22 10:35:17 2025 +0200

     ??

M	README.org

-> running command: cd /etc/byggsteg/job-clone/veritas/trunk && make test
make[1]: Entering directory '/etc/byggsteg/job-clone/veritas/trunk'

[INFO] 2025-07-22 10:37:30+02:00 - formatting all Scheme files
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) 7f958604ea00>
#<procedure spec ()>
  [? test] Check that function calls work
    ? pass - expected: 42, sut: 42
  [? test] Basic Numeric Tests
    [?? assert] checks if addition works
    ? pass - expected: 4, sut: 4
    ? pass - expected: 1, sut: 1
    ? pass - expected: 0, sut: 0
    ? pass - expected: 1, sut: 1
  [? test] List Predicates
    [?? assert] Pair should be a pair
    ? pass - expected: #t, sut: #t
    [?? assert] Non-empty list should not be null
    ? pass - expected: #f, sut: #f
    [?? assert] Empty list should not be a pair
    ? pass - expected: #f, sut: #f
    [?? assert] Empty list should be null
    ? pass - expected: #t, sut: #t
  [? test] Even Number Checks
    [?? assert] 1 should not be even
    ? pass - expected: #f, sut: #f
    [?? assert] 0 should be even
    ? pass - expected: #t, sut: #t
    [?? assert] 7 should not be even
    ? pass - expected: #f, sut: #f
    [?? assert] 4 should be even
    ? pass - expected: #t, sut: #t
  [? test] some test without suite
    ? pass - expected: 1, sut: 1
  [? test] Get First Element
    [?? assert] First element of an empty list should be #f
    ? pass - expected: #f, sut: #f
    [?? assert] First element of a symbol list
    ? pass - expected: a, sut: a
    [?? assert] First element of a number list
    ? pass - expected: 1, sut: 1
  [? test] List Concatenation
    [?? assert] Concatenate two empty lists
    ? pass - expected: (), sut: ()
    [?? assert] Concatenate two non-empty lists
    ? pass - expected: (1 2 3 4 5), sut: (1 2 3 4 5)
    [?? assert] Concatenate empty list with non-empty
    ? pass - expected: (a b), sut: (a b)
    [?? assert] Concatenate non-empty list with empty
    ? pass - expected: (x y), sut: (x y)
  [? test] List Length
    [?? assert] Length of empty list
    ? pass - expected: 0, sut: 0
    [?? assert] Length of list with 3 elements
    ? pass - expected: 3, sut: 3
    [?? assert] Length of list with one element
    ? pass - expected: 1, sut: 1
  [? test] Division by Zero Error
    [?? assert] Should signal error on division by zero
    ? pass - success catching error: misc-error: (#f Division by zero () #f)
  [? test] No Error on Valid Division
    [?? assert] Should not signal error on valid division
    ? pass - success running without errors
    [?? assert] Valid division result
    ? pass - expected: 5, sut: 5
  [? test] String Operation Tests
    ? pass - expected: hello world, sut: hello world
    ? pass - expected: #f, sut: #f
    ? pass - expected: #t, sut: #t
  [? test] Vector Operations
    [?? assert] Vector ref at index 0
    ? pass - expected: 1, sut: 1
    [?? assert] Vector length
    ? pass - expected: 3, sut: 3
    [?? assert] Vector ref at index 1
    ? pass - expected: 2, sut: 2
  [? test] Association List Lookups
    [?? assert] Lookup 'name' in alist
    ? pass - expected: Alice, sut: Alice
    [?? assert] Lookup 'age' in alist
    ? pass - expected: 30, sut: 30
    [?? assert] Lookup non-existent key should be #f
    ? pass - expected: #f, sut: #f
?? info - ran 7 test suites in: 0 seconds, 18317 microsecondsmake[1]: Leaving directory '/etc/byggsteg/job-clone/veritas/trunk'