01/02: Support the system-tests page for the latest processed revision

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit be2d554aae9e93c89f952050daed223cf7d13cfb
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Mar 5 13:52:32 2021 +0000

    Support the system-tests page for the latest processed revision
---
 guix-data-service/web/repository/controller.scm | 20 ++++++++++++++++++++
 guix-data-service/web/revision/controller.scm   |  1 +
 2 files changed, 21 insertions(+)

diff --git a/guix-data-service/web/repository/controller.scm 
b/guix-data-service/web/repository/controller.scm
index dcc0992..c9f90d1 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -368,6 +368,26 @@
            (render-no-latest-revision mime-types
                                       repository-id
                                       branch-name))))
+    (('GET "repository" repository-id "branch" branch-name
+           "latest-processed-revision" "system-tests")
+     (letpar& ((commit-hash
+                (with-thread-postgresql-connection
+                 (lambda (conn)
+                   (latest-processed-commit-for-branch conn
+                                                       repository-id
+                                                       branch-name)))))
+       (if commit-hash
+           (let ((parsed-query-parameters
+                  (parse-query-parameters
+                   request
+                   `((system ,parse-system #:default "x86_64-linux")))))
+             (render-revision-system-tests mime-types
+                                           commit-hash
+                                           parsed-query-parameters
+                                           #:path-base path))
+           (render-no-latest-revision mime-types
+                                      repository-id
+                                      branch-name))))
     (('GET "repository" repository-id "branch" branch-name 
"latest-processed-revision" "package-reproducibility")
      (letpar& ((commit-hash
                 (with-thread-postgresql-connection
diff --git a/guix-data-service/web/revision/controller.scm 
b/guix-data-service/web/revision/controller.scm
index ec890bf..9ab702d 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -60,6 +60,7 @@
             render-revision-package-derivations
             render-revision-fixed-output-package-derivations
             render-revision-package-derivation-outputs
+            render-revision-system-tests
             render-unknown-revision
             render-view-revision))