From 69d9de78820e1a8e767c5b10f5a964dbb94fffbd Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 19 Dec 2023 21:29:47 +0000
Subject: Use guix-channel-job-gexp for gn-auth pylint and mypy CI jobs.

* genenetwork-development.scm (genenetwork3-tests): Delete function.
(gn-auth-pylint): Delete variable.
(genenetwork-projects): Build only the gn-auth variable in the gn-auth
CI job. Combine gn-auth-mypy and gn-auth-pylint CI jobs into a
gn-auth-all-tests job that uses guix-channel-job-gexp.
* genenetwork/development-helper.scm (genenetwork-lint-gexp): Delete
function.
---
 genenetwork/development-helper.scm | 37 -------------------------------------
 1 file changed, 37 deletions(-)

(limited to 'genenetwork/development-helper.scm')

diff --git a/genenetwork/development-helper.scm b/genenetwork/development-helper.scm
index 4e8c62b..7602eb0 100644
--- a/genenetwork/development-helper.scm
+++ b/genenetwork/development-helper.scm
@@ -64,40 +64,3 @@ items."
                          (%lisp-type "sbcl"))
             (test-system #$system '#$asd-files #f))
           (mkdir-p #$output)))))
-
-(define (genenetwork-lint-gexp source-repo-checkout profile files-and-modules)
-  "Return a G-expression that runs GeneNetwork3 lint tests in PROFILE
-with SOURCE-REPO-CHECKOUT as the current directory. SOURCE-REPO-CHECKOUT
-is a checkout of the genenetwork3 source code. PROFILE is a profile
-with genenetwork3 dependencies."
-  (with-imported-modules '((guix build utils))
-    (with-profile profile
-      #~(begin
-          (use-modules (rnrs exceptions)
-                       (srfi srfi-26)
-                       (ice-9 rdelim)
-                       (guix build utils))
-
-          (define (shell-script? filename stat-obj)
-            (and (eq? (stat:type stat-obj) 'regular)
-                 (call-with-input-file filename
-                   (lambda (port)
-                     (let ((first-line (read-line port)))
-                       (and (not (eof-object? first-line))
-                            (> (string-length first-line) 2)
-                            (string=? (string-take first-line 2) "#!")
-                            (or (string-contains first-line "/bin/sh")
-                                (string-contains first-line "/bin/bash"))))))))
-
-          (chdir #$source-repo-checkout)
-          (guard (condition ((invoke-error? condition)
-                             (format (current-error-port)
-                                     "`~a~{ ~a~}' failed with exit status ~a~%"
-                                     (invoke-error-program condition)
-                                     (invoke-error-arguments condition)
-                                     (invoke-error-exit-status condition))
-                             (exit #f)))
-            (for-each (cut invoke "shellcheck" <>)
-                      (find-files "." shell-script?))
-            (invoke "pylint" #$@files-and-modules))
-          (mkdir-p #$output)))))
-- 
cgit v1.2.3