use strict;
use Test::More tests => 3;
BEGIN { use_ok "WebService::FreeDB"; }
# testing retrieving of cdlist
{
my $cddb = WebService::FreeDB->new();
my %discs = $cddb->getdiscs("metallica", ["artist","title"] );
ok( (keys %discs) > 0, "Fetched some discs");
}
#testing retriving of a cd
{
my $cddb = WebService::FreeDB->new();
my $url = 'http://www.freedb.org/freedb_search_fmt.php?cat=rock&id=b50ec40c';
my %discinfo = $cddb->getdiscinfo($url);
ok( $discinfo{totaltime} =~ m/^[56]\d:\d\d$/, "Disc has right length");
}