From 23d70465223e967b5b7964c8f8068d0c3953f6c0 Mon Sep 17 00:00:00 2001
From: Graham Christensen <graham@grahamc.com>
Date: Sun, 9 Jan 2022 08:59:01 -0500
Subject: [PATCH] t/Controller/Build/constituents.t: assert the response is
 valid JSON, dump if it isn't

---
 t/Hydra/Controller/Build/constituents.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/t/Hydra/Controller/Build/constituents.t b/t/Hydra/Controller/Build/constituents.t
index 93b4a491..013ac9c0 100644
--- a/t/Hydra/Controller/Build/constituents.t
+++ b/t/Hydra/Controller/Build/constituents.t
@@ -36,7 +36,14 @@ my $constituents = request(GET $url,
   );
 
 ok($constituents->is_success, "Getting the constituent builds");
-my $data = decode_json($constituents->content);
+
+my $data;
+my $valid_json = lives { $data = decode_json($constituents->content); };
+ok($valid_json, "We get back valid JSON.");
+if (!$valid_json) {
+    use Data::Dumper;
+    print STDERR Dumper $constituents->content;
+}
 
 my ($buildA) = grep { $_->{nixname} eq "empty-dir-a" } @$data;
 my ($buildB) = grep { $_->{nixname} eq "empty-dir-b" } @$data;