1#!/usr/bin/perl -w 2use Test::More tests => 18; 3 4BEGIN { use_ok('Net::Bonjour') }; 5 6use strict; 7use Net::DNS; 8 9my $entry; 10ok( $entry = Net::Bonjour::Entry->new(), 'constructor'); 11ok( $entry->fqdn('server._test._tcp.local'), 'fqdn set'); 12ok( $entry->fqdn eq 'server._test._tcp.local', 'fqdn get'); 13ok( $entry->name('server.local'), 'name set'); 14ok( $entry->name eq 'server.local', 'name get'); 15ok( $entry->port('1234'), 'port set'); 16ok( $entry->port == 1234, 'port get'); 17ok( $entry->hostname('server.local'), 'hostname set'); 18ok( $entry->hostname eq 'server.local', 'hostname get'); 19ok( $entry->address('127.0.0.1'), 'address set'); 20ok( $entry->address eq '127.0.0.1', 'address get'); 21ok( $entry->attribute('text1', 'value'), 'attribute set'); 22ok( $entry->attribute('text1') eq 'value', 'attribute get'); 23ok( $entry->all_attrs, 'attribute reload'); 24ok( $entry->dnsrr, 'dnsrr PTR'); 25ok( $entry->dnsrr('srv'), 'dnsrr SRV'); 26ok( $entry->dnsrr('txt'), 'dnsrr TXT'); 27