aboutsummaryrefslogtreecommitdiff
path: root/genenetwork-development.scm
diff options
context:
space:
mode:
authorArun Isaac2023-12-20 09:54:36 +0000
committerArun Isaac2023-12-20 10:22:52 +0000
commite340a5aae98cc0cb5b6ca8a42e0a61dc55fb184f (patch)
treefa47a9eaf03149e7927bc9878848b5fb86bc3998 /genenetwork-development.scm
parentaaf6750858e061e5f5740fb1edbc49b68b3c4717 (diff)
downloadgn-machines-e340a5aae98cc0cb5b6ca8a42e0a61dc55fb184f.tar.gz
Use guix-channel-job-gexp for gn-transform-databases CI job.
* genenetwork-development.scm: Import (guix ci). (transform-genenetwork-database-tests): Delete variable. (%default-guix-channel-with-substitutes): New variable. (transform-genenetwork-database-project): Use guix-channel-job-gexp for transform-genenetwork-database-tests CI job. * genenetwork/development-helper.scm: Delete file.
Diffstat (limited to 'genenetwork-development.scm')
-rw-r--r--genenetwork-development.scm29
1 files changed, 11 insertions, 18 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 0890c5c..19023bd 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -54,6 +54,7 @@
(gnu system file-systems)
(guix build-system gnu)
(guix channels)
+ (guix ci)
(guix git-download)
(guix least-authority)
((guix licenses) #:prefix license:)
@@ -79,6 +80,10 @@
(define %guix-daemon-uri
"/var/host-guix/daemon-socket/socket")
+(define %default-guix-channel-with-substitutes
+ (channel-with-substitutes-available %default-guix-channel
+ "https://ci.guix.gnu.org"))
+
;; We cannot refer to sudo in the store since that sudo does not have
;; the setuid bit set. See "(guix) Setuid Programs".
(define sudo
@@ -758,20 +763,6 @@ described by CONFIG, a <genenetwork-configuration> object."
(description "run64 is a SRFI-64 test runner for Scheme.")
(license license:gpl3+)))
-(define transform-genenetwork-database-tests
- (with-imported-modules (source-module-closure '((genenetwork development-helper))
- #:select? import-module?)
- #~(lambda (source)
- ((@@ (genenetwork development-helper)
- command-in-source-gexp)
- source
- #$(profile
- (content (packages->manifest
- (list gnu-make guile-3.0 guile-dbi guile-dbd-mysql
- ccwl guile-libyaml guile-sparql run64)))
- (allow-collisions? #t))
- (list "make" "check")))))
-
(define (transform-genenetwork-database project)
(with-imported-modules '((guix build utils))
(with-packages (list ccwl git-minimal gnu-make guile-3.0 guile-dbd-mysql
@@ -825,10 +816,12 @@ described by CONFIG, a <genenetwork-configuration> object."
(repository "https://git.genenetwork.org/gn-transform-databases/")
(ci-jobs (list (forge-laminar-job
(name "transform-genenetwork-database-tests")
- (run (derivation-job-gexp
- this-forge-project
- this-forge-laminar-job
- transform-genenetwork-database-tests
+ (run (guix-channel-job-gexp
+ (list (channel
+ (name 'gn-bioinformatics)
+ (url (forge-project-repository this-forge-project))
+ (branch "master"))
+ %default-guix-channel-with-substitutes)
#:guix-daemon-uri %guix-daemon-uri)))
(forge-laminar-job
(name "transform-genenetwork-database")