From aaf6750858e061e5f5740fb1edbc49b68b3c4717 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 19 Dec 2023 22:18:54 +0000
Subject: Delete unused qc-tests variable.

* genenetwork-development.scm (qc-tests): Delete variable.
* genenetwork/development-helper.scm (asdf-test-gexp): Delete
function.
---
 genenetwork-development.scm        | 19 -------------------
 genenetwork/development-helper.scm | 19 -------------------
 2 files changed, 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))
@@ -694,24 +693,6 @@ described by CONFIG, a <genenetwork-configuration> object."
                              genenetwork-projects)))
    (default-value (genenetwork-configuration))))
 
-
-;;;
-;;; 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)))))
-- 
cgit v1.2.3