Merge pull request #1060 from DeterminateSystems/runcommand-t-fixups

Runcommand.t: minor cleanup
This commit is contained in:
Graham Christensen 2021-11-19 15:14:52 -05:00 committed by GitHub
commit bb040aa029
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -40,15 +40,12 @@ ok(sendNotifications(), "Notifications execute successfully.");
my $dat = do {
my $filename = $ENV{'HYDRA_DATA'} . "/joboutput.json";
open(my $json_fh, "<", $filename)
or die("Can't open \$filename\": $!\n");
or die("Can't open \"$filename\": $!\n");
local $/;
my $json = JSON->new;
$json->decode(<$json_fh>)
};
use Data::Dumper;
print Dumper($dat);
subtest "Validate the top level fields match" => sub {
is($dat->{build}, $newbuild->id, "The build event matches our expected ID.");
is($dat->{buildStatus}, 0, "The build status matches.");