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