~ chicken-core (master) /tests/repository-path-default.scm

1(import (chicken platform))
2
3(include "test.scm")
4
5(print (repository-path))
6(test-assert "(repository-path) contains something by default"
7  (= 1 (length (repository-path))))
8
9(test-exit)