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 ok(!$freedb->write('newage', '940a040c')); 10 ok($freedb->error eq 'Permission denied.', "Error: Unexpected error '@{[ $freedb->error ]}'"); 11} 12 13done_testing; 14