diff options
Diffstat (limited to 'genenetwork-development.scm')
| -rw-r--r-- | genenetwork-development.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm index 85f34fb..413afdb 100644 --- a/genenetwork-development.scm +++ b/genenetwork-development.scm @@ -1732,10 +1732,16 @@ delete-test-users, etc.) as the genenetwork user via sudo." (string-append site-packages ":" (getenv "PYTHONPATH"))) (setenv "PYTHONPATH" site-packages)) (dynamic-wind - (lambda () (begin #$@setup)) ;; Run setup if provided + (lambda () ;; Run setup if provided + #$(if (null? setup) + #~(if #f #f) + #~(begin #$@setup))) (lambda () (apply invoke '#$test-command)) ;; Run actual tests (lambda () ;; Always run teardowns to clean up. - (begin #$@teardown) ;; run if teardowns provided + (begin ;; run if teardowns provided + ;; we don't need `null?' check here because we have other + ;; statements therefore the `lambda' does not end up empty. + #$@teardown) (chdir orig-dir) (delete-file-recursively tmp-dir)))))))))) |