1use Test::More tests => 9;
2
3BEGIN { use_ok('Net::Bonjour') };
4
5use strict;
6
7my $res;
8ok( $res = Net::Bonjour->new,			'constructor');
9ok( $res->service('http'),				'service set');
10ok( $res->domain('zeroconf.org'),			'domain set');
11ok( $res->domain eq 'zeroconf.org',			'domain get');
12ok( $res->fqdn eq '_http._tcp.zeroconf.org',		'fqdn get');
13ok( $res->discover,					'discover');
14my @entries;
15ok( @entries = sort( {$a->name cmp $b->name} $res->entries),	'entries');
16ok( $#entries > -1,					'entry count');
17