The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Qudo::Test;
use Test::More;
use Test::Output;

run_tests(1, sub {
    my $driver = shift;
    my $master = test_master(
        driver_class => $driver,
    );

    my $manager = $master->manager;
    $manager->enqueue("Worker::Test",  { arg => 'arg',  uniqkey => 'uniqkey'});
    $manager->enqueue("Worker::Test2", { arg => 'oops', uniqkey => 'uniqkey'});
    is $manager->work_once, undef;

    teardown_dbs;
});

package Worker::Test;
use base 'Qudo::Worker';

sub work {
    my ($class, $job) = @_;
    print STDOUT $job->arg;
    $job->completed;
}

package Worker::Test2;
use base 'Qudo::Worker';

sub work {
    my ($class, $job) = @_;
    print STDOUT $job->arg;
    $job->completed;
}