From e5c8a3542341edda3ad32e10680a6d3b4cf55d05 Mon Sep 17 00:00:00 2001
From: Graham Christensen <graham@grahamc.com>
Date: Fri, 14 Jan 2022 13:33:44 -0500
Subject: [PATCH] API: test fetching the queue and latestbuilds

---
 t/Hydra/Controller/API/checks.t | 80 +++++++++++++++++++++++++++++++++
 t/jobs/one-job.nix              |  8 ++++
 2 files changed, 88 insertions(+)
 create mode 100644 t/Hydra/Controller/API/checks.t
 create mode 100644 t/jobs/one-job.nix

diff --git a/t/Hydra/Controller/API/checks.t b/t/Hydra/Controller/API/checks.t
new file mode 100644
index 00000000..d47f0947
--- /dev/null
+++ b/t/Hydra/Controller/API/checks.t
@@ -0,0 +1,80 @@
+use strict;
+use warnings;
+use Setup;
+use Test2::V0;
+use Catalyst::Test ();
+use HTTP::Request::Common;
+use JSON::MaybeXS qw(decode_json);
+
+sub is_json {
+    my ($response, $message) = @_;
+
+    my $data;
+    my $valid_json = lives { $data = decode_json($response->content); };
+    ok($valid_json, $message // "We get back valid JSON.");
+    if (!$valid_json) {
+        use Data::Dumper;
+        print STDERR Dumper $response->content;
+    }
+
+    return $data;
+}
+
+my $ctx = test_context();
+
+Catalyst::Test->import('Hydra');
+
+my $finishedBuilds = $ctx->makeAndEvaluateJobset(
+    expression => "one-job.nix",
+    build => 1
+);
+
+my $queuedBuilds = $ctx->makeAndEvaluateJobset(
+    expression => "one-job.nix",
+    build => 0
+);
+
+subtest "/api/queue" => sub {
+    my $response = request(GET '/api/queue?nr=1');
+    ok($response->is_success, "The API enpdoint showing the queue returns 200.");
+
+    my $data = is_json($response);
+    my $build = $queuedBuilds->{"one_job"};
+    like($data, [{
+        priority => $build->priority,
+        id => $build->id,
+    }]);
+};
+
+subtest "/api/latestbuilds" => sub {
+    subtest "with no specific parameters" => sub {
+        my $response = request(GET '/api/latestbuilds?nr=1');
+        ok($response->is_success, "The API enpdoint showing the latest builds returns 200.");
+
+        my $data = is_json($response);
+        my $build = $finishedBuilds->{"one_job"};
+        like($data, [{
+            buildstatus => $build->buildstatus,
+            id => $build->id,
+        }]);
+    };
+
+    subtest "with very specific parameters" => sub {
+        my $build = $finishedBuilds->{"one_job"};
+        my $projectName = $build->project->name;
+        my $jobsetName = $build->jobset->name;
+        my $jobName = $build->job;
+        my $system = $build->system;
+        my $response = request(GET "/api/latestbuilds?nr=1&project=$projectName&jobset=$jobsetName&job=$jobName&system=$system");
+        ok($response->is_success, "The API enpdoint showing the latest builds returns 200.");
+
+        my $data = is_json($response);
+
+        like($data, [{
+            buildstatus => $build->buildstatus,
+            id => $build->id,
+        }]);
+    };
+};
+
+done_testing;
diff --git a/t/jobs/one-job.nix b/t/jobs/one-job.nix
new file mode 100644
index 00000000..92f4f98b
--- /dev/null
+++ b/t/jobs/one-job.nix
@@ -0,0 +1,8 @@
+with import ./config.nix;
+{
+  one_job =
+    mkDerivation {
+      name = "empty-dir";
+      builder = ./empty-dir-builder.sh;
+    };
+}