delroth/hydra
0
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source 
Runcommand.t: minor cleanup
This commit is contained in:
Graham Christensen 2021-11-19 15:14:52 -05:00 committed by GitHub
parent 27f48c6f7f 5917de4948
commit bb040aa029
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
t/plugins/runcommand.t
View file

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