8da56ffc LC |
1 | (set! %load-path (cons (string-append (getenv "HOME") "/src/guile") |
2 | %load-path)) |
3 | |
4 | (load "../test-suite/guile-test") |
5 | |
6 | (main `("guile-test" |
7 | "--test-suite" ,(string-append (getenv "HOME") |
8 | "/src/guile/test-suite/tests") |
9 | "--log-file" ",,test-suite.log")) |