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 @sites = ();
10    ok(@sites = $freedb->sites());
11    ok(scalar(@sites) == 1);
12
13    eq_or_diff($sites[0], {
14        hostname    => 'freedb.freedb.org',
15        port        => 8880,
16        latitude    => 'N000.00',
17        longitude   => 'W000.00',
18        description => 'Random freedb server',
19    });
20}
21
22done_testing;
23