diff options
Diffstat (limited to 'genenetwork')
| -rw-r--r-- | genenetwork/development-helper.scm | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/genenetwork/development-helper.scm b/genenetwork/development-helper.scm index 7602eb0..20edfbf 100644 --- a/genenetwork/development-helper.scm +++ b/genenetwork/development-helper.scm @@ -45,22 +45,3 @@ is a list of strings specifying the command to be executed." (exit #f))) (apply invoke '#$command)) (mkdir-p #$output))))) - -(define (asdf-test-gexp source profile system asd-files) - "Return a G-expression that tests SYSTEM using asdf after loading -ASD-FILES. SOURCE is the source code under test. PROFILE is a profile -with all necessary dependencies. SOURCE and PROFILE are both store -items." - (with-imported-modules '((guix build lisp-utils) - (guix build utils)) - (with-profile profile - #~(begin - (use-modules (guix build lisp-utils) - (guix build utils)) - - (chdir #$source) - (setenv "HOME" "/tmp") - (parameterize ((%lisp "sbcl") - (%lisp-type "sbcl")) - (test-system #$system '#$asd-files #f)) - (mkdir-p #$output))))) |