Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

* 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...
commit 8de2c18513ec63509f3a3cb94a1fc246ba1e28a0 1 parent 7b9ba00
brian d foy authored
1  Changes
@@ -15,7 +15,6 @@
15 15 I also added file_line_count_isnt and file_line_count_between.
16 16 * There aren't any other improvements, so you don't need to
17 17 upgrade unless you want the new functions.
18   - :wq
19 18
20 19 1.23 - Wed Apr 23 13:10:39 2008
21 20 * [BUG FIX] owner_is and group_is now fail if the owner or
1  MANIFEST
@@ -5,7 +5,6 @@ LICENSE
5 5 Makefile.PL
6 6 MANIFEST This list of files
7 7 README
8   -t/links.t
9 8 t/load.t
10 9 t/normalize.t
11 10 t/owner.t
2  lib/File.pm
@@ -23,7 +23,7 @@ use Test::Builder;
23 23 file_line_count_is file_line_count_isnt file_line_count_between
24 24 );
25 25
26   -$VERSION = '1.24_02';
  26 +$VERSION = '1.24_03';
27 27
28 28 {
29 29 use warnings;
2  t/links.t
@@ -2,7 +2,7 @@
6 t/test_files.t
@@ -74,7 +74,7 @@ test_out( "not ok 1 - $name" );
74 74 test_diag(
75 75 "Expected [3] lines in [$file], got [$lines] lines\n" .
76 76 "# Failed test '$name'\n" .
77   - "# at t/test_files.t line " . line_num(+5) . "."
  77 + "# at $0 line " . line_num(+5) . "."
78 78 );
79 79 file_line_count_is( $file, $linesp );
80 80 test_test();
@@ -88,7 +88,7 @@ test_out( "not ok 1 - $name" );
88 88 test_diag(
89 89 "Expected something other than [$lines] lines in [$file], but got [$lines] lines\n" .
90 90 "# Failed test '$name'\n" .
91   - "# at t/test_files.t line " . line_num(+5) . "."
  91 + "# at $0 line " . line_num(+5) . "."
92 92 );
93 93 file_line_count_isnt( $file, $lines );
94 94 test_test();
@@ -110,7 +110,7 @@ test_out( "not ok 1 - $name" );
110 110 test_diag(
111 111 "Expected a line count between [$linesp] and [@{[$linesp+1]}] in [$file], but got [$lines] lines\n" .
112 112 "# Failed test '$name'\n" .
113   - "# at t/test_files.t line " . line_num(+4) . "."
  113 + "# at $0 line " . line_num(+4) . "."
114 114 );
115 115 file_line_count_between( $file, $linesp, $linesp + 1 );
116 116 test_test();

0 comments on commit 8de2c18

Please sign in to comment.
Something went wrong with that request. Please try again.