r53740 - in /branches/upstream/libtest-eol-perl/current: Changes META.yml lib/Test/EOL.pm t/00-load.t t/12-fail.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Mar 6 18:11:48 UTC 2010
Author: gregoa
Date: Sat Mar 6 18:11:40 2010
New Revision: 53740
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53740
Log:
[svn-upgrade] Integrating new upstream version, libtest-eol-perl (0.7)
Modified:
branches/upstream/libtest-eol-perl/current/Changes
branches/upstream/libtest-eol-perl/current/META.yml
branches/upstream/libtest-eol-perl/current/lib/Test/EOL.pm
branches/upstream/libtest-eol-perl/current/t/00-load.t
branches/upstream/libtest-eol-perl/current/t/12-fail.t
Modified: branches/upstream/libtest-eol-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-eol-perl/current/Changes?rev=53740&op=diff
==============================================================================
--- branches/upstream/libtest-eol-perl/current/Changes (original)
+++ branches/upstream/libtest-eol-perl/current/Changes Sat Mar 6 18:11:40 2010
@@ -1,4 +1,11 @@
Revision history for Test-EOL
+
+0.7 2010-03-03
+ - Deal correctly with -I includes paths that include spaces in the
+ tests to stop them unexpectedly failing.
+ - Remove shelling out to the system rm command in the tests
+ to avoid nasty warnings on Win32.
+ - Remove warning from test diagnostics
0.6 2010-01-19
- I'm so bad at this! Fix another logic error that made all files fail
Modified: branches/upstream/libtest-eol-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-eol-perl/current/META.yml?rev=53740&op=diff
==============================================================================
--- branches/upstream/libtest-eol-perl/current/META.yml (original)
+++ branches/upstream/libtest-eol-perl/current/META.yml Sat Mar 6 18:11:40 2010
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.91'
+generated_by: 'Module::Install version 0.910'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -26,4 +26,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/bobtfish/perl-test-eol.git
-version: 0.6
+version: 0.7
Modified: branches/upstream/libtest-eol-perl/current/lib/Test/EOL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-eol-perl/current/lib/Test/EOL.pm?rev=53740&op=diff
==============================================================================
--- branches/upstream/libtest-eol-perl/current/lib/Test/EOL.pm (original)
+++ branches/upstream/libtest-eol-perl/current/lib/Test/EOL.pm Sat Mar 6 18:11:40 2010
@@ -10,7 +10,7 @@
use vars qw( $VERSION $PERL $UNTAINT_PATTERN $PERL_PATTERN);
-$VERSION = '0.6';
+$VERSION = '0.7';
$PERL = $^X || 'perl';
$UNTAINT_PATTERN = qr|^([-+@\w./:\\]+)$|;
Modified: branches/upstream/libtest-eol-perl/current/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-eol-perl/current/t/00-load.t?rev=53740&op=diff
==============================================================================
--- branches/upstream/libtest-eol-perl/current/t/00-load.t (original)
+++ branches/upstream/libtest-eol-perl/current/t/00-load.t Sat Mar 6 18:11:40 2010
@@ -6,4 +6,4 @@
use_ok( 'Test::EOL' );
}
-diag( "Testing Test::EOL $Test::NoTabs::VERSION, Perl $], $^X" );
+diag( "Testing Test::EOL $Test::EOL::VERSION, Perl $], $^X" );
Modified: branches/upstream/libtest-eol-perl/current/t/12-fail.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-eol-perl/current/t/12-fail.t?rev=53740&op=diff
==============================================================================
--- branches/upstream/libtest-eol-perl/current/t/12-fail.t (original)
+++ branches/upstream/libtest-eol-perl/current/t/12-fail.t Sat Mar 6 18:11:40 2010
@@ -5,7 +5,7 @@
use File::Temp qw( tempdir tempfile );
my $perl = $^X || 'perl';
-my $inc = join(' -I ', @INC) || '';
+my $inc = join(' -I ', map { qq{"$_"} } @INC) || '';
$inc = "-I $inc" if $inc;
{
@@ -17,7 +17,6 @@
my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line 4/m, 'windows EOL found in tmp file 1' );
unlink $outfile;
- system("rm -rf $dir");
}
{
my $dir = make_bad_file_2();
@@ -28,7 +27,6 @@
my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line \d+/m, 'windows EOL found in tmp file2 ' );
unlink $outfile;
- system("rm -rf $dir");
}
{
my ($dir, $file) = make_bad_file_3();
@@ -39,7 +37,6 @@
my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line \d+/m, 'windows EOL found in tmp file 3' );
unlink $outfile;
- system("rm -rf $dir");
}
{
@@ -51,11 +48,10 @@
my $content = <$fh>;
like( $content, qr/^not ok 1 - No windows line endings in '[^']*' on line \d+/m, 'windows EOL found in tmp file 4' );
unlink $outfile;
- system("rm -rf $dir");
}
sub make_bad_file_1 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
print $fh <<"DUMMY";
#!perl
@@ -68,7 +64,7 @@
}
sub make_bad_file_2 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
print $fh <<"DUMMY";
#!perl
@@ -89,7 +85,7 @@
}
sub make_bad_file_3 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pm' );
print $fh <<"DUMMY";
use strict;
@@ -110,7 +106,7 @@
}
sub make_bad_file_4 {
- my $tmpdir = tempdir();
+ my $tmpdir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
print $fh <<"DUMMY";
#!perl
More information about the Pkg-perl-cvs-commits
mailing list