Hello community, here is the log from the commit of package perl-Path-Class for openSUSE:Factory checked in at 2014-09-17 17:26:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Path-Class (Old) and /work/SRC/openSUSE:Factory/.perl-Path-Class.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Path-Class" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Path-Class/perl-Path-Class.changes 2013-12-19 12:24:10.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Path-Class.new/perl-Path-Class.changes 2014-09-17 17:26:31.000000000 +0200 @@ -1,0 +2,13 @@ +Tue Sep 16 08:08:00 UTC 2014 - [email protected] + +- updated to 0.35 + - fce4b8e - Fixed a t/03-filesystem.t test error on Windows <Andrew Gregory> + - df23e17 - Add a new spew_lines() method <William Stevenson> + - 3ffef39 - Don't convert file into directory in subsumes() <Dagfinn Ilmari Mannsåker> + - 9a01a71 - Updated POD for copy_to and move_to methods <Robert Rothenberg> + - 210a7ef - Stringify destination for copy_to method <Robert Rothenberg> + - 9f83723 - Stringify destination for move_to method <Robert Rothenberg> + - 5e2cb26, d5c7e62 - Add Continuous Integration with Travis CI <Ken Williams> + - d372be1 - Change bugtracker to github's <Ken Williams> + +------------------------------------------------------------------- Old: ---- Path-Class-0.33.tar.gz New: ---- Path-Class-0.35.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Path-Class.spec ++++++ --- /var/tmp/diff_new_pack.HEXofA/_old 2014-09-17 17:26:31.000000000 +0200 +++ /var/tmp/diff_new_pack.HEXofA/_new 2014-09-17 17:26:32.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Path-Class # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Path-Class -Version: 0.33 +Version: 0.35 Release: 0 %define cpan_name Path-Class Summary: Cross-platform path specification manipulation @@ -33,7 +33,6 @@ BuildRequires: perl(Module::Build) >= 0.3601 BuildRequires: perl(Perl::OSType) BuildRequires: perl(parent) - Requires: perl(File::Spec) >= 3.26 Requires: perl(Perl::OSType) Requires: perl(parent) @@ -103,6 +102,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes LICENSE README +%doc Changes cpanfile LICENSE README %changelog ++++++ Path-Class-0.33.tar.gz -> Path-Class-0.35.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/Build.PL new/Path-Class-0.35/Build.PL --- old/Path-Class-0.33/Build.PL 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/Build.PL 2014-09-15 04:32:09.000000000 +0200 @@ -18,7 +18,7 @@ "Ken Williams <kwilliams\@cpan.org>" ], "dist_name" => "Path-Class", - "dist_version" => "0.33", + "dist_version" => "0.35", "license" => "perl", "module_name" => "Path::Class", "recommends" => {}, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/Changes new/Path-Class-0.35/Changes --- old/Path-Class-0.33/Changes 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/Changes 2014-09-15 04:32:09.000000000 +0200 @@ -1,5 +1,27 @@ Revision history for Perl extension Path::Class. +0.35 Sun Sep 14 21:29:07 CDT 2014 + + - fce4b8e - Fixed a t/03-filesystem.t test error on Windows <Andrew Gregory> + + +0.34 Thu Aug 28 22:27:03 CDT 2014 + + - df23e17 - Add a new spew_lines() method <William Stevenson> + + - 3ffef39 - Don't convert file into directory in subsumes() <Dagfinn Ilmari Mannsåker> + + - 9a01a71 - Updated POD for copy_to and move_to methods <Robert Rothenberg> + + - 210a7ef - Stringify destination for copy_to method <Robert Rothenberg> + + - 9f83723 - Stringify destination for move_to method <Robert Rothenberg> + + - 5e2cb26, d5c7e62 - Add Continuous Integration with Travis CI <Ken Williams> + + - d372be1 - Change bugtracker to github's <Ken Williams> + + 0.33 Wed Dec 11 21:30:35 CST 2013 - New copy_to() and move_to() methods. [Robert Rothenberg & Ken Williams] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/LICENSE new/Path-Class-0.35/LICENSE --- old/Path-Class-0.33/LICENSE 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/LICENSE 2014-09-15 04:32:09.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2013 by Ken Williams. +This software is copyright (c) 2014 by Ken Williams. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2013 by Ken Williams. +This software is Copyright (c) 2014 by Ken Williams. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2013 by Ken Williams. +This software is Copyright (c) 2014 by Ken Williams. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/MANIFEST new/Path-Class-0.35/MANIFEST --- old/Path-Class-0.33/MANIFEST 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/MANIFEST 2014-09-15 04:32:09.000000000 +0200 @@ -8,6 +8,7 @@ README README.pod SIGNATURE +cpanfile dist.ini lib/Path/Class.pm lib/Path/Class/Dir.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/META.yml new/Path-Class-0.35/META.yml --- old/Path-Class-0.33/META.yml 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/META.yml 2014-09-15 04:32:09.000000000 +0200 @@ -34,6 +34,6 @@ parent: 0 strict: 0 resources: - bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Path-Class + bugtracker: http://github.com/kenahoo/Path-Class/issues repository: git://github.com/kenahoo/Path-Class.git -version: 0.33 +version: 0.35 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/Makefile.PL new/Path-Class-0.35/Makefile.PL --- old/Path-Class-0.33/Makefile.PL 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/Makefile.PL 2014-09-15 04:32:09.000000000 +0200 @@ -44,7 +44,7 @@ "Test::More" => 0, "warnings" => 0 }, - "VERSION" => "0.33", + "VERSION" => "0.35", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/README new/Path-Class-0.35/README --- old/Path-Class-0.33/README 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/README 2014-09-15 04:32:09.000000000 +0200 @@ -1,11 +1,11 @@ This archive contains the distribution Path-Class, -version 0.33: +version 0.35: Cross-platform path specification manipulation -This software is copyright (c) 2013 by Ken Williams. +This software is copyright (c) 2014 by Ken Williams. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/SIGNATURE new/Path-Class-0.35/SIGNATURE --- old/Path-Class-0.33/SIGNATURE 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/SIGNATURE 2014-09-15 04:32:09.000000000 +0200 @@ -14,33 +14,34 @@ -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 -SHA1 6ac2c44c6b51b498e1b99b7300d2ec7acbdeae2a Build.PL -SHA1 2c368cb4b8cf9b19fbc367d91aa7124f85969215 Changes +SHA1 251efa678f8a84675eac8d0584e757b472ed35d8 Build.PL +SHA1 5ba036a7d7e871ca8903bd8806f0c7c69b513b34 Changes SHA1 771edd8859e502c500ae883cd9ebb7105c1b453d INSTALL -SHA1 89884a27efb5ba2d96f817f53a1726b00e185225 LICENSE -SHA1 dd5bf80ec1724df9d52ce5ffcc29753b83bd8f24 MANIFEST -SHA1 86ef234e4beca4cf4675df53124e3326b67ee4ed META.yml -SHA1 1bb04d14f2d3c4f16271d55add732449843cd07b Makefile.PL -SHA1 ed8969489ffd5de1bf7e1d6e976bb550a66bb21d README +SHA1 3435fed6ff44a424d628bb95c7f69b2f536cd892 LICENSE +SHA1 78bde2759290c5e4b12079578f187a024e11dd16 MANIFEST +SHA1 aaa3716276ccd7841e2d5511aa6af878250fe4b3 META.yml +SHA1 d159030591912fb61ee6bacb857aaacc94202080 Makefile.PL +SHA1 914f9acd84676f28eabb708c68f31235675aa6e6 README SHA1 767e92b9cc035fc40c62a7deda816efddd4c14f2 README.pod -SHA1 eb9ac556153244a9f9ef7ac46e67cd80342f9a2e dist.ini -SHA1 3a08937fcaa637509bb453f659b2a1ea4567d78a lib/Path/Class.pm -SHA1 c5c7d0576fa121e2f2709d118311b0c0d0c41b9c lib/Path/Class/Dir.pm -SHA1 0381b3ab0fa4038e272285fbca79c7a4e46c7b3e lib/Path/Class/Entity.pm -SHA1 7b791de2a209f88be3fcfaacb032de1a0ef07abc lib/Path/Class/File.pm -SHA1 212c128d87fa012c36016210e6e9213112fc3c23 t/01-basic.t +SHA1 18788b0ba358db9fe04c981452039f3bd62bcdb2 cpanfile +SHA1 b59d7dbc33a1ea679b47ac462be15558c5b788a0 dist.ini +SHA1 e1c966a8eef1892574ca3f4e49d82bbb55ef7b1b lib/Path/Class.pm +SHA1 0a47d807085c39b384a75ac6701168bac070b051 lib/Path/Class/Dir.pm +SHA1 e3d51c703ac215b25409b75424e1e550cbabc061 lib/Path/Class/Entity.pm +SHA1 6710252344b164ad91f2834832ee5c1d2dcab5e8 lib/Path/Class/File.pm +SHA1 1984dc68cf6d60e09510af962e56f63c42c0b706 t/01-basic.t SHA1 2dc6abce3b4c4601fe22bce9b0d58cb9484bcd0f t/02-foreign.t -SHA1 e89a18c10016807e90a5070cff509c71adf36b65 t/03-filesystem.t +SHA1 adc77bc8513166b9ee1ceca92497ec80de56670a t/03-filesystem.t SHA1 d18a55c06da766987268ad541578a03a17ecee41 t/04-subclass.t SHA1 a154070d2cb1369f6cebf4228742edea39c43c63 t/05-traverse.t SHA1 c71c41e78012d9577c47aa71b6d962e2c70d0e0e t/06-traverse_filt.t SHA1 108772f2ba8c196345adf814a39a03401031651c t/07-recurseprune.t SHA1 fa45d6e6ab1cd421349dea4ef527bfd5cdc8a09e t/author-critic.t -----BEGIN PGP SIGNATURE----- -Version: GnuPG/MacGPG2 v2.0.22 (Darwin) +Version: GnuPG v1 Comment: GPGTools - http://gpgtools.org -iEYEARECAAYFAlKpMecACgkQgrvMBLfvlHbwbACg5wAMCh5qitUbcs4R4qyB0qQQ -X8MAoI7fBptesxgYcVRv0o/OLYaM/MlP -=fjvh +iEYEARECAAYFAlQWT6QACgkQgrvMBLfvlHYujgCfc5Uujo7Qqrkp0WF9rJJF68/D +v7IAoOVeREvngdENutm3UbM/7LsHiYPC +=ebAU -----END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/cpanfile new/Path-Class-0.35/cpanfile --- old/Path-Class-0.33/cpanfile 1970-01-01 01:00:00.000000000 +0100 +++ new/Path-Class-0.35/cpanfile 2014-09-15 04:32:09.000000000 +0200 @@ -0,0 +1,30 @@ +requires "Carp" => "0"; +requires "Cwd" => "0"; +requires "Exporter" => "0"; +requires "File::Copy" => "0"; +requires "File::Path" => "0"; +requires "File::Spec" => "3.26"; +requires "File::Temp" => "0"; +requires "File::stat" => "0"; +requires "IO::Dir" => "0"; +requires "IO::File" => "0"; +requires "Perl::OSType" => "0"; +requires "Scalar::Util" => "0"; +requires "overload" => "0"; +requires "parent" => "0"; +requires "strict" => "0"; + +on 'build' => sub { + requires "Module::Build" => "0.3601"; +}; + +on 'test' => sub { + requires "Test" => "0"; + requires "Test::More" => "0"; + requires "warnings" => "0"; +}; + +on 'configure' => sub { + requires "ExtUtils::MakeMaker" => "6.30"; + requires "Module::Build" => "0.3601"; +}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/dist.ini new/Path-Class-0.35/dist.ini --- old/Path-Class-0.33/dist.ini 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/dist.ini 2014-09-15 04:32:09.000000000 +0200 @@ -1,10 +1,25 @@ name = Path-Class -version = 0.33 +version = 0.35 author = Ken Williams <[email protected]> license = Perl_5 copyright_holder = Ken Williams -[@Basic] +[GatherDir] + exclude_filename = cpanfile +[PruneCruft] +[ManifestSkip] +[MetaYAML] +[License] +[Readme] +[ExtraTests] +[ExecDir] +[ShareDir] +[MakeMaker] +[Manifest] +[TestRelease] +[ConfirmRelease] +[UploadToCPAN] + [PkgVersion] [PodVersion] @@ -15,6 +30,7 @@ [Signature] [Bugtracker] +web = http://github.com/kenahoo/%s/issues [Repository] [ModuleBuild] [InstallGuide] @@ -26,3 +42,9 @@ skip = ^English$ [Git::Tag] + +;; TravisCI integration, see +;; http://blogs.perl.org/users/neilb/2014/08/try-travis-ci-with-your-cpan-distributions.html +[CPANFile] +[CopyFilesFromBuild] +copy = cpanfile diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/lib/Path/Class/Dir.pm new/Path-Class-0.35/lib/Path/Class/Dir.pm --- old/Path-Class-0.33/lib/Path/Class/Dir.pm 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/lib/Path/Class/Dir.pm 2014-09-15 04:32:09.000000000 +0200 @@ -2,7 +2,7 @@ package Path::Class::Dir; { - $Path::Class::Dir::VERSION = '0.33'; + $Path::Class::Dir::VERSION = '0.35'; } use Path::Class::File; @@ -273,7 +273,7 @@ my ($self, $other) = @_; die "No second entity given to subsumes()" unless $other; - $other = $self->new($other) unless UNIVERSAL::isa($other, __PACKAGE__); + $other = $self->new($other) unless UNIVERSAL::isa($other, "Path::Class::Entity"); $other = $other->dir unless $other->is_dir; if ($self->is_absolute) { @@ -321,7 +321,7 @@ =head1 VERSION -version 0.33 +version 0.35 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/lib/Path/Class/Entity.pm new/Path-Class-0.35/lib/Path/Class/Entity.pm --- old/Path-Class-0.33/lib/Path/Class/Entity.pm 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/lib/Path/Class/Entity.pm 2014-09-15 04:32:09.000000000 +0200 @@ -2,7 +2,7 @@ package Path::Class::Entity; { - $Path::Class::Entity::VERSION = '0.33'; + $Path::Class::Entity::VERSION = '0.35'; } use File::Spec 3.26; @@ -99,7 +99,7 @@ =head1 VERSION -version 0.33 +version 0.35 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/lib/Path/Class/File.pm new/Path-Class-0.35/lib/Path/Class/File.pm --- old/Path-Class-0.33/lib/Path/Class/File.pm 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/lib/Path/Class/File.pm 2014-09-15 04:32:09.000000000 +0200 @@ -2,7 +2,7 @@ package Path::Class::File; { - $Path::Class::File::VERSION = '0.33'; + $Path::Class::File::VERSION = '0.35'; } use Path::Class::Dir; @@ -19,14 +19,14 @@ my @dirs = @_; my ($volume, $dirs, $base) = $self->_spec->splitpath($file); - + if (length $dirs) { push @dirs, $self->_spec->catpath($volume, $dirs, ''); } - + $self->{dir} = @dirs ? $self->dir_class->new(@dirs) : undef; $self->{file} = $base; - + return $self; } @@ -133,6 +133,23 @@ return; } +sub spew_lines { + my $self = shift; + my %args = splice( @_, 0, @_-1 ); + + my $content = $_[0]; + + # If content is an array ref, appends $/ to each element of the array. + # Otherwise, if it is a simple scalar, just appends $/ to that scalar. + + $content + = ref( $content ) eq 'ARRAY' + ? [ map { $_, $/ } @$content ] + : "$content$/"; + + return $self->spew( %args, $content ); +} + sub remove { my $file = shift->stringify; return unlink $file unless -e $file; # Sets $! correctly @@ -155,11 +172,11 @@ if ( !Perl::OSType::is_os_type('Unix') ) { - return unless File::Copy::cp($self->stringify, $dest); + return unless File::Copy::cp($self->stringify, "${dest}"); } else { - return unless (system('cp', $self->stringify, $dest) == 0); + return unless (system('cp', $self->stringify, "${dest}") == 0); } @@ -168,12 +185,12 @@ sub move_to { my ($self, $dest) = @_; - if (File::Copy::move($self->stringify, $dest)) { + if (File::Copy::move($self->stringify, "${dest}")) { my $new = $self->new($dest); $self->{$_} = $new->{$_} foreach (qw/ dir file /); - + return $self; } else { @@ -204,29 +221,29 @@ =head1 VERSION -version 0.33 +version 0.35 =head1 SYNOPSIS use Path::Class; # Exports file() by default - + my $file = file('foo', 'bar.txt'); # Path::Class::File object my $file = Path::Class::File->new('foo', 'bar.txt'); # Same thing - + # Stringifies to 'foo/bar.txt' on Unix, 'foo\bar.txt' on Windows, etc. print "file: $file\n"; - + if ($file->is_absolute) { ... } if ($file->is_relative) { ... } - + my $v = $file->volume; # Could be 'C:' on Windows, empty string # on Unix, 'Macintosh HD:' on Mac OS - + $file->cleanup; # Perform logical cleanup of pathname $file->resolve; # Perform physical cleanup of pathname - + my $dir = $file->dir; # A Path::Class::Dir object - + my $abs = $file->absolute; # Transform to absolute path my $rel = $file->relative; # Transform to relative path @@ -457,6 +474,15 @@ The default C<iomode> is C<w>. +=item $file->spew_lines( $content ); + +Just like C<spew>, but, if $content is a plain scalar, appends $/ +to it, or, if $content is an array ref, appends $/ to each element +of the array. + +Can also take an C<iomode> parameter like C<spew>. Again, the +default C<iomode> is C<w>. + =item $file->traverse(sub { ... }, @args) Calls the given callback on $file. This doesn't do much on its own, @@ -466,7 +492,7 @@ This method will remove the file in a way that works well on all platforms, and returns a boolean value indicating whether or not the -file was successfully removed. +file was successfully removed. C<remove()> is better than simply calling Perl's C<unlink()> function, because on some platforms (notably VMS) you actually may need to call @@ -489,13 +515,16 @@ Generally overridden whenever this class is subclassed. -=item $file->copy_to( $dest ); +=item $copy = $file->copy_to( $dest ); + +Copies the C<$file> to C<$dest>. It returns a L<Path::Class::File> +object when successful, C<undef> otherwise. -Copies the C<$file> to C<$dest>. +=item $moved = $file->move_to( $dest ); -=item $file->move_to( $dest ); +Moves the C<$file> to C<$dest>, and updates C<$file> accordingly. -Moves the C<$file> to C<$dest>. +It returns C<$file> is successful, C<undef> otherwise. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/lib/Path/Class.pm new/Path-Class-0.35/lib/Path/Class.pm --- old/Path-Class-0.33/lib/Path/Class.pm 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/lib/Path/Class.pm 2014-09-15 04:32:09.000000000 +0200 @@ -2,7 +2,7 @@ package Path::Class; { - $Path::Class::VERSION = '0.33'; + $Path::Class::VERSION = '0.35'; } { @@ -34,7 +34,7 @@ =head1 VERSION -version 0.33 +version 0.35 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/t/01-basic.t new/Path-Class-0.35/t/01-basic.t --- old/Path-Class-0.33/t/01-basic.t 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/t/01-basic.t 2014-09-15 04:32:09.000000000 +0200 @@ -7,7 +7,7 @@ use Path::Class; use Cwd; -plan tests => 68; +plan tests => 70; ok(1); my $file1 = Path::Class::File->new('foo.txt'); @@ -147,4 +147,6 @@ ok dir('/foo/bar')->subsumes('foo/bar'), 0; ok dir('/foo/bar')->subsumes('/foo/baz'), 0; ok dir('/')->subsumes('/foo/bar'), 1; + ok dir('/')->subsumes(file('/foo')), 1; + ok dir('/foo')->subsumes(file('/foo')), 0; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Path-Class-0.33/t/03-filesystem.t new/Path-Class-0.35/t/03-filesystem.t --- old/Path-Class-0.33/t/03-filesystem.t 2013-12-12 04:47:52.000000000 +0100 +++ new/Path-Class-0.35/t/03-filesystem.t 2014-09-15 04:32:09.000000000 +0200 @@ -2,7 +2,7 @@ use Test::More; use File::Temp qw(tmpnam tempdir); -plan tests => 101; +plan tests => 103; use_ok 'Path::Class'; @@ -193,6 +193,20 @@ $file->remove; ok not -e $file; +} + +{ + my $file = file('t', 'spew_lines'); + $file->remove() if -e $file; + $file->spew_lines( iomode => '>:raw', "Line1" ); + $file->spew_lines( iomode => '>>:raw', [qw/Line2 Line3/] ); + + my $content = $file->slurp( iomode => '<:raw'); + + is( $content, "Line1$/Line2$/Line3$/" ); + + $file->remove; + ok not -e $file; } { -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
