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 $server_stats; 10 ok($server_stats = $freedb->stat()); 11 12 ok($server_stats->{"current proto"} == 1); 13 ok($server_stats->{"max proto"} == 6); 14 ok($server_stats->{interface} eq 'cddbp'); 15 ok($server_stats->{gets} eq 'no'); 16 ok($server_stats->{puts} eq 'no'); 17 ok($server_stats->{updates} eq 'no'); 18 ok($server_stats->{posting} eq 'no'); 19 ok($server_stats->{validation} eq 'accepted'); 20 ok($server_stats->{quotes} eq 'no'); 21 ok($server_stats->{"strip ext"} eq 'no'); 22 ok($server_stats->{secure} eq 'yes'); 23} 24 25done_testing; 26