view release on metacpan or  search on metacpan

t/unit/Test/DrivePlayer/DB.pm  view on Meta::CPAN

}

sub search_tracks : Tests(5) {
    my ($self) = @_;
    $self->_populate_library;

    my @r1 = $self->db->search_tracks('queen');
    is scalar @r1, 2, 'search by artist (lowercase)';

    my @r2 = $self->db->search_tracks('stairway');
    is scalar @r2, 1, 'search by title fragment';
    is $r2[0]{title}, 'Stairway to Heaven', 'correct track found by title';

    my @r3 = $self->db->search_tracks('graffiti');
    is scalar @r3, 1, 'search by album fragment';

    my @r4 = $self->db->search_tracks('zzznomatch');
    is scalar @r4, 0, 'no results for non-matching query';
}

sub all_artists : Tests(3) {
    my ($self) = @_;
    $self->_populate_library;

    my @artists = $self->db->all_artists;