r53742 - in /trunk/libtest-eol-perl: Changes META.yml debian/changelog 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:13:59 UTC 2010


Author: gregoa
Date: Sat Mar  6 18:13:51 2010
New Revision: 53742

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53742
Log:
New upstream release.

Modified:
    trunk/libtest-eol-perl/Changes
    trunk/libtest-eol-perl/META.yml
    trunk/libtest-eol-perl/debian/changelog
    trunk/libtest-eol-perl/lib/Test/EOL.pm
    trunk/libtest-eol-perl/t/00-load.t
    trunk/libtest-eol-perl/t/12-fail.t

Modified: trunk/libtest-eol-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-eol-perl/Changes?rev=53742&op=diff
==============================================================================
--- trunk/libtest-eol-perl/Changes (original)
+++ trunk/libtest-eol-perl/Changes Sat Mar  6 18:13:51 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: trunk/libtest-eol-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-eol-perl/META.yml?rev=53742&op=diff
==============================================================================
--- trunk/libtest-eol-perl/META.yml (original)
+++ trunk/libtest-eol-perl/META.yml Sat Mar  6 18:13:51 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: trunk/libtest-eol-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-eol-perl/debian/changelog?rev=53742&op=diff
==============================================================================
--- trunk/libtest-eol-perl/debian/changelog (original)
+++ trunk/libtest-eol-perl/debian/changelog Sat Mar  6 18:13:51 2010
@@ -1,3 +1,9 @@
+libtest-eol-perl (0.7-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sat, 06 Mar 2010 19:12:40 +0100
+
 libtest-eol-perl (0.6-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libtest-eol-perl/lib/Test/EOL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-eol-perl/lib/Test/EOL.pm?rev=53742&op=diff
==============================================================================
--- trunk/libtest-eol-perl/lib/Test/EOL.pm (original)
+++ trunk/libtest-eol-perl/lib/Test/EOL.pm Sat Mar  6 18:13:51 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: trunk/libtest-eol-perl/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-eol-perl/t/00-load.t?rev=53742&op=diff
==============================================================================
--- trunk/libtest-eol-perl/t/00-load.t (original)
+++ trunk/libtest-eol-perl/t/00-load.t Sat Mar  6 18:13:51 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: trunk/libtest-eol-perl/t/12-fail.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-eol-perl/t/12-fail.t?rev=53742&op=diff
==============================================================================
--- trunk/libtest-eol-perl/t/12-fail.t (original)
+++ trunk/libtest-eol-perl/t/12-fail.t Sat Mar  6 18:13:51 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