ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

ResultSet::TaskRetries: teach about saving tasks

Browse Source
This commit is contained in:
Graham Christensen
2021-08-26 17:32:48 -04:00
parent 147fa4d029
commit d0b0fc21b3
2 changed files with 47 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
t/Schema/ResultSet/TaskRetries.t
View File

@ -4,6 +4,8 @@ use Setup;
my %ctx = test_init();
use Hydra::Event;
use Hydra::Task;
require Hydra::Schema;
require Hydra::Model::DB;
@ -42,4 +44,20 @@ subtest "get_seconds_to_next_retry" => sub {
}
};
subtest "save_task" => sub {
my $event = Hydra::Event->new_event("build_started", "1");
my $task = Hydra::Task->new(
$event,
"FooPluginName",
);
my $retry = $taskretries->save_task($task);
is($retry->channel, "build_started", "Channel name should match");
is($retry->pluginname, "FooPluginName", "Plugin name should match");
is($retry->payload, "1", "Payload should match");
is($retry->attempts, 1, "We've had one attempt");
is($retry->retry_at, within(time() + 1, 2), "The retry at should be approximately one second away");
};
done_testing;