#!perl
use Test::More;
use AnyEvent::Beanstalk;
do 't/start_server.pl';
our $port;
my $c = AnyEvent::Beanstalk->new(server => "127.0.0.1:$port");
plan tests => 2;
$c->watch('foo')->recv();
ok(grep { $_ eq 'foo' } $c->watching());
$c->ignore('default')->recv();
ok(!grep { $_ eq 'default' } $c->watching());
done_testing;