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 @categories = $freedb->lscat(); 10 eq_or_diff(sort @categories, qw/blues classical country data folk jazz misc newage reggae rock soundtrack/); 11} 12 13done_testing; 14