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