t/30-collection.t

   1 #!perl
   2 #
   3 # This file is part of Audio::MPD
   4 # Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use warnings;
  13
  14 use Audio::MPD;
  15 use Test::More;
  16
  17 # are we able to test module?
  18 eval 'use Audio::MPD::Test';
  19 plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
  20
  21 plan tests => 76;
  22 my $mpd = Audio::MPD->new;
  23 my @list;
  24
  25
  26 #
  27 # testing collection accessor.
  28 my $coll = $mpd->collection;
  29 isa_ok( $coll, 'Audio::MPD::Collection',
  30         'collection return an Audio::MPD::Collection object' );
  31
  32
  33 #
  34 # testing all_items.
  35 @list = $coll->all_items;
  36 is( scalar @list, 6, 'all_items return all 6 items' );
  37 isa_ok( $_, 'Audio::MPD::Common::Item', 'all_items return AMCI objects' )
  38     for @list;
  39 @list = $coll->all_items( 'dir1' );
  40 is( scalar @list, 3, 'all_items can be restricted to a subdir' );
  41 is( $list[0]->directory, 'dir1', 'all_items return a subdir first' );
  42 is( $list[1]->artist, 'dir1-artist', 'all_items can be restricted to a subdir' );
  43
  44
  45 #
  46 # testing all_items_simple.
  47 @list = $coll->all_items_simple;
  48 is( scalar @list, 6, 'all_items_simple return all 6 items' );
  49 isa_ok( $_, 'Audio::MPD::Common::Item', 'all_items_simple return AMCI objects' )
  50     for @list;
  51 @list = $coll->all_items_simple( 'dir1' );
  52 is( scalar @list, 3, 'all_items_simple can be restricted to a subdir' );
  53 is( $list[0]->directory, 'dir1', 'all_items_simple return a subdir first' );
  54 is( $list[1]->artist, undef, 'all_items_simple does not return full tags' );
  55
  56
  57 #
  58 # testing items_in_dir.
  59 @list = $coll->items_in_dir;
  60 is( scalar @list, 4, 'items_in_dir defaults to root' );
  61 isa_ok( $_, 'Audio::MPD::Common::Item', 'items_in_dir return AMCI objects' ) for @list;
  62 @list = $coll->items_in_dir( 'dir1' );
  63 is( scalar @list, 2, 'items_in_dir can take a param' );
  64
  65
  66 #
  67 # testing all_songs.
  68 @list = $coll->all_songs;
  69 is( scalar @list, 4, 'all_songs return all 4 songs' );
  70 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'all_items return AMCIS objects' ) for @list;
  71 @list = $coll->all_songs( 'dir1' );
  72 is( scalar @list, 2, 'all_songs can be restricted to a subdir' );
  73 is( $list[0]->artist, 'dir1-artist', 'all_songs can be restricted to a subdir' );
  74
  75
  76 #
  77 # testing all_albums.
  78 @list = $coll->all_albums;
  79 is( scalar @list, 1, 'all_albums return the albums' );
  80 is( $list[0], 'our album', 'all_albums return strings' );
  81
  82
  83 #
  84 # testing all_artists.
  85 @list = $coll->all_artists;
  86 is( scalar @list, 1, 'all_artists return the artists' );
  87 is( $list[0], 'dir1-artist', 'all_artists return strings' );
  88
  89
  90 #
  91 # testing all_titles.
  92 @list = $coll->all_titles;
  93 is( scalar @list, 3, 'all_titles return the titles' );
  94 like( $list[0], qr/-title$/, 'all_titles return strings' );
  95
  96
  97 #
  98 # testing all_pathes.
  99 @list = $coll->all_pathes;
 100 is( scalar @list, 4, 'all_pathes return the pathes' );
 101 like( $list[0], qr/\.ogg$/, 'all_pathes return strings' );
 102
 103
 104 #
 105 # testing all_playlists
 106 @list = $coll->all_playlists;
 107 is( scalar @list, 1, 'all_playlists return the playlists' );
 108 is( $list[0], 'test', 'all_playlists return strings' );
 109
 110
 111 #
 112 # testing song.
 113 my $path = 'dir1/title-artist-album.ogg';
 114 my $song = $coll->song($path);
 115 isa_ok( $song, 'Audio::MPD::Common::Item::Song', 'song return an AMCI::Song object' );
 116 is( $song->file, $path, 'song return the correct song' );
 117 is( $song->title, 'foo-title', 'song return a full AMCI::Song' );
 118
 119
 120 #
 121 # testing songs_with_filename_partial.
 122 @list = $coll->songs_with_filename_partial('album');
 123 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_with_filename_partial return AMCI::Song objects' )
 124     for @list;
 125 like( $list[0]->file, qr/album/, 'songs_with_filename_partial return the correct song' );
 126
 127
 128 #
 129 # testing albums_by_artist.
 130 @list = $coll->albums_by_artist( 'dir1-artist' );
 131 is( scalar @list, 1, 'albums_by_artist return the album' );
 132 is( $list[0], 'our album', 'albums_by_artist return plain strings' );
 133
 134
 135 #
 136 # testing songs_by_artist.
 137 @list = $coll->songs_by_artist( 'dir1-artist' );
 138 is( scalar @list, 2, 'songs_by_artist return all the songs found' );
 139 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_by_artist return AMCI::Songs' ) for @list;
 140 is( $list[0]->artist, 'dir1-artist', 'songs_by_artist return correct objects' );
 141
 142
 143 #
 144 # testing songs_by_artist_partial.
 145 @list = $coll->songs_by_artist_partial( 'artist' );
 146 is( scalar @list, 2, 'songs_by_artist_partial return all the songs found' );
 147 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_by_artist_partial return AMCI::Songs' ) for @list;
 148 like( $list[0]->artist, qr/artist/, 'songs_by_artist_partial return correct objects' );
 149
 150
 151 #
 152 # testing songs_from_album.
 153 @list = $coll->songs_from_album( 'our album' );
 154 is( scalar @list, 2, 'songs_from_album return all the songs found' );
 155 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_from_album return AMCI::Songs' ) for @list;
 156 is( $list[0]->album, 'our album', 'songs_from_album_partial return correct objects' );
 157
 158
 159 #
 160 # testing songs_from_album_partial.
 161 @list = $coll->songs_from_album_partial( 'album' );
 162 is( scalar @list, 2, 'songs_from_album_partial return all the songs found' );
 163 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_from_album_partial return AMCI::Songs' ) for @list;
 164 like( $list[0]->album, qr/album/, 'songs_from_album_partial return correct objects' );
 165
 166
 167 #
 168 # testing songs_with_title.
 169 @list = $coll->songs_with_title( 'ok-title' );
 170 is( scalar @list, 1, 'songs_with_title return all the songs found' );
 171 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_with_title return AMCI::Songs' ) for @list;
 172 is( $list[0]->title, 'ok-title', 'songs_with_title return correct objects' );
 173
 174
 175 #
 176 # testing songs_with_title_partial.
 177 @list = $coll->songs_with_title_partial( 'title' );
 178 is( scalar @list, 3, 'songs_with_title_partial return all the songs found' );
 179 isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_with_title_partial return AMCI::Songs' ) for @list;
 180 like( $list[0]->title, qr/title/, 'songs_with_title_partial return correct objects' );
 181
 182
 183 exit;