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