use strict;
use warnings;

use Test::More;
use Test::Exception;

my ($mn, $tsn, $cn, $s) = qw/
    Gearman::ResponseParser::Taskset
    Gearman::Taskset
    Gearman::Client
    foo
    /;

use_ok($tsn);
use_ok($cn);
use_ok($mn);
isa_ok($mn, "Gearman::ResponseParser");

can_ok(
    $mn, qw/
        on_packet
        on_error
        /
);

my $ts = new_ok($tsn, [new_ok($cn)]);
my $m = new_ok($mn, [source => $s, taskset => $ts]);
throws_ok { $m->on_error($s) } qr/^ERROR: $s/, "caught die off in on_error";

throws_ok { $mn->new(source => $s, taskset => $s) }
qr/is not a Gearman::Taskset reference/, "caught die of on taskset check";

done_testing();