BuildDiff: make actual hash ref

This commit is contained in:
Cole Helbling 2022-01-10 10:02:39 -08:00
parent 0eb952d72d
commit 0c51f3ca7d
2 changed files with 4 additions and 4 deletions

View file

@ -18,7 +18,7 @@ use Data::Dumper;
sub buildDiff { sub buildDiff {
my ($builds, $builds2) = @_; my ($builds, $builds2) = @_;
my $ret = [ my $ret = {
stillSucceed => [], stillSucceed => [],
stillFail => [], stillFail => [],
nowSucceed => [], nowSucceed => [],
@ -28,7 +28,7 @@ sub buildDiff {
unfinished => [], unfinished => [],
aborted => [], aborted => [],
failed => [], failed => [],
]; };
my $n = 0; my $n = 0;
foreach my $build (@{$builds}) { foreach my $build (@{$builds}) {

View file

@ -9,7 +9,7 @@ my $ctx = test_context();
subtest "response" => sub { subtest "response" => sub {
my $ret = buildDiff([], []); my $ret = buildDiff([], []);
is($ret, [ is($ret, {
stillSucceed => [], stillSucceed => [],
stillFail => [], stillFail => [],
nowSucceed => [], nowSucceed => [],
@ -19,7 +19,7 @@ subtest "response" => sub {
unfinished => [], unfinished => [],
aborted => [], aborted => [],
failed => [], failed => [],
]); });
}; };
is(1, 1); is(1, 1);