r52701 - in /trunk/libaudio-mpd-perl: ./ bin/ debian/ examples/ lib/Audio/ lib/Audio/MPD/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Feb 14 01:36:19 UTC 2010
Author: jawnsy-guest
Date: Sun Feb 14 01:36:08 2010
New Revision: 52701
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52701
Log:
* New upstream release
* Standards-Version 3.8.4 (no changes)
* Add myself to Uploaders and Copyright
* Rewrite control description
Removed:
trunk/libaudio-mpd-perl/Makefile.PL
Modified:
trunk/libaudio-mpd-perl/AUTHORS
trunk/libaudio-mpd-perl/Build.PL
trunk/libaudio-mpd-perl/Changes
trunk/libaudio-mpd-perl/MANIFEST
trunk/libaudio-mpd-perl/META.yml
trunk/libaudio-mpd-perl/README
trunk/libaudio-mpd-perl/bin/mpd-dynamic
trunk/libaudio-mpd-perl/debian/changelog
trunk/libaudio-mpd-perl/debian/control
trunk/libaudio-mpd-perl/debian/libaudio-mpd-perl.docs
trunk/libaudio-mpd-perl/dist.ini
trunk/libaudio-mpd-perl/examples/example.pl
trunk/libaudio-mpd-perl/examples/mpc.pl
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/Types.pm
trunk/libaudio-mpd-perl/t/00-compile.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
trunk/libaudio-mpd-perl/t/author-critic.t
Modified: trunk/libaudio-mpd-perl/AUTHORS
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/AUTHORS?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/AUTHORS (original)
+++ trunk/libaudio-mpd-perl/AUTHORS Sun Feb 14 01:36:08 2010
@@ -1,4 +1,4 @@
-Jerome Quelin <jquelin at cpan.org
+Jerome Quelin <jquelin at cpan.org>
Original authors:
Tue Abrahamsen <tue.abrahamsen at gmail.com> (code)
Modified: trunk/libaudio-mpd-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Build.PL?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Build.PL (original)
+++ trunk/libaudio-mpd-perl/Build.PL Sun Feb 14 01:36:08 2010
@@ -2,41 +2,45 @@
use strict;
use warnings;
-use Module::Build;
+use Module::Build 0.3601;
-my $build = Module::Build->new(
- module_name => 'Audio::MPD',
- license => 'perl',
- dist_abstract => "class\ to\ talk\ to\ MPD\ \(Music\ Player\ Daemon\)\ servers",
- dist_name => "Audio\-MPD",
- dist_author => [
-"Jerome\ Quelin",
- ],
- requires => {
- "MooseX::Has::Sugar" => '0',
- "Sub::Exporter" => '0',
- "Moose::Util::TypeConstraints" => '0',
- "Encode" => '0',
- "Audio::MPD::Common::Item" => '0',
- "File::Find" => '0',
- "Audio::MPD::Common::Status" => '0',
- "Audio::MPD::Common::Stats" => '0',
- "MooseX::SemiAffordanceAccessor" => '0',
- "Moose" => '0',
- "English" => '0',
- "Getopt::Euclid" => '0',
- "ExtUtils::MakeMaker" => '0',
- "Data::Dumper" => '0',
- "DB_File" => '0',
- "Time::HiRes" => '0',
- "constant" => '0',
- "Test::More" => '0',
- "perl" => '5.008',
- "Test::Corpus::Audio::MPD" => '1.092920',
- "IO::Socket" => '0',
- "Proc::Daemon" => '0',
- },
- script_files => [ qw(bin/mpd-dynamic) ],
-);
+my %module_build_args = (
+ 'dist_abstract' => 'class to talk to MPD (Music Player Daemon) servers',
+ 'dist_author' => [
+ 'Jerome Quelin'
+ ],
+ 'dist_name' => 'Audio-MPD',
+ 'script_files' => [
+ 'bin/mpd-dynamic'
+ ],
+ 'module_name' => 'Audio::MPD',
+ 'requires' => {
+ 'MooseX::Has::Sugar' => 0,
+ 'Moose::Util::TypeConstraints' => 0,
+ 'Encode' => 0,
+ 'Audio::MPD::Common::Item' => 0,
+ 'File::Find' => 0,
+ 'Audio::MPD::Common::Status' => 0,
+ 'Audio::MPD::Common::Stats' => 0,
+ 'Moose' => 0,
+ 'MooseX::SemiAffordanceAccessor' => 0,
+ 'English' => 0,
+ 'Getopt::Euclid' => 0,
+ 'Data::Dumper' => 0,
+ 'DB_File' => 0,
+ 'Time::HiRes' => 0,
+ 'constant' => 0,
+ 'perl' => '5.008',
+ 'Test::More' => 0,
+ 'Test::Corpus::Audio::MPD' => '1.092920',
+ 'IO::Socket' => 0,
+ 'File::Temp' => 0,
+ 'Proc::Daemon' => 0
+ },
+ 'license' => 'perl'
+ );
+
+
+my $build = Module::Build->new(%module_build_args);
$build->create_build_script;
Modified: trunk/libaudio-mpd-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Changes?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Changes (original)
+++ trunk/libaudio-mpd-perl/Changes Sun Feb 14 01:36:08 2010
@@ -1,6 +1,10 @@
Changelog for Audio-MPD
-1.093170 2009-11-13 18:06:41 UTC
+1.100430 2010-02-12 12:51:18 Europe/Paris
+ - WARNING: no more makefile.pl supplied, only a build.pl
+ - sub::exporter no more used internally
+
+1.093170 Fri Nov 13 19:06:54 2009
- removed no more used prereq class::accessor
- revamped pod with podweaver
- introducing audio::mpd::types
Modified: trunk/libaudio-mpd-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/MANIFEST?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/MANIFEST (original)
+++ trunk/libaudio-mpd-perl/MANIFEST Sun Feb 14 01:36:08 2010
@@ -4,7 +4,6 @@
LICENSE
MANIFEST
META.yml
-Makefile.PL
README
TODO
bin/mpd-dynamic
Modified: trunk/libaudio-mpd-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/META.yml?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/META.yml (original)
+++ trunk/libaudio-mpd-perl/META.yml Sun Feb 14 01:36:08 2010
@@ -2,7 +2,11 @@
abstract: 'class to talk to MPD (Music Player Daemon) servers'
author:
- 'Jerome Quelin'
-generated_by: 'Dist::Zilla version 1.093140'
+build_requires:
+ Module::Build: 0.3601
+configure_requires:
+ Module::Build: 0.3601
+generated_by: 'Dist::Zilla version 1.100160'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -11,16 +15,16 @@
provides:
Audio::MPD:
file: lib/Audio/MPD.pm
- version: 1.093170
+ version: 1.100430
Audio::MPD::Collection:
file: lib/Audio/MPD/Collection.pm
- version: 1.093170
+ version: 1.100430
Audio::MPD::Playlist:
file: lib/Audio/MPD/Playlist.pm
- version: 1.093170
+ version: 1.100430
Audio::MPD::Types:
file: lib/Audio/MPD/Types.pm
- version: 1.093170
+ version: 1.100430
requires:
Audio::MPD::Common::Item: 0
Audio::MPD::Common::Stats: 0
@@ -30,6 +34,7 @@
Encode: 0
English: 0
File::Find: 0
+ File::Temp: 0
Getopt::Euclid: 0
IO::Socket: 0
Moose: 0
@@ -37,7 +42,6 @@
MooseX::Has::Sugar: 0
MooseX::SemiAffordanceAccessor: 0
Proc::Daemon: 0
- Sub::Exporter: 0
Test::Corpus::Audio::MPD: 1.092920
Test::More: 0
Time::HiRes: 0
@@ -47,4 +51,4 @@
MailingList: http://groups.google.com/group/audio-mpd
homepage: http://search.cpan.org/dist/Audio-MPD
repository: http://github.com/jquelin/audio-mpd
-version: 1.093170
+version: 1.100430
Modified: trunk/libaudio-mpd-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/README?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/README (original)
+++ trunk/libaudio-mpd-perl/README Sun Feb 14 01:36:08 2010
@@ -1,7 +1,7 @@
This archive contains the distribution Audio-MPD, version
-1.093170:
+1.100430:
class to talk to MPD (Music Player Daemon) servers
Modified: trunk/libaudio-mpd-perl/bin/mpd-dynamic
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/bin/mpd-dynamic?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/bin/mpd-dynamic (original)
+++ trunk/libaudio-mpd-perl/bin/mpd-dynamic Sun Feb 14 01:36:08 2010
@@ -246,4 +246,4 @@
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-=cut
+=cut
Modified: trunk/libaudio-mpd-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/changelog?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/changelog (original)
+++ trunk/libaudio-mpd-perl/debian/changelog Sun Feb 14 01:36:08 2010
@@ -1,15 +1,17 @@
-libaudio-mpd-perl (1.093170-1) UNRELEASED; urgency=low
+libaudio-mpd-perl (1.100430-1) UNRELEASED; urgency=low
- WAITS-FOR: Test::Corpus::Audio::MPD 1.092920
-
- NOTE: the tests should be skipped without Test::Corpus::Audio::MPD but that
- doesn't work ...
+ [ Jonathan Yu ]
+ * New upstream release
+ * Standards-Version 3.8.4 (no changes)
+ * Add myself to Uploaders and Copyright
+ * Rewrite control description
+ [ gregor herrmann ]
* New upstream release.
* debian/copyright: adjust years of upstream copyright.
* debian/control: update dependencies as per upstream changes.
- -- gregor herrmann <gregoa at debian.org> Sat, 14 Nov 2009 18:14:43 +0100
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 13 Feb 2010 20:51:05 -0500
libaudio-mpd-perl (0.19.7-1) unstable; urgency=low
Modified: trunk/libaudio-mpd-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/control?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/control (original)
+++ trunk/libaudio-mpd-perl/debian/control Sun Feb 14 01:36:08 2010
@@ -2,16 +2,15 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: perl,
- libaudio-mpd-common-perl, libmoose-perl, libmoosex-has-sugar-perl,
- libmoosex-semiaffordanceaccessor-perl,
- libtest-pod-perl, libtest-pod-coverage-perl, libtest-cpan-meta-perl
+Build-Depends-Indep: perl, libaudio-mpd-common-perl, libtest-cpan-meta-perl,
+ libmoose-perl, libmoosex-semiaffordanceaccessor-perl, libtest-pod-perl,
+ libmoosex-has-sugar-perl, libtest-pod-coverage-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>, Jonathan Yu <jawnsy at cpan.org>,
Rene Mayorga <rmayorga at debian.org.sv>, gregor herrmann <gregoa at debian.org>,
Franck Joncourt <franck.mail at dthconnex.com>,
Jose Luis Rivas <ghostbar at debian.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/Audio-MPD/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libaudio-mpd-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libaudio-mpd-perl/
@@ -23,9 +22,8 @@
libmoosex-semiaffordanceaccessor-perl
Recommends: libgetopt-euclid-perl, libproc-daemon-perl
Suggests: mpd
-Description: Perl module to communicate with MPD servers from perl
- 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
- a dynamic playlist for MPD.
+Description: module to communicate with MPD servers
+ Audio::MPD is a Perl module that provides an object-oriented interface for
+ communicating with and controlling MPD (Music Player Daemon) servers. It also
+ includes an example control daemon, mpd-dynamic, which implements a dynamic
+ playlist for MPD.
Modified: trunk/libaudio-mpd-perl/debian/libaudio-mpd-perl.docs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/libaudio-mpd-perl.docs?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/libaudio-mpd-perl.docs (original)
+++ trunk/libaudio-mpd-perl/debian/libaudio-mpd-perl.docs Sun Feb 14 01:36:08 2010
@@ -1,1 +1,2 @@
-TODO AUTHORS
+TODO
+AUTHORS
Modified: trunk/libaudio-mpd-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/dist.ini?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/dist.ini (original)
+++ trunk/libaudio-mpd-perl/dist.ini Sun Feb 14 01:36:08 2010
@@ -4,71 +4,13 @@
copyright_holder = Jerome Quelin
copyright_year = 2007
-
; -- static meta-information
-
[MetaResources]
homepage = http://search.cpan.org/dist/Audio-MPD
repository = http://github.com/jquelin/audio-mpd
MailingList = http://groups.google.com/group/audio-mpd
-[AutoVersion]
-major = 1
-format = {{ $major }}.{{ cldr('yyDDD') }}{{ sprintf '%01u', ($ENV{N} || 0) }}
+[Prereq]
+Test::Corpus::Audio::MPD = 1.092920 ; used for tests, conditional compilation
-
-; -- fetch & generate files
-
-[AllFiles]
-
-[CompileTests]
-[CriticTests]
-[MetaTests]
-[PodTests]
-
-
-; -- remove files
-
-[PruneCruft]
-[ManifestSkip]
-
-
-; -- get prereqs
-
-[AutoPrereq]
-[Prereq]
-; used for tests, conditional compilation
-Test::Corpus::Audio::MPD = 1.092920
-
-
-; -- munge files
-
-[ExtraTests]
-[NextRelease]
-[PkgVersion]
-[PodWeaver]
-[Prepender]
-copyright = 1
-
-
-; -- dynamic meta information
-
-[InstallDirs]
-[MetaProvides::Package]
-
-
-; -- generate meta files
-
-[License]
-[MakeMaker]
-[ModuleBuild]
-[MetaYAML]
-[Readme]
-
-[Manifest] ; should come last
-
-
-; -- release
-
-[CheckChangeLog]
-[UploadToCPAN]
+[@JQUELIN]
Modified: trunk/libaudio-mpd-perl/examples/example.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/examples/example.pl?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/examples/example.pl (original)
+++ trunk/libaudio-mpd-perl/examples/example.pl Sun Feb 14 01:36:08 2010
@@ -44,4 +44,4 @@
my $foo = $x->get_time_info;
print "Current song info: \n";
print "Minutes: ".$foo->{'minutes_so_far'}."\n";
-print "Seconds: ".$foo->{'seconds_so_far'}."\n";
+print "Seconds: ".$foo->{'seconds_so_far'}."\n";
Modified: trunk/libaudio-mpd-perl/examples/mpc.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/examples/mpc.pl?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/examples/mpc.pl (original)
+++ trunk/libaudio-mpd-perl/examples/mpc.pl Sun Feb 14 01:36:08 2010
@@ -223,4 +223,4 @@
}
# Let's start!
-main;
+main;
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD.pm Sun Feb 14 01:36:08 2010
@@ -11,9 +11,7 @@
use strict;
package Audio::MPD;
-our $VERSION = '1.093170';
-
-
+our $VERSION = '1.100430';
# ABSTRACT: class to talk to MPD (Music Player Daemon) servers
use Audio::MPD::Collection;
@@ -452,7 +450,7 @@
=head1 VERSION
-version 1.093170
+version 1.100430
=head1 SYNOPSIS
@@ -690,15 +688,26 @@
Original code (2005) by Tue Abrahamsen C<< <tue.abrahamsen at gmail.com> >>,
documented in 2006 by Nicholas J. Humfrey C<< <njh at aelius.com> >>.
-L<Audio::MPD> development takes place on <audio-mpd at googlegroups.com>:
-feel free to join us. (use L<http://groups.google.com/group/audio-mpd>
-to sign in). Our git repository is located at
-L<http://github.com/jquelin/audio-mpd.git>.
-
-You can also look for information on this module at:
+You can look for information on this module at:
=over 4
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Audio-MPD>
+
+=item * See open / report bugs
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Audio-MPD>
+
+=item * Mailing-list
+
+L<http://groups.google.com/group/audio-mpd>
+
+=item * Git repository
+
+L<http://github.com/jquelin/audio-mpd.git>
+
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/Audio-MPD>
@@ -706,10 +715,6 @@
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/Audio-MPD>
-
-=item * Open bugs
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Audio-MPD>
=back
@@ -727,4 +732,5 @@
=cut
-__END__
+__END__
+
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm Sun Feb 14 01:36:08 2010
@@ -11,9 +11,7 @@
use strict;
package Audio::MPD::Collection;
-our $VERSION = '1.093170';
-
-
+our $VERSION = '1.100430';
# ABSTRACT: class to query MPD's collection
use Moose;
@@ -219,7 +217,7 @@
=head1 VERSION
-version 1.093170
+version 1.100430
=head1 SYNOPSIS
@@ -355,4 +353,5 @@
=cut
-__END__
+__END__
+
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm Sun Feb 14 01:36:08 2010
@@ -11,9 +11,7 @@
use strict;
package Audio::MPD::Playlist;
-our $VERSION = '1.093170';
-
-
+our $VERSION = '1.100430';
# ABSTRACT: class to mess MPD's playlist
use Moose;
@@ -194,7 +192,7 @@
=head1 VERSION
-version 1.093170
+version 1.100430
=head1 SYNOPSIS
@@ -303,4 +301,5 @@
=cut
-__END__
+__END__
+
Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm Sun Feb 14 01:36:08 2010
@@ -11,14 +11,10 @@
use strict;
package Audio::MPD::Types;
-our $VERSION = '1.093170';
-
-
+our $VERSION = '1.100430';
# ABSTRACT: types used in the distribution
use Moose::Util::TypeConstraints;
-use Sub::Exporter;
-use Sub::Exporter -setup => { exports => [ qw{ CONNTYPE } ] };
enum CONNTYPE => qw{ reuse once };
@@ -33,15 +29,15 @@
=head1 VERSION
-version 1.093170
+version 1.100430
=head1 DESCRIPTION
This module implements the specific types used by the distribution, and
-exports them. It is using L<Sub::Exporter> underneath, so you can use
-all the shenanigans to change the export names.
+exports them (exporting is done directly by
+L<Moose::Util::TypeConstraints>.
-Current types defined and exported:
+Current types defined:
=over 4
@@ -64,4 +60,5 @@
=cut
-__END__
+__END__
+
Modified: trunk/libaudio-mpd-perl/t/00-compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/00-compile.t?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/00-compile.t (original)
+++ trunk/libaudio-mpd-perl/t/00-compile.t Sun Feb 14 01:36:08 2010
@@ -13,6 +13,7 @@
use Test::More;
use File::Find;
+use File::Temp qw{ tempdir };
my @modules;
find(
@@ -31,16 +32,21 @@
my @scripts = glob "bin/*";
plan tests => scalar(@modules) + scalar(@scripts);
-
-is( qx{ $^X -Ilib -M$_ -e "print '$_ ok'" }, "$_ ok", "$_ loaded ok" )
- for sort @modules;
-
-SKIP: {
- eval "use Test::Script; 1;";
- skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
- foreach my $file ( @scripts ) {
- my $script = $file;
- $script =~ s!.*/!!;
- script_compiles_ok( $file, "$script script compiles" );
+
+{
+ # fake home for cpan-testers
+ # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
+
+ is( qx{ $^X -Ilib -M$_ -e "print '$_ ok'" }, "$_ ok", "$_ loaded ok" )
+ for sort @modules;
+
+ SKIP: {
+ eval "use Test::Script; 1;";
+ skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
+ foreach my $file ( @scripts ) {
+ my $script = $file;
+ $script =~ s!.*/!!;
+ script_compiles_ok( $file, "$script script compiles" );
+ }
}
-}
+}
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/20-connection.t (original)
+++ trunk/libaudio-mpd-perl/t/20-connection.t Sun Feb 14 01:36:08 2010
@@ -70,4 +70,5 @@
# testing _cooked_command_strip_first_field
my @list = $mpd->_cooked_command_strip_first_field( "stats\n" );
unlike( $_, qr/\D/, '_cooked_command_strip_first_field return only 2nd field' ) for @list;
-# stats return numerical data as second field.
+# stats return numerical data as second field.
+
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/21-new.t (original)
+++ trunk/libaudio-mpd-perl/t/21-new.t Sun Feb 14 01:36:08 2010
@@ -78,4 +78,4 @@
$mpd->ping;
$mpd->ping;
$mpd->ping;
-isa_ok( $mpd->_socket, 'IO::Socket', 'socket is created and retained' );
+isa_ok( $mpd->_socket, 'IO::Socket', 'socket is created and retained' );
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/22-general.t (original)
+++ trunk/libaudio-mpd-perl/t/22-general.t Sun Feb 14 01:36:08 2010
@@ -62,4 +62,4 @@
#
# testing urlhandlers.
my @handlers = $mpd->urlhandlers;
-is( scalar @handlers, 1, 'only one url handler supported' );
+is( scalar @handlers, 1, 'only one url handler supported' );
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/23-output.t (original)
+++ trunk/libaudio-mpd-perl/t/23-output.t Sun Feb 14 01:36:08 2010
@@ -61,4 +61,5 @@
$mpd->output_enable(0);
sleep(1);
$mpd->play; $mpd->pause;
-is( $mpd->status->error, undef, 'enabling output' );
+is( $mpd->status->error, undef, 'enabling 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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/24-info.t (original)
+++ trunk/libaudio-mpd-perl/t/24-info.t Sun Feb 14 01:36:08 2010
@@ -68,4 +68,4 @@
isa_ok( $song, 'Audio::MPD::Common::Item::Song', 'songid() returns an AMC::Item::Song object' );
is( $song->file, 'dir1/title-artist-album.ogg', 'songid() returns the wanted song' );
$song = $mpd->songid; # default to current song
-is( $song->file, 'title.ogg', 'songid() defaults to current song' );
+is( $song->file, 'title.ogg', 'songid() defaults to current song' );
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/25-settings.t (original)
+++ trunk/libaudio-mpd-perl/t/25-settings.t Sun Feb 14 01:36:08 2010
@@ -51,4 +51,5 @@
$mpd->fade(15);
is( $mpd->status->xfade, 15, 'enabling fading' );
$mpd->fade;
-is( $mpd->status->xfade, 0, 'disabling fading by default' );
+is( $mpd->status->xfade, 0, 'disabling fading by default' );
+
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/26-playback.t (original)
+++ trunk/libaudio-mpd-perl/t/26-playback.t Sun Feb 14 01:36:08 2010
@@ -92,4 +92,5 @@
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/30-collection.t (original)
+++ trunk/libaudio-mpd-perl/t/30-collection.t Sun Feb 14 01:36:08 2010
@@ -181,4 +181,5 @@
@list = $coll->songs_with_title_partial( 'title' );
is( scalar @list, 3, 'songs_with_title_partial return all the songs found' );
isa_ok( $_, 'Audio::MPD::Common::Item::Song', 'songs_with_title_partial return AMCI::Songs' ) for @list;
-like( $list[0]->title, qr/title/, 'songs_with_title_partial return correct objects' );
+like( $list[0]->title, qr/title/, 'songs_with_title_partial return correct objects' );
+
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=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/40-playlist.t (original)
+++ trunk/libaudio-mpd-perl/t/40-playlist.t Sun Feb 14 01:36:08 2010
@@ -174,4 +174,5 @@
#
# testing rm.
$pl->rm( 'test-jq' );
-ok( ! -f "$pdir/test-jq.m3u", 'rm() removes a playlist' );
+ok( ! -f "$pdir/test-jq.m3u", 'rm() removes a playlist' );
+
Modified: trunk/libaudio-mpd-perl/t/author-critic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/author-critic.t?rev=52701&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/author-critic.t (original)
+++ trunk/libaudio-mpd-perl/t/author-critic.t Sun Feb 14 01:36:08 2010
@@ -16,6 +16,9 @@
}
+use strict;
+use warnings;
+
use Test::More;
use English qw(-no_match_vars);
More information about the Pkg-perl-cvs-commits
mailing list