r10789 - in /trunk/libaudio-mpd-perl: META.yml debian/changelog lib/Audio/MPD.pm lib/Audio/MPD/Collection.pm t/20-connection.t t/30-collection.t

[joeyh at users.alioth.debian.org]

Author: joeyh
Date: Mon Dec  3 21:56:05 2007
New Revision: 10789

URL: http://svn.debian.org/wsvn/?sc=1&rev=10789
Log:
* (NOT RELEASED YET) New upstream release

Modified:
    trunk/libaudio-mpd-perl/META.yml
    trunk/libaudio-mpd-perl/debian/changelog
    trunk/libaudio-mpd-perl/lib/Audio/MPD.pm
    trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm
    trunk/libaudio-mpd-perl/t/20-connection.t
    trunk/libaudio-mpd-perl/t/30-collection.t

Modified: trunk/libaudio-mpd-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libaudio-mpd-perl/META.yml?rev=10789&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/META.yml (original)
+++ trunk/libaudio-mpd-perl/META.yml Mon Dec  3 21:56:05 2007
@@ -1,6 +1,6 @@
 ---
 name: Audio-MPD
-version: 0.19.0
+version: 0.19.1
 author: []
 abstract: class to talk to MPD (Music Player Daemon) servers
 license: perl
@@ -29,7 +29,7 @@
 provides:
   Audio::MPD:
     file: lib/Audio/MPD.pm
-    version: 0.19.0
+    version: 0.19.1
   Audio::MPD::Collection:
     file: lib/Audio/MPD/Collection.pm
   Audio::MPD::Playlist:

Modified: trunk/libaudio-mpd-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libaudio-mpd-perl/debian/changelog?rev=10789&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/changelog (original)
+++ trunk/libaudio-mpd-perl/debian/changelog Mon Dec  3 21:56:05 2007
@@ -1,3 +1,9 @@
+libaudio-mpd-perl (0.19.1-1) UNRELEASED; urgency=low
+
+  * (NOT RELEASED YET) New upstream release
+
+ -- Joey Hess <joeyh at debian.org>  Mon, 03 Dec 2007 16:54:47 -0500
+
 libaudio-mpd-perl (0.19.0-3) unstable; urgency=low
 
   * Modify all_playlists to returns strings, not objects, for consistency

Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD.pm
URL: http://svn.debian.org/wsvn/trunk/libaudio-mpd-perl/lib/Audio/MPD.pm?rev=10789&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD.pm Mon Dec  3 21:56:05 2007
@@ -28,7 +28,7 @@
         collection playlist version ] );
 
 
-our $VERSION = '0.19.0';
+our $VERSION = '0.19.1';
 
 Readonly our $REUSE => 0;
 Readonly our $ONCE  => 1;

Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm
URL: http://svn.debian.org/wsvn/trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm?rev=10789&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm Mon Dec  3 21:56:05 2007
@@ -170,21 +170,17 @@
 #
 # my @items = $collection->all_playlists;
 #
-# Return the list playlists (strings) currently known by mpd.
+# Return the list of playlists (strings) currently known by mpd.
 #
 sub all_playlists {
     my ($self) = @_;
 
-    my @ret;
-    my ($key, $value);
-    foreach my $line ($self->_mpd->_send_command( "lsinfo\n" )) {
-        ($key, $value)=split(/:\s/, $line, 2);
-	if ($key eq 'playlist') {
-	    push @ret, $value;
-	}
-    }
-    return @ret;
-}
+    return
+        map { /^playlist: (.*)$/ ? ($1) : () }
+        $self->_mpd->_send_command( "lsinfo\n" );
+}
+
+
 
 # -- Collection: picking songs
 

Modified: trunk/libaudio-mpd-perl/t/20-connection.t
URL: http://svn.debian.org/wsvn/trunk/libaudio-mpd-perl/t/20-connection.t?rev=10789&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/20-connection.t (original)
+++ trunk/libaudio-mpd-perl/t/20-connection.t Mon Dec  3 21:56:05 2007
@@ -18,7 +18,7 @@
 eval 'use Audio::MPD::Test';
 plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
 
-plan tests => 17;
+plan tests => 18;
 
 my $mpd = Audio::MPD->new;
 isa_ok($mpd, 'Audio::MPD');

Modified: trunk/libaudio-mpd-perl/t/30-collection.t
URL: http://svn.debian.org/wsvn/trunk/libaudio-mpd-perl/t/30-collection.t?rev=10789&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/30-collection.t (original)
+++ trunk/libaudio-mpd-perl/t/30-collection.t Mon Dec  3 21:56:05 2007
@@ -18,7 +18,7 @@
 eval 'use Audio::MPD::Test';
 plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
 
-plan tests => 73;
+plan tests => 76;
 my $mpd = Audio::MPD->new;
 my @list;
 
@@ -57,7 +57,7 @@
 #
 # testing items_in_dir.
 @list = $coll->items_in_dir;
-is( scalar @list, 3, 'items_in_dir defaults to root' );
+is( scalar @list, 4, 'items_in_dir defaults to root' );
 isa_ok( $_, 'Audio::MPD::Common::Item', 'items_in_dir return AMCI objects' ) for @list;
 @list = $coll->items_in_dir( 'dir1' );
 is( scalar @list, 2, 'items_in_dir can take a param' );
@@ -99,6 +99,13 @@
 @list = $coll->all_pathes;
 is( scalar @list, 4, 'all_pathes return the pathes' );
 like( $list[0], qr/\.ogg$/, 'all_pathes return strings' );
+
+
+#
+# testing all_playlists
+ at list = $coll->all_playlists;
+is( scalar @list, 1, 'all_playlists return the playlists' );
+is( $list[0], 'test', 'all_playlists return strings' );
 
 
 #