aboutsummaryrefslogtreecommitdiff
path: root/genenetwork
diff options
context:
space:
mode:
authorArun Isaac2023-12-19 22:18:54 +0000
committerArun Isaac2023-12-19 22:18:54 +0000
commitaaf6750858e061e5f5740fb1edbc49b68b3c4717 (patch)
treed54443dcaf9cd719544251f0f78d3d713e11c677 /genenetwork
parent69d9de78820e1a8e767c5b10f5a964dbb94fffbd (diff)
downloadgn-machines-aaf6750858e061e5f5740fb1edbc49b68b3c4717.tar.gz
Delete unused qc-tests variable.
* genenetwork-development.scm (qc-tests): Delete variable. * genenetwork/development-helper.scm (asdf-test-gexp): Delete function.
Diffstat (limited to 'genenetwork')
-rw-r--r--genenetwork/development-helper.scm19
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)))))