From 93ff9ed6fd9f2ca15cf6a8930eae26c9f5c65450 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 24 Sep 2023 14:49:53 -0500
Subject: Simple gn-guile system container builds

---
 genenetwork-development.scm | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

(limited to 'genenetwork-development.scm')

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index e18b317..7f727ca 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -698,10 +698,41 @@ 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")))))
+
+(define qc-project
+  (forge-project
+   (name "qc")
+   (repository "https://git.genenetwork.org/jgart/qc")
+   (ci-jobs (list (forge-laminar-job
+                   (name "qc")
+                   (run (derivation-job-gexp
+                         this-forge-project
+                         this-forge-laminar-job
+                         qc-tests
+                         #:guix-daemon-uri %guix-daemon-uri)))))
+   (ci-jobs-trigger 'webhook)))
+
 
 ;;;
 ;;; transform-genenetwork-database
-;;; 
+;;;
 
 ;; Path to genenetwork database dump export directory that has lots of
 ;; free space
-- 
cgit v1.2.3