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) 10