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