use Test::More tests => 9;

BEGIN { use_ok('Net::Bonjour') };

use strict;

my $res;
ok( $res = Net::Bonjour->new,			'constructor');
ok( $res->service('http'),				'service set');
ok( $res->domain('zeroconf.org'),			'domain set');
ok( $res->domain eq 'zeroconf.org',			'domain get');
ok( $res->fqdn eq '_http._tcp.zeroconf.org',		'fqdn get');
ok( $res->discover,					'discover');
my @entries;
ok( @entries = sort( {$a->name cmp $b->name} $res->entries),	'entries');
ok( $#entries > -1,					'entry count');