1use Test::Most; 2 3require_ok('Net::FreeDB'); 4 5my $freedb = new Net::FreeDB(); 6ok($freedb, 'Unable to create instance'); 7 8if ($ENV{HAVE_INTERNET}) { 9 my @sites = (); 10 ok(@sites = $freedb->sites()); 11 ok(scalar(@sites) == 1); 12 13 eq_or_diff($sites[0], { 14 hostname => 'freedb.freedb.org', 15 port => 8880, 16 latitude => 'N000.00', 17 longitude => 'W000.00', 18 description => 'Random freedb server', 19 }); 20} 21 22done_testing; 23