r52697 - in /branches/upstream/libaudio-mpd-perl/current: ./ bin/ 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:28:37 UTC 2010
Author: jawnsy-guest
Date: Sun Feb 14 01:28:22 2010
New Revision: 52697
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52697
Log:
[svn-upgrade] Integrating new upstream version, libaudio-mpd-perl (1.100430)
Removed:
branches/upstream/libaudio-mpd-perl/current/Makefile.PL
Modified:
branches/upstream/libaudio-mpd-perl/current/AUTHORS
branches/upstream/libaudio-mpd-perl/current/Build.PL
branches/upstream/libaudio-mpd-perl/current/Changes
branches/upstream/libaudio-mpd-perl/current/MANIFEST
branches/upstream/libaudio-mpd-perl/current/META.yml
branches/upstream/libaudio-mpd-perl/current/README
branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic
branches/upstream/libaudio-mpd-perl/current/dist.ini
branches/upstream/libaudio-mpd-perl/current/examples/example.pl
branches/upstream/libaudio-mpd-perl/current/examples/mpc.pl
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/Types.pm
branches/upstream/libaudio-mpd-perl/current/t/00-compile.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
branches/upstream/libaudio-mpd-perl/current/t/author-critic.t
Modified: branches/upstream/libaudio-mpd-perl/current/AUTHORS
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/AUTHORS?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/AUTHORS (original)
+++ branches/upstream/libaudio-mpd-perl/current/AUTHORS Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/Build.PL (original)
+++ branches/upstream/libaudio-mpd-perl/current/Build.PL Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/Changes?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/Changes (original)
+++ branches/upstream/libaudio-mpd-perl/current/Changes Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/MANIFEST?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/MANIFEST (original)
+++ branches/upstream/libaudio-mpd-perl/current/MANIFEST Sun Feb 14 01:28:22 2010
@@ -4,7 +4,6 @@
LICENSE
MANIFEST
META.yml
-Makefile.PL
README
TODO
bin/mpd-dynamic
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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/META.yml (original)
+++ branches/upstream/libaudio-mpd-perl/current/META.yml Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/README?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/README (original)
+++ branches/upstream/libaudio-mpd-perl/current/README Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic (original)
+++ branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/dist.ini?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/dist.ini (original)
+++ branches/upstream/libaudio-mpd-perl/current/dist.ini Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/examples/example.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/examples/example.pl?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/examples/example.pl (original)
+++ branches/upstream/libaudio-mpd-perl/current/examples/example.pl Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/examples/mpc.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/examples/mpc.pl?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/examples/mpc.pl (original)
+++ branches/upstream/libaudio-mpd-perl/current/examples/mpc.pl Sun Feb 14 01:28:22 2010
@@ -223,4 +223,4 @@
}
# Let's start!
-main;
+main;
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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm Sun Feb 14 01:28:22 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: 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=52697&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 Sun Feb 14 01:28:22 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: 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=52697&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 Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Types.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Types.pm?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Types.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Types.pm Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/t/00-compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/00-compile.t?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/00-compile.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/00-compile.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/20-connection.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/20-connection.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/21-new.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/21-new.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/22-general.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/22-general.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/23-output.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/23-output.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/24-info.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/24-info.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/25-settings.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/25-settings.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/26-playback.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/26-playback.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/30-collection.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/30-collection.t Sun Feb 14 01:28:22 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: 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=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/40-playlist.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/40-playlist.t Sun Feb 14 01:28:22 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: branches/upstream/libaudio-mpd-perl/current/t/author-critic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/t/author-critic.t?rev=52697&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/author-critic.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/author-critic.t Sun Feb 14 01:28:22 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