Permalink
Browse files

* Took links.t out of MANIFEST because it doesn't test anything

just yet.

* Use $0 in the error message comparisons in test_files.t so 
the platform can form the path any way that it likes.


git-svn-id: http://brian-d-foy.svn.sourceforge.net/svnroot/brian-d-foy/trunk@2544 d9f60a02-fc28-0410-9752-bc0d6c4f57a6
  • Loading branch information...
1 parent 7b9ba00 commit 8de2c18513ec63509f3a3cb94a1fc246ba1e28a0 @briandfoy committed May 25, 2008
Showing with 5 additions and 7 deletions.
  1. +0 −1 Changes
  2. +0 −1 MANIFEST
  3. +1 −1 lib/File.pm
  4. +1 −1 t/links.t
  5. +3 −3 t/test_files.t
View
@@ -15,7 +15,6 @@
I also added file_line_count_isnt and file_line_count_between.
* There aren't any other improvements, so you don't need to
upgrade unless you want the new functions.
- :wq
1.23 - Wed Apr 23 13:10:39 2008
* [BUG FIX] owner_is and group_is now fail if the owner or
View
@@ -5,7 +5,6 @@ LICENSE
Makefile.PL
MANIFEST This list of files
README
-t/links.t
t/load.t
t/normalize.t
t/owner.t
View
@@ -23,7 +23,7 @@ use Test::Builder;
file_line_count_is file_line_count_isnt file_line_count_between
);
-$VERSION = '1.24_02';
+$VERSION = '1.24_03';
{
use warnings;
View
@@ -2,7 +2,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More tests => 5;
+use Test::More tests => 6;
use Test::File;
=pod
View
@@ -74,7 +74,7 @@ test_out( "not ok 1 - $name" );
test_diag(
"Expected [3] lines in [$file], got [$lines] lines\n" .
"# Failed test '$name'\n" .
- "# at t/test_files.t line " . line_num(+5) . "."
+ "# at $0 line " . line_num(+5) . "."
);
file_line_count_is( $file, $linesp );
test_test();
@@ -88,7 +88,7 @@ test_out( "not ok 1 - $name" );
test_diag(
"Expected something other than [$lines] lines in [$file], but got [$lines] lines\n" .
"# Failed test '$name'\n" .
- "# at t/test_files.t line " . line_num(+5) . "."
+ "# at $0 line " . line_num(+5) . "."
);
file_line_count_isnt( $file, $lines );
test_test();
@@ -110,7 +110,7 @@ test_out( "not ok 1 - $name" );
test_diag(
"Expected a line count between [$linesp] and [@{[$linesp+1]}] in [$file], but got [$lines] lines\n" .
"# Failed test '$name'\n" .
- "# at t/test_files.t line " . line_num(+4) . "."
+ "# at $0 line " . line_num(+4) . "."
);
file_line_count_between( $file, $linesp, $linesp + 1 );
test_test();

0 comments on commit 8de2c18

Please sign in to comment.