hydra/t/scripts/hydra-update-gc-roots/update-gc-roots.t

24 lines
543 B
Perl
Raw Normal View History

use feature 'unicode_strings';
use strict;
use warnings;
use Setup;
use Test2::V0;
use Hydra::Helper::Exec;
my $ctx = test_context();
my $builds = $ctx->makeAndEvaluateJobset(
expression => "one-job.nix",
build => 1
);
subtest "Updating GC roots" => sub {
my ($res, $stdout, $stderr) = captureStdoutStderr(5, ("hydra-update-gc-roots"));
is($res, 0, "hydra-update-gc-roots should exit zero");
if ($res != 0) {
print "gc roots stdout: $stdout\n";
2022-03-20 03:34:13 +00:00
print "gc roots stderr: $stderr\n";
}
};
done_testing;