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 @response = ();
10    ok(@response = $freedb->query('940a070c', 12, 150, 8285, 32097, 51042, 71992, 86235, 100345, 105935, 120932, 139472, 158810, 171795, 2567));
11
12    ok(scalar(@response) eq 1);
13    eq_or_diff($response[0], {
14        Category => 'newage',
15        DiscID   => '940a070c',
16        Artist   => 'Deep Forest',
17        Album    => 'Boheme',
18    });
19
20    my @multiple_responses = ();
21    ok(@multiple_responses = $freedb->query('860aec0b', 11, 150, 19539, 34753, 52608, 69426, 86636, 112972, 130586, 151446, 172365, 191628, 2798));
22
23    ok(scalar(@multiple_responses) >= 10);
24    map {
25        ok($_->{Artist} eq 'Foo Fighters')
26    } @multiple_responses;
27}
28
29done_testing;
30