From bdccad573c7ba6b78d9126c7a8af3cf40ea2b5a1 Mon Sep 17 00:00:00 2001
From: Graham Christensen <graham@grahamc.com>
Date: Fri, 14 Jan 2022 15:19:46 -0500
Subject: [PATCH] machines: test

---
 t/Hydra/Controller/Root/status.t | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/t/Hydra/Controller/Root/status.t b/t/Hydra/Controller/Root/status.t
index 6b68976a..1b53583e 100644
--- a/t/Hydra/Controller/Root/status.t
+++ b/t/Hydra/Controller/Root/status.t
@@ -23,6 +23,11 @@ my $jobset = createBaseJobset("basic", "basic.nix", $ctx{jobsdir});
 
 ok(evalSucceeds($jobset), "Evaluating jobs/basic.nix should exit with return code 0");
 
+subtest "/machines" => sub {
+    my $response = request(GET '/machines');
+    ok($response->is_success, "The page showing the machine status 200's.");
+};
+
 subtest "/queue-runner-status" => sub {
     my $global = request(GET '/queue-runner-status');
     ok($global->is_success, "The page showing the queue runner status 200's.");