138 lines
4.2 KiB
Perl
138 lines
4.2 KiB
Perl
use strict;
|
|
use warnings;
|
|
use Setup;
|
|
use Test2::V0;
|
|
use Hydra::Plugin::RunCommand;
|
|
|
|
subtest "isEnabled" => sub {
|
|
is(
|
|
Hydra::Plugin::RunCommand::isEnabled({}),
|
|
"",
|
|
"Disabled by default."
|
|
);
|
|
|
|
is(
|
|
Hydra::Plugin::RunCommand::isEnabled({ config => {}}),
|
|
"",
|
|
"Disabled by default."
|
|
);
|
|
|
|
is(
|
|
Hydra::Plugin::RunCommand::isEnabled({ config => { runcommand => {}}}),
|
|
1,
|
|
"Enabled if any runcommand blocks exist."
|
|
);
|
|
};
|
|
|
|
subtest "configSectionMatches" => sub {
|
|
subtest "Expected matches" => sub {
|
|
my @examples = (
|
|
# Exact match
|
|
["project:jobset:job", "project", "jobset", "job"],
|
|
|
|
# One wildcard
|
|
["project:jobset:*", "project", "jobset", "job"],
|
|
["project:*:job", "project", "jobset", "job"],
|
|
["*:jobset:job", "project", "jobset", "job"],
|
|
|
|
# Two wildcards
|
|
["project:*:*", "project", "jobset", "job"],
|
|
["*:*:job", "project", "jobset", "job"],
|
|
|
|
# Three wildcards
|
|
["*:*:*", "project", "jobset", "job"],
|
|
|
|
# Implicit wildcards
|
|
["", "project", "jobset", "job"],
|
|
["project", "project", "jobset", "job"],
|
|
["project:jobset", "project", "jobset", "job"],
|
|
);
|
|
|
|
for my $example (@examples) {
|
|
my ($matcher, $project, $jobset, $job) = @$example;
|
|
|
|
is(
|
|
Hydra::Plugin::RunCommand::configSectionMatches(
|
|
$matcher, $project, $jobset, $job
|
|
),
|
|
1,
|
|
"Expecting $matcher to match $project:$jobset:$job"
|
|
);
|
|
}
|
|
};
|
|
|
|
subtest "Fails to match" => sub {
|
|
my @examples = (
|
|
# Literal string non-matches
|
|
["project:jobset:job", "project", "jobset", "nonmatch"],
|
|
["project:jobset:job", "project", "nonmatch", "job"],
|
|
["project:jobset:job", "nonmatch", "jobset", "job"],
|
|
|
|
# Wildcard based non-matches
|
|
["*:*:job", "project", "jobset", "nonmatch"],
|
|
["*:jobset:*", "project", "nonmatch", "job"],
|
|
["project:*:*", "nonmatch", "jobset", "job"],
|
|
|
|
# These wildcards are NOT regular expressions
|
|
["*:*:j.*", "project", "jobset", "job"],
|
|
[".*:.*:.*", "project", "nonmatch", "job"],
|
|
);
|
|
|
|
for my $example (@examples) {
|
|
my ($matcher, $project, $jobset, $job) = @$example;
|
|
|
|
is(
|
|
Hydra::Plugin::RunCommand::configSectionMatches(
|
|
$matcher, $project, $jobset, $job
|
|
),
|
|
0,
|
|
"Expecting $matcher to not match $project:$jobset:$job"
|
|
);
|
|
}
|
|
|
|
like(
|
|
dies {
|
|
Hydra::Plugin::RunCommand::configSectionMatches(
|
|
"foo:bar:baz:tux", "foo", "bar", "baz"
|
|
),
|
|
},
|
|
qr/invalid section name/,
|
|
"A matcher must have no more than 3 sections"
|
|
);
|
|
};
|
|
};
|
|
|
|
subtest "eventMatches" => sub {
|
|
# This is probably a misfeature that isn't very useful but let's test
|
|
# it anyway. At best this lets you make a RunCommand event not work
|
|
# by specifying the "events" key. Note: By testing it I'm not promising
|
|
# it'll keep working. In fact, I wouldn't be surprised if we chose to
|
|
# delete this support since RunCommand never runs on any event other
|
|
# than buildFinished.
|
|
is(
|
|
Hydra::Plugin::RunCommand::eventMatches({}, "buildFinished"),
|
|
1,
|
|
"An unspecified events key matches"
|
|
);
|
|
|
|
is(
|
|
Hydra::Plugin::RunCommand::eventMatches({ events => ""}, "buildFinished"),
|
|
0,
|
|
"An empty events key does not match"
|
|
);
|
|
|
|
is(
|
|
Hydra::Plugin::RunCommand::eventMatches({ events => "foo bar buildFinished baz"}, "buildFinished"),
|
|
1,
|
|
"An events key with multiple events does match when buildFinished is present"
|
|
);
|
|
|
|
is(
|
|
Hydra::Plugin::RunCommand::eventMatches({ events => "foo bar baz"}, "buildFinished"),
|
|
0,
|
|
"An events key with multiple events does not match when buildFinished is missing"
|
|
);
|
|
};
|
|
|
|
done_testing;
|