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