#!perl

use strict;
use warnings;
use Test::More;
use Test::Exception;

use AnyEvent::Gearman;

## Test the usage of constants as arguments
lives_ok sub {
    my $worker = gearman_worker '127.0.0.1';
    $worker->register_function(test => sub {});
};

lives_ok sub {
    my $client = gearman_client '127.0.0.1';
    $client->add_task(test => 'live!');
};

done_testing();