Yet Another CPAN Grep

Minion-Backend-MongoDB ( E/EB/EBRUNI/Minion-Backend-MongoDB-1.14.tar.gz, EBRUNI, 2022; MetaCPAN )

Minion-Backend-MongoDB/t/10-mongo.t ( view source; MetaCPAN )

b {
    my $worker  = $minion->worker->register;
    my $worker2 = $minion->worker->register;
    isnt $worker2->id, $worker->id, 'new id';
    my $id = $minion->enqueue('test');
    ok my $job = $wor

id';
    is $job->info->{priority}, 1, 'right priority';
    ok $job->finish, 'job finished';
    isnt $worker->dequeue(0)->id, $id, 'different id';
    $id = $minion->enqueue( add => [ 2, 5 ] );

shed, 1,                     'finished event has been emitted once';
    isnt $pid_start, $$,        'new process id';
    isnt $pid_stop,  $$,        'new process id';
    is $pid_start,   $pid_stop,

Minion-Backend-MongoDB ( E/EB/EBRUNI/Minion-Backend-MongoDB-1.14.tar.gz, AVKHOZOV, 2022; MetaCPAN )

Minion-Backend-MongoDB/t/mongodb.t ( view source; MetaCPAN )

epair missing worker
$minion->add_task(test => sub { });
my $worker2 = $minion->worker->register;
isnt $worker2->id, $worker->id, 'new id';
my $id  = $minion->enqueue('test');
my $job = $worker2->dequ

$id, 'right id';
is $job->info->{priority}, 1, 'right priority';
ok $job->finish, 'job finished';
isnt $worker->dequeue(0)->id, $id, 'different id';
$worker->unregister;

# Delayed jobs
$id = $minion-