diff options
author | Arun Isaac | 2023-12-19 21:29:47 +0000 |
---|---|---|
committer | Arun Isaac | 2023-12-19 21:29:47 +0000 |
commit | 69d9de78820e1a8e767c5b10f5a964dbb94fffbd (patch) | |
tree | 3311677135101cb283812ea706a327930e78667b /genenetwork | |
parent | fb813b043bcdde9df80128c29cf45cc3987c9d09 (diff) | |
download | gn-machines-69d9de78820e1a8e767c5b10f5a964dbb94fffbd.tar.gz |
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.
Diffstat (limited to 'genenetwork')
-rw-r--r-- | genenetwork/development-helper.scm | 37 |
1 files changed, 0 insertions, 37 deletions
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))))) |