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