1 2use Test::Most; 3 4require_ok('Net::FreeDB'); 5 6my $freedb = new Net::FreeDB(); 7ok($freedb, 'Unable to create instance'); 8 9if ($ENV{HAVE_INTERNET}) { 10 ok(!$freedb->whom()); 11 ok($freedb->error eq 'No user information available.', "Error: actual error not the expected error"); 12} 13 14done_testing; 15