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->validate("salt=12345")); 10 ok($freedb->error eq 'Validation not required.', "Error: actual error not the expected error"); 11} 12 13done_testing; 14