Yet Another CPAN Grep

Minion-Backend-mysql ( P/PR/PREACTION/Minion-Backend-mysql-1.004.tar.gz, PREACTION, 2023; MetaCPAN )

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

 => sub {
  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 = $worker2

right 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]);
  ok $job

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

Minion-Backend-mysql ( P/PR/PREACTION/Minion-Backend-mysql-1.004.tar.gz, BPMEDLEY, 2023; MetaCPAN )

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

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

$id, 'right 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]);
$job = $work

s not been emitted';
is $finished, 1,                     'finished event has been emitted once';
isnt $pid, $$, 'new process id';
$job = $worker->dequeue(0);
my $err;
$job->on(failed => sub { $err =