# $Id$
# -*-perl-*-
use strict;
use warnings;
require 't/lib/db-common.pl';
use TheSchwartz;
use Test::More tests => 24;
run_tests(
8,
sub {
my $client = test_client( dbs => ['ts1'] );
my $handle;
$handle = $client->insert( "feedmajor",
{ scoops => 2, with => [ 'cheese', 'love' ] } );
isa_ok $handle, 'TheSchwartz::JobHandle', "inserted job";
my $job = $handle->job;
isa_ok $job, 'TheSchwartz::Job';
ok( $job->funcid, 'jobs have funcids' );
is $job->funcname, 'feedmajor', 'handle->job gives us the right job';
my $job2 = TheSchwartz::Job->new(
funcname => 'feedmajor',
run_after => time() + 60,
priority => 7,
arg => { scoops => 2, with => [ 'cheese', 'love' ] },
coalesce => 'major',
jobid => int rand(5000),
);
ok($job2);
my $h2 = $client->insert($job2);
isa_ok $h2, 'TheSchwartz::JobHandle';
my $job2_back = $h2->job;
ok( $job2->funcid, "internal: funcid present" );
is( $job2->funcname, "feedmajor", "funcname mapping worked" );
teardown_dbs('ts1');
}
);