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