hydra/t/build-products.t

37 lines
918 B
Perl
Raw Permalink Normal View History

2011-03-16 13:18:12 +00:00
use strict;
2021-08-19 20:36:43 +00:00
use warnings;
2011-03-16 13:18:12 +00:00
use Setup;
use Test2::V0;
2011-03-16 13:18:12 +00:00
my $ctx = test_context();
2011-03-17 08:48:27 +00:00
# Test build products
my $builds = $ctx->makeAndEvaluateJobset(
expression => "build-products.nix",
build => 1
);
subtest "For the build job 'simple'" => sub {
my $build = $builds->{"simple"};
is($build->finished, 1, "Build should have finished");
is($build->buildstatus, 0, "Build should have buildstatus 0");
my $buildproduct = $build->buildproducts->next;
is($buildproduct->name, "text.txt", "We should have \"text.txt\"");
};
subtest "For the build job 'with_spaces'" => sub {
my $build = $builds->{"with_spaces"};
is($build->finished, 1, "Build should have finished");
is($build->buildstatus, 0, "Build should have buildstatus 0");
my $buildproduct = $build->buildproducts->next;
is($buildproduct->name, "some text.txt", "We should have: \"some text.txt\"");
};
done_testing;