| Subject: | [PATCH] Changes in Test::More cause Test::File to fail t/owner.t |
The follow change went into Test::More 0.65:
* Made the failure diagnostic message file and line reporting portion
match Perl's for easier integration with Perl aware editors.
(so its "at $file line $line_num." now)
[rt.cpan.org #20639]
When testing bleadperl against a bunch of random CPAN modules, I found a
failure in t/owner.t. The following diff fixes the test failures in
t/owner.t.
--- Makefile.PL.old 2006-11-24 15:41:04.000000000 -0600
+++ Makefile.PL 2006-11-24 15:41:23.000000000 -0600
@@ -10,7 +10,7 @@
'VERSION_FROM' => 'lib/File.pm',
'PREREQ_PM' => {
- 'Test::More' => '0',
+ 'Test::More' => '0.65',
'Test::Builder::Tester' => '0',
'Test::Builder' => '0.32',
},
--- t/owner.t.old 2006-11-24 14:59:06.000000000 -0600
+++ t/owner.t 2006-11-24 15:40:50.000000000 -0600
@@ -85,7 +85,7 @@
"File [$filename] belongs to $owner_name ($owner_uid), not
$other_name "
.
"($other_uid)\n" .
"# Failed test '$name'\n".
- "# in t/owner.t at line " . line_num(+6) . "."
+ "# at t/owner.t line " . line_num(+6) . "."
);
owner_is( $filename, $other_name, $name );
test_test( $name );
@@ -96,7 +96,7 @@
test_diag(
"File [$filename] belongs to $owner_name ($owner_uid)\n" .
"# Failed test '$name'\n" .
- "# in t/owner.t at line " . line_num(+5) . "."
+ "# at t/owner.t line " . line_num(+5) . "."
);
owner_isnt( $filename, $owner_name, "Intentional owner_isnt failure" );
test_test( "Intentional owner_isnt failure");
@@ -108,7 +108,7 @@
"$other_group_name " .
"($other_gid)\n" .
"# Failed test '$name'\n".
- "# in t/owner.t at line " . line_num(+7) . "."
+ "# at t/owner.t line " . line_num(+7) . "."
);
group_is( $filename, $other_group_name, $name );
test_test( $name );
@@ -119,7 +119,7 @@
test_diag(
"File [$filename] belongs to $file_group_name ($file_gid)\n" .
"# Failed test '$name'\n" .
- "# in t/owner.t at line " . line_num(+5) . "."
+ "# at t/owner.t line " . line_num(+5) . "."
);
group_isnt( $filename, $file_group_name, $name );
test_test( $name );