[libtest-file-perl] 01/06: Add patch to fix test files.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libtest-file-perl.

commit 1458f349c195fafc9eb967f9ac440ee9b061e426
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Sep 10 15:13:51 2016 +0200

    Add patch to fix test files.
    
    After the removal of cwd from @INC t/setup_common is not found anymore.
    Change the requires in the tests to use ./t/setup_common.
    
    Closes: #837237
---
 debian/patches/series                           |   1 +
 debian/patches/t_setup_common_require_cwd.patch | 141 ++++++++++++++++++++++++
 2 files changed, 142 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..1d2b40d
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+t_setup_common_require_cwd.patch
diff --git a/debian/patches/t_setup_common_require_cwd.patch b/debian/patches/t_setup_common_require_cwd.patch
new file mode 100644
index 0000000..53a7853
--- /dev/null
+++ b/debian/patches/t_setup_common_require_cwd.patch
@@ -0,0 +1,141 @@
+Description: After the removal of cwd from @INC t/setup_common is not found.
+ Change the requires in the tests to use ./t/setup_common.
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/837237
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2016-09-10
+Forwarded: https://github.com/briandfoy/test-file/issues/14
+Bug: https://github.com/briandfoy/test-file/issues/14
+
+--- a/t/dm_skeleton.t
++++ b/t/dm_skeleton.t
+@@ -4,7 +4,7 @@
+ use Test::More 0.95;
+ use Test::File;
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ subtest setup => sub {
+ 	ok( defined &Test::File::_dm_skeleton, "_dm_skeleton is defined" );
+--- a/t/file_contains.t
++++ b/t/file_contains.t
+@@ -5,7 +5,7 @@
+ use Test::More 0.95;
+ use Test::File;
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+ 
+--- a/t/file_contains_encoded.t
++++ b/t/file_contains_encoded.t
+@@ -12,7 +12,7 @@
+ my $string2 = 'Я строкой';
+ my $encoding = 'KOI8-R';
+ 
+-require 't/setup_common';
++require './t/setup_common';
+ 
+ my $file = '$file';
+ open my $fh, '>', $file or print "bail out! Could not write to $file: $!";
+--- a/t/file_contains_utf8.t
++++ b/t/file_contains_utf8.t
+@@ -11,7 +11,7 @@
+ my $string1 = 'Καλημέρα κόσμε';
+ my $string2 = 'コンニチハ';
+ 
+-require 't/setup_common';
++require './t/setup_common';
+ 
+ my $file = 'utf8_file';
+ open my $fh, '>', $file or print "bail out! Could not write to utf8_file: $!";
+--- a/t/file_mtime.t
++++ b/t/file_mtime.t
+@@ -5,7 +5,7 @@
+ use Test::More 0.95;
+ use Test::File;
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ 
+ # Setup test env
+--- a/t/file_sizes.t
++++ b/t/file_sizes.t
+@@ -4,7 +4,7 @@
+ use Test::More 0.95;
+ use Test::File;
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+ 
+--- a/t/line_counters.t
++++ b/t/line_counters.t
+@@ -4,7 +4,7 @@
+ use Test::More 0.95;
+ use Test::File;
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ subtest subs_defined => sub {
+ 	my @subs = qw( file_line_count_between file_line_count_is file_line_count_isnt );
+--- a/t/link_counts.t
++++ b/t/link_counts.t
+@@ -4,7 +4,7 @@
+ use Test::More 0.95;
+ use_ok( 'Test::File' );
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+ # Subroutines are defined
+--- a/t/links.t
++++ b/t/links.t
+@@ -8,7 +8,7 @@
+ 
+ plan skip_all => "This system does't do symlinks" unless $can_symlink;
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ subtest dont_work_with_symlinks => sub {
+ 	no warnings 'redefine';
+--- a/t/test_dirs.t
++++ b/t/test_dirs.t
+@@ -7,7 +7,7 @@
+ 
+ use File::Spec::Functions qw(catfile);
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ open FH, '>', catfile( qw(sub_dir subdir_file) ); close FH;
+ 
+ 
+--- a/t/test_files.t
++++ b/t/test_files.t
+@@ -11,7 +11,7 @@
+ 
+ =cut
+ 
+-require "t/setup_common";
++require "./t/setup_common";
+ 
+ test_out( 'ok 1 - readable exists' );
+ file_exists_ok( 'readable' );
+--- a/t/rt/30346.t
++++ b/t/rt/30346.t
+@@ -7,7 +7,7 @@
+ 
+ use Cwd;
+ 
+-require 't/setup_common';
++require './t/setup_common';
+ 
+ subtest file_does_not_exist => sub {
+ 	my $file = "no_such_file-" . "$$" . time() . "b$<$>m";

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtest-file-perl.git