root/trunk/t/funcid.t @ 164

# $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');
});