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_description; 10 ok($server_description = $freedb->ver()); 11 ok($server_description =~ /cddbd v[^\s]+ Copyright \(c\) \d{4}-\d{4} Steve Scherf et al\./); 12} 13 14done_testing; 15