r24352 - in /branches/upstream/libaudio-mpd-perl/current: ./ bin/ lib/Audio/ lib/Audio/MPD/ t/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Sat Aug 16 01:33:37 UTC 2008
Author: rmayorga-guest
Date: Sat Aug 16 01:33:34 2008
New Revision: 24352
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24352
Log:
[svn-upgrade] Integrating new upstream version, libaudio-mpd-perl (0.19.3)
Modified:
branches/upstream/libaudio-mpd-perl/current/Build.PL
branches/upstream/libaudio-mpd-perl/current/Changes
branches/upstream/libaudio-mpd-perl/current/META.yml
branches/upstream/libaudio-mpd-perl/current/Makefile.PL
branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic
branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm
branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm
branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Playlist.pm
branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Test.pm
branches/upstream/libaudio-mpd-perl/current/t/00-use.t
branches/upstream/libaudio-mpd-perl/current/t/01-pod.t
branches/upstream/libaudio-mpd-perl/current/t/02-pod-coverage.t
branches/upstream/libaudio-mpd-perl/current/t/20-connection.t
branches/upstream/libaudio-mpd-perl/current/t/21-new.t
branches/upstream/libaudio-mpd-perl/current/t/22-general.t
branches/upstream/libaudio-mpd-perl/current/t/23-output.t
branches/upstream/libaudio-mpd-perl/current/t/24-info.t
branches/upstream/libaudio-mpd-perl/current/t/25-settings.t
branches/upstream/libaudio-mpd-perl/current/t/26-playback.t
branches/upstream/libaudio-mpd-perl/current/t/30-collection.t
branches/upstream/libaudio-mpd-perl/current/t/40-playlist.t
Modified: branches/upstream/libaudio-mpd-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/Build.PL?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/Build.PL (original)
+++ branches/upstream/libaudio-mpd-perl/current/Build.PL Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/Changes?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/Changes (original)
+++ branches/upstream/libaudio-mpd-perl/current/Changes Sat Aug 16 01:33:34 2008
@@ -18,6 +18,11 @@
Low-level changelog
===================
+
+0.19.3 Tue Aug 12 19:04:23 CEST 2008
+ - version() reports *protocol* version, not real mpd version
+ - fix some tests that failed because of detection method not precise
+ enough (timing issues)
0.19.2 Tue Jun 17 19:24:16 CEST 2008
- mpd-dynamic should lookup ratings with utf8 encoded pathes
Modified: branches/upstream/libaudio-mpd-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/META.yml?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/META.yml (original)
+++ branches/upstream/libaudio-mpd-perl/current/META.yml Sat Aug 16 01:33:34 2008
@@ -1,6 +1,6 @@
---
name: Audio-MPD
-version: 0.19.2
+version: 0.19.3
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.2
+ version: 0.19.3
Audio::MPD::Collection:
file: lib/Audio/MPD/Collection.pm
Audio::MPD::Playlist:
Modified: branches/upstream/libaudio-mpd-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/Makefile.PL?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/Makefile.PL (original)
+++ branches/upstream/libaudio-mpd-perl/current/Makefile.PL Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic (original)
+++ branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -241,7 +241,7 @@
=head1 COPYRIGHT & LICENSE
-Copyright (c) 2007 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm Sat Aug 16 01:33:34 2008
@@ -1,6 +1,6 @@
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -28,7 +28,7 @@
collection playlist version ] );
-our $VERSION = '0.19.2';
+our $VERSION = '0.19.3';
Readonly our $REUSE => 0;
Readonly our $ONCE => 1;
@@ -655,7 +655,11 @@
=item $mpd->version()
-Return the version number for the server we are connected to.
+Return mpd's version number as advertised during connection. Note that
+mpd returns B<protocol> version when connected. This protocol version
+can differ from the real mpd version. eg, mpd version 0.13.2 is
+"speaking" and thus advertising version 0.13.0.
+
=item $mpd->kill()
@@ -868,7 +872,7 @@
Copyright (c) 2005 Tue Abrahamsen, all rights reserved.
Copyright (c) 2006 Nicolas J. Humfrey, all rights reserved.
-Copyright (c) 2007 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm Sat Aug 16 01:33:34 2008
@@ -1,6 +1,6 @@
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -496,7 +496,7 @@
=head1 COPYRIGHT & LICENSE
-Copyright (c) 2007 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Playlist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Playlist.pm?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Playlist.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Playlist.pm Sat Aug 16 01:33:34 2008
@@ -1,6 +1,6 @@
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -419,7 +419,7 @@
=head1 COPYRIGHT & LICENSE
-Copyright (c) 2007 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Test.pm?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Test.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Test.pm Sat Aug 16 01:33:34 2008
@@ -1,6 +1,6 @@
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -209,7 +209,7 @@
=head1 COPYRIGHT & LICENSE
-Copyright (c) 2007 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/00-use.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/00-use.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/00-use.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/00-use.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/01-pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/01-pod.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/01-pod.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/01-pod.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/02-pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/02-pod-coverage.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/02-pod-coverage.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/02-pod-coverage.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/20-connection.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/20-connection.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/20-connection.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/20-connection.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/21-new.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/21-new.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/21-new.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/21-new.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/22-general.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/22-general.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/22-general.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/22-general.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -25,8 +25,8 @@
#
# testing mpd version.
SKIP: {
- my $output = qx[mpd --version 2>/dev/null];
- skip 'need mpd installed', 1 unless $output =~ /^mpd .* ([\d.]+)\n/;
+ my $output = qx{echo | nc -w1 localhost 6600 2>/dev/null};
+ skip 'need netcat installed', 1 unless $output =~ /^OK .* ([\d.]+)\n/;
is( $mpd->version, $1, 'mpd version grabbed during connection' );
}
Modified: branches/upstream/libaudio-mpd-perl/current/t/23-output.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/23-output.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/23-output.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/23-output.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -48,7 +48,13 @@
$mpd->play;
$mpd->output_disable(0);
sleep(1);
-like( $mpd->status->error, qr/^problems/, 'disabling output' );
+SKIP: {
+ # FIXME?
+ my $error = $mpd->status->error;
+ skip "detection method doesn't always work - depends on timing", 1
+ unless defined $error;
+ like( $error, qr/^problems/, 'disabling output' );
+}
#
# testing enable_output.
Modified: branches/upstream/libaudio-mpd-perl/current/t/24-info.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/24-info.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/24-info.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/24-info.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/25-settings.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/25-settings.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/25-settings.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/25-settings.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/26-playback.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/26-playback.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/26-playback.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/26-playback.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
@@ -73,23 +73,26 @@
#
# testing seek / seekid.
-$mpd->pause(1);
-$mpd->seek( 1, 2 );
-is( $mpd->status->song, 2, 'seek() can change the current track' );
-is( $mpd->status->time->sofar_secs, 1, 'seek() seeks in the song' );
-$mpd->seek;
-is( $mpd->status->time->sofar_secs, 0, 'seek() defaults to beginning of song' );
-$mpd->seek(1);
-is( $mpd->status->time->sofar_secs, 1, 'seek() defaults to current song ' );
+TODO: {
+ local $TODO = "detection method doesn't always work - depends on timing";
+ $mpd->pause(1);
+ $mpd->seek( 1, 2 );
+ is( $mpd->status->song, 2, 'seek() can change the current track' );
+ is( $mpd->status->time->sofar_secs, 1, 'seek() seeks in the song' );
+ $mpd->seek;
+ is( $mpd->status->time->sofar_secs, 0, 'seek() defaults to beginning of song' );
+ $mpd->seek(1);
+ is( $mpd->status->time->sofar_secs, 1, 'seek() defaults to current song ' );
-$mpd->seekid( 1, 1 );
-is( $mpd->status->songid, 1, 'seekid() can change the current track' );
-is( $mpd->status->time->sofar_secs, 1, 'seekid() seeks in the song' );
-$mpd->seekid;
-is( $mpd->status->time->sofar_secs, 0, 'seekid() defaults to beginning of song' );
-$mpd->seekid(1);
-is( $mpd->status->time->sofar_secs, 1, 'seekid() defaults to current song' );
+ $mpd->seekid( 1, 1 );
+ is( $mpd->status->songid, 1, 'seekid() can change the current track' );
+ is( $mpd->status->time->sofar_secs, 1, 'seekid() seeks in the song' );
+ $mpd->seekid;
+ is( $mpd->status->time->sofar_secs, 0, 'seekid() defaults to beginning of song' );
+ $mpd->seekid(1);
+ is( $mpd->status->time->sofar_secs, 1, 'seekid() defaults to current song' );
+}
Modified: branches/upstream/libaudio-mpd-perl/current/t/30-collection.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/30-collection.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/30-collection.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/30-collection.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
Modified: branches/upstream/libaudio-mpd-perl/current/t/40-playlist.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/40-playlist.t?rev=24352&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/40-playlist.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/40-playlist.t Sat Aug 16 01:33:34 2008
@@ -1,7 +1,7 @@
#!perl
#
# This file is part of Audio::MPD
-# Copyright (c) 2007 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
More information about the Pkg-perl-cvs-commits
mailing list