diff options
| -rw-r--r-- | genenetwork-development.scm | 19 | ||||
| -rw-r--r-- | genenetwork/development-helper.scm | 19 |
2 files changed, 0 insertions, 38 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm index d22e926..0890c5c 100644 --- a/genenetwork-development.scm +++ b/genenetwork-development.scm @@ -20,7 +20,6 @@ (use-modules (gnu) ((gn packages genenetwork) #:select (genenetwork2 genenetwork3 gn-auth)) - ((gn packages quality-control) #:select (sbcl-qc)) (gn services databases) (gnu build linux-container) ((gnu packages admin) #:select (shepherd shadow)) @@ -696,24 +695,6 @@ described by CONFIG, a <genenetwork-configuration> object." ;;; -;;; qc -;;; - -(define qc-tests - (with-imported-modules (cons '(guix build lisp-utils) - (source-module-closure '((genenetwork development-helper)) - #:select? import-module?)) - #~(lambda (source) - ((@@ (genenetwork development-helper) - asdf-test-gexp) - source - #$(profile - (content (package->development-manifest sbcl-qc)) - (allow-collisions? #t)) - "qc" (list "qc.asd"))))) - - -;;; ;;; transform-genenetwork-database ;;; 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))))) |