evaluate-basic.t: move to makeAndEvaluateJobset

[?]

Dec 15, 2021, 1:25 AM

MZMSH3E6FH7NYIH3LU6TA6MQDQC7D2NM3CDTT43EC5TT2LV5L6GAC

Dependencies

[2] 2AM7IAS5 Tighten up 'should exit with return code'
[3] OSIBECOE Attempt to fix errors during test teardown
[4] UIA3ULNU Give each test its own Nix directories
[5] YIZWKGFI tests: add jobsdir and testdir to ctx hash

Change contents

replacement in t/evaluate-basic.t at line 8

[3.210]→[3.210:229](∅→∅)

my $db = $ctx->db;

[3.210]

[4.223]

my $builds = $ctx->makeAndEvaluateJobset(
expression => "basic.nix",
build => 1
);
replacement in t/evaluate-basic.t at line 14

[4.224]→[4.224:329](∅→∅)

my $project = $db->resultset('Projects')->create({name => "tests", displayname => "", owner => "root"});

[4.224]

[4.329]

subtest "Build: succeed_with_failed" => sub {
my $build = $builds->{"succeed_with_failed"};
replacement in t/evaluate-basic.t at line 17

[4.330]→[4.330:368](∅→∅),[4.368]→[3.230:298](∅→∅)

# Most basic test case, no parameters
my $jobset = createBaseJobset("basic", "basic.nix", $ctx->jobsdir);

[4.330]

[4.421]

is($build->finished, 1, "Build should be finished.");
is($build->buildstatus, 6, "succeeeded-but-failed should have buildstatus 6.");
};

subtest "Build: empty_dir" => sub {
my $build = $builds->{"empty_dir"};

is($build->finished, 1, "Build should be finished.");
is($build->buildstatus, 0, "Should have succeeded.");
};
replacement in t/evaluate-basic.t at line 28

[4.422]→[4.422:619](∅→∅)

ok(evalSucceeds($jobset), "Evaluating jobs/basic.nix should exit with return code 0");
is(nrQueuedBuildsForJobset($jobset), 3, "Evaluating jobs/basic.nix should result in 3 builds");

[4.422]

[4.619]

subtest "Build: fails" => sub {
my $build = $builds->{"fails"};
replacement in t/evaluate-basic.t at line 31

[4.620]→[4.620:669](∅→∅),[4.669]→[2.257:361](∅→∅),[2.361]→[4.766:1141](∅→∅),[4.766]→[4.766:1141](∅→∅)

for my $build (queuedBuildsForJobset($jobset)) {
ok(runBuild($build), "Build '".$build->job."' from jobs/basic.nix should exit with return code 0");
my $newbuild = $db->resultset('Builds')->find($build->id);
is($newbuild->finished, 1, "Build '".$build->job."' from jobs/basic.nix should be finished.");
my $expected = $build->job eq "fails" ? 1 : $build->job =~ /with_failed/ ? 6 : 0;
is($newbuild->buildstatus, $expected, "Build '".$build->job."' from jobs/basic.nix should have buildstatus $expected.");
}

[4.620]

[4.1141]

is($build->finished, 1, "Build should be finished.");
is($build->buildstatus, 1, "Should have failed.");
};