r24361 - in /trunk/libaudio-mpd-perl: ./ bin/ debian/ lib/Audio/ lib/Audio/MPD/ t/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Sat Aug 16 02:12:50 UTC 2008
Author: rmayorga-guest
Date: Sat Aug 16 02:12:47 2008
New Revision: 24361
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24361
Log:
* New upstream release
* debian/control
+ add myself to uploaders
+ add module name to Long description
+ wrap long lines
* debian/copyright - convert to (new)format
* refresh debian/rules with rules.dh7.noxs
* Don't Install README anymore - it only has installation info.
Modified:
trunk/libaudio-mpd-perl/Build.PL
trunk/libaudio-mpd-perl/Changes
trunk/libaudio-mpd-perl/META.yml
trunk/libaudio-mpd-perl/Makefile.PL
trunk/libaudio-mpd-perl/bin/mpd-dynamic
trunk/libaudio-mpd-perl/debian/changelog
trunk/libaudio-mpd-perl/debian/control
trunk/libaudio-mpd-perl/debian/copyright
trunk/libaudio-mpd-perl/debian/rules
trunk/libaudio-mpd-perl/lib/Audio/MPD.pm
trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm
trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm
trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm
trunk/libaudio-mpd-perl/t/00-use.t
trunk/libaudio-mpd-perl/t/01-pod.t
trunk/libaudio-mpd-perl/t/02-pod-coverage.t
trunk/libaudio-mpd-perl/t/20-connection.t
trunk/libaudio-mpd-perl/t/21-new.t
trunk/libaudio-mpd-perl/t/22-general.t
trunk/libaudio-mpd-perl/t/23-output.t
trunk/libaudio-mpd-perl/t/24-info.t
trunk/libaudio-mpd-perl/t/25-settings.t
trunk/libaudio-mpd-perl/t/26-playback.t
trunk/libaudio-mpd-perl/t/30-collection.t
trunk/libaudio-mpd-perl/t/40-playlist.t
Modified: trunk/libaudio-mpd-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Build.PL?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Build.PL (original)
+++ trunk/libaudio-mpd-perl/Build.PL Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Changes?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Changes (original)
+++ trunk/libaudio-mpd-perl/Changes Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/META.yml?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/META.yml (original)
+++ trunk/libaudio-mpd-perl/META.yml Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Makefile.PL?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Makefile.PL (original)
+++ trunk/libaudio-mpd-perl/Makefile.PL Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/bin/mpd-dynamic
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/bin/mpd-dynamic?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/bin/mpd-dynamic (original)
+++ trunk/libaudio-mpd-perl/bin/mpd-dynamic Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/changelog?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/changelog (original)
+++ trunk/libaudio-mpd-perl/debian/changelog Sat Aug 16 02:12:47 2008
@@ -1,3 +1,16 @@
+libaudio-mpd-perl (0.19.3-1) unstable; urgency=low
+
+ * New upstream release
+ * debian/control
+ + add myself to uploaders
+ + add module name to Long description
+ + wrap long lines
+ * debian/copyright - convert to (new)format
+ * refresh debian/rules with rules.dh7.noxs
+ * Don't Install README anymore - it only has installation info.
+
+ -- Rene Mayorga <rmayorga at debian.org.sv> Fri, 15 Aug 2008 19:43:55 -0600
+
libaudio-mpd-perl (0.19.2-1) unstable; urgency=low
[ Joey Hess ]
Modified: trunk/libaudio-mpd-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/control?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/control (original)
+++ trunk/libaudio-mpd-perl/debian/control Sat Aug 16 02:12:47 2008
@@ -1,9 +1,10 @@
Source: libaudio-mpd-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7), perl, libaudio-mpd-common-perl, libclass-accessor-perl, libreadonly-perl
+Build-Depends: debhelper (>= 7), perl, libaudio-mpd-common-perl, libclass-accessor-perl,
+ libreadonly-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Damyan Ivanov <dmn at debian.org>
+Uploaders: Damyan Ivanov <dmn at debian.org>, Rene Mayorga <rmayorga at debian.org.sv>
Standards-Version: 3.8.0
Homepage: http://search.cpan.org/dist/Audio-MPD/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libaudio-mpd-perl/
@@ -12,9 +13,10 @@
Package: libaudio-mpd-perl
Architecture: all
Suggests: mpd, libgetopt-euclid-perl, libproc-daemon-perl
-Depends: ${perl:Depends}, ${misc:Depends}, libaudio-mpd-common-perl, libclass-accessor-perl, libreadonly-perl
+Depends: ${perl:Depends}, ${misc:Depends}, libaudio-mpd-common-perl,
+ libclass-accessor-perl, libreadonly-perl
Description: communicate with MPD servers from perl
- This perl module provides an object-oriented interface to talking to and
+ Audio::MPD provides an object-oriented interface to talking to and
controlling MPD (Music Player Daemon) servers.
.
This package also includes a daemon, mpd-dynamic, that implements
Modified: trunk/libaudio-mpd-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/copyright?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/copyright (original)
+++ trunk/libaudio-mpd-perl/debian/copyright Sat Aug 16 02:12:47 2008
@@ -1,15 +1,37 @@
This package was put together by Joey Hess using sources downloaded from CPAN,
-http://search.cpan.org/dist/Audio-MPD/
+and is Maintained by the Debian Perl Group (pkg-perl)
+
+It was downloaded from: http://search.cpan.org/dist/Audio-MPD/
+
+Upstram Author: Tue Abrahamsen
+ Nicolas J. Humfrey
+ Jerome Quelin
Files: *
-Copyright:
- (c) 2005 Tue Abrahamsen
- (c) 2006 Nicholas
- (c) 2007 Jerome Quelin
+Copyright: © 2005 Tue Abrahamsen
+ © 2006 Nicholas J. Humfrey
+ © 2007-2008 Jerome Quelin
License: GPL-1+ | Artistic
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
- .
- The full text of the GPL is distributed in /usr/share/common-licenses/GPL
- on Debian systems, and the Artistic license in
- /usr/share/common-licenses/Artistic
+
+Files: debian/*
+Copyright: © 2007-2008 Debian Perl Group
+ <pkg-perl-maintainers at lists.alioth.debian.org>
+License: GPL-1+ | Artistic
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+The Perl license is:
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of either:
+
+ a) the GNU General Public License as published by the Free Software
+ Foundation; either version 1, or (at your option) any later
+ version, or
+
+ b) the "Artistic License" which comes with Perl.
+
+The full text of the GPL is distributed in /usr/share/common-licenses/GPL
+on Debian systems, and the Artistic license in
+/usr/share/common-licenses/Artistic
Modified: trunk/libaudio-mpd-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/rules?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/rules (original)
+++ trunk/libaudio-mpd-perl/debian/rules Sat Aug 16 02:12:47 2008
@@ -1,11 +1,23 @@
#!/usr/bin/make -f
-%:
+
+build: build-stamp
+build-stamp:
+ dh build
+ touch $@
+
+clean:
dh $@
-build:
- dh build --before test
- # the test suite is not run by default since it runs mpd
- dh build --after test
+install: install-stamp
+install-stamp: build-stamp
+ dh install
+ touch $@
-binary-indep: build
-binary: binary-indep binary-arch
+binary-arch:
+
+binary-indep: install
+ dh $@
+
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD.pm?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD.pm Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/00-use.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/00-use.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/00-use.t (original)
+++ trunk/libaudio-mpd-perl/t/00-use.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/01-pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/01-pod.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/01-pod.t (original)
+++ trunk/libaudio-mpd-perl/t/01-pod.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/02-pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/02-pod-coverage.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/02-pod-coverage.t (original)
+++ trunk/libaudio-mpd-perl/t/02-pod-coverage.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/20-connection.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/20-connection.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/20-connection.t (original)
+++ trunk/libaudio-mpd-perl/t/20-connection.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/21-new.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/21-new.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/21-new.t (original)
+++ trunk/libaudio-mpd-perl/t/21-new.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/22-general.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/22-general.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/22-general.t (original)
+++ trunk/libaudio-mpd-perl/t/22-general.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/23-output.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/23-output.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/23-output.t (original)
+++ trunk/libaudio-mpd-perl/t/23-output.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/24-info.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/24-info.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/24-info.t (original)
+++ trunk/libaudio-mpd-perl/t/24-info.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/25-settings.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/25-settings.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/25-settings.t (original)
+++ trunk/libaudio-mpd-perl/t/25-settings.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/26-playback.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/26-playback.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/26-playback.t (original)
+++ trunk/libaudio-mpd-perl/t/26-playback.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/30-collection.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/30-collection.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/30-collection.t (original)
+++ trunk/libaudio-mpd-perl/t/30-collection.t Sat Aug 16 02:12:47 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: trunk/libaudio-mpd-perl/t/40-playlist.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/40-playlist.t?rev=24361&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/40-playlist.t (original)
+++ trunk/libaudio-mpd-perl/t/40-playlist.t Sat Aug 16 02:12:47 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