1use Test::Most;
2
3use_ok('Net::FreeDB');
4
5my $freedb = new_ok("Net::FreeDB");
6
7if ($ENV{HOSTNAME}) {
8    ok($freedb->hostname eq $ENV{HOSTNAME}, 'Error setting hostname');
9} else {
10    ok($freedb->hostname eq 'unknown', 'Error setting hostname');
11}
12
13ok($freedb->remote_host eq 'freedb.freedb.org', 'Error setting default host');
14
15ok($freedb->remote_port == 8880, 'Error setting default port');
16
17if ($ENV{USER}) {
18    ok($freedb->user eq $ENV{USER}, 'Error setting user');
19} else {
20    ok($freedb->user eq 'unknown', 'Error setting default user');
21}
22
23ok($freedb->timeout == 120, 'Error setting default timeout');
24
25ok(!$freedb->debug, 'Error: debug was set but shouldn\'t be');
26
27done_testing;
28