texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

texinfo/tp/t accents.t automatic_menus.t automa...


From: Patrice Dumas
Subject: texinfo/tp/t accents.t automatic_menus.t automa...
Date: Sun, 10 Feb 2013 17:16:45 +0000

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        13/02/10 17:16:45

Modified files:
        tp/t           : accents.t automatic_menus.t automatic_nodes.t 
                         collect_spaces.t do_master_menu.t fix_texinfo.t 
                         indent_menu_descriptions.t index_before_item.t 
                         nodenormalization.t paragraph.t 
                         protect_character_in_texinfo.t 
                         reference_to_text_in_tree.t test_brace_count.t 
                         test_fill_gaps_in_sectioning.t 
                         test_protect_hashchar_at_line_beginning.t 
                         test_sort.t test_tree_copy.t test_utils.pl 

Log message:
        Add paths for the internal library copies.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/accents.t?cvsroot=texinfo&r1=1.19&r2=1.20
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/automatic_menus.t?cvsroot=texinfo&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/automatic_nodes.t?cvsroot=texinfo&r1=1.14&r2=1.15
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/collect_spaces.t?cvsroot=texinfo&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/do_master_menu.t?cvsroot=texinfo&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/fix_texinfo.t?cvsroot=texinfo&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/indent_menu_descriptions.t?cvsroot=texinfo&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/index_before_item.t?cvsroot=texinfo&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/nodenormalization.t?cvsroot=texinfo&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/paragraph.t?cvsroot=texinfo&r1=1.24&r2=1.25
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/protect_character_in_texinfo.t?cvsroot=texinfo&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/reference_to_text_in_tree.t?cvsroot=texinfo&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_brace_count.t?cvsroot=texinfo&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_fill_gaps_in_sectioning.t?cvsroot=texinfo&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_protect_hashchar_at_line_beginning.t?cvsroot=texinfo&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_sort.t?cvsroot=texinfo&r1=1.14&r2=1.15
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_tree_copy.t?cvsroot=texinfo&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_utils.pl?cvsroot=texinfo&r1=1.130&r2=1.131

Patches:
Index: accents.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/accents.t,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- accents.t   10 Feb 2013 16:45:08 -0000      1.19
+++ accents.t   10 Feb 2013 17:16:44 -0000      1.20
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 63;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: automatic_menus.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/automatic_menus.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- automatic_menus.t   10 Feb 2013 16:45:08 -0000      1.4
+++ automatic_menus.t   10 Feb 2013 17:16:44 -0000      1.5
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 5;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: automatic_nodes.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/automatic_nodes.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- automatic_nodes.t   10 Feb 2013 16:45:08 -0000      1.14
+++ automatic_nodes.t   10 Feb 2013 17:16:44 -0000      1.15
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 25;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: collect_spaces.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/collect_spaces.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- collect_spaces.t    10 Feb 2013 16:45:08 -0000      1.2
+++ collect_spaces.t    10 Feb 2013 17:16:44 -0000      1.3
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 15;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: do_master_menu.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/do_master_menu.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- do_master_menu.t    10 Feb 2013 16:45:08 -0000      1.5
+++ do_master_menu.t    10 Feb 2013 17:16:44 -0000      1.6
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 5;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: fix_texinfo.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/fix_texinfo.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- fix_texinfo.t       10 Feb 2013 16:45:09 -0000      1.4
+++ fix_texinfo.t       10 Feb 2013 17:16:44 -0000      1.5
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 4;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: indent_menu_descriptions.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/indent_menu_descriptions.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- indent_menu_descriptions.t  10 Feb 2013 16:45:09 -0000      1.2
+++ indent_menu_descriptions.t  10 Feb 2013 17:16:44 -0000      1.3
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 2;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: index_before_item.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/index_before_item.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- index_before_item.t 10 Feb 2013 16:45:09 -0000      1.3
+++ index_before_item.t 10 Feb 2013 17:16:44 -0000      1.4
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 6;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: nodenormalization.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/nodenormalization.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- nodenormalization.t 10 Feb 2013 16:45:09 -0000      1.4
+++ nodenormalization.t 10 Feb 2013 17:16:44 -0000      1.5
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 8;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: paragraph.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/paragraph.t,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- paragraph.t 10 Feb 2013 16:45:09 -0000      1.24
+++ paragraph.t 10 Feb 2013 17:16:44 -0000      1.25
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 129;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use Texinfo::Convert::Paragraph;

Index: protect_character_in_texinfo.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/protect_character_in_texinfo.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- protect_character_in_texinfo.t      10 Feb 2013 16:45:09 -0000      1.3
+++ protect_character_in_texinfo.t      10 Feb 2013 17:16:44 -0000      1.4
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 4;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: reference_to_text_in_tree.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/reference_to_text_in_tree.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- reference_to_text_in_tree.t 10 Feb 2013 16:45:09 -0000      1.3
+++ reference_to_text_in_tree.t 10 Feb 2013 17:16:45 -0000      1.4
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 2;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: test_brace_count.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_brace_count.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- test_brace_count.t  10 Feb 2013 16:45:09 -0000      1.2
+++ test_brace_count.t  10 Feb 2013 17:16:45 -0000      1.3
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 11;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: test_fill_gaps_in_sectioning.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_fill_gaps_in_sectioning.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- test_fill_gaps_in_sectioning.t      10 Feb 2013 16:45:10 -0000      1.3
+++ test_fill_gaps_in_sectioning.t      10 Feb 2013 17:16:45 -0000      1.4
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 8;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: test_protect_hashchar_at_line_beginning.t
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/test_protect_hashchar_at_line_beginning.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- test_protect_hashchar_at_line_beginning.t   10 Feb 2013 16:45:10 -0000      
1.6
+++ test_protect_hashchar_at_line_beginning.t   10 Feb 2013 17:16:45 -0000      
1.7
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 6;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: test_sort.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_sort.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- test_sort.t 10 Feb 2013 16:45:10 -0000      1.14
+++ test_sort.t 10 Feb 2013 17:16:45 -0000      1.15
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 6;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: test_tree_copy.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_tree_copy.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- test_tree_copy.t    10 Feb 2013 16:45:10 -0000      1.3
+++ test_tree_copy.t    10 Feb 2013 17:16:45 -0000      1.4
@@ -3,7 +3,13 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 3;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} };
+        if (defined($ENV{'top_srcdir'})) {
+          unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
 
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';

Index: test_utils.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_utils.pl,v
retrieving revision 1.130
retrieving revision 1.131
diff -u -b -r1.130 -r1.131
--- test_utils.pl       16 Jan 2013 22:02:30 -0000      1.130
+++ test_utils.pl       10 Feb 2013 17:16:45 -0000      1.131
@@ -3,6 +3,14 @@
 use 5.006;
 
 use Test::More;
+use File::Spec;
+BEGIN { if (defined($ENV{'top_srcdir'})) {
+          my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp', 
'maintain');
+          unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 
'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 
'Unicode-EastAsianWidth', 'lib'),
+                         File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 
'lib'));
+      }};
+
 use lib 'maintain/lib/Unicode-EastAsianWidth/lib/';
 use lib 'maintain/lib/libintl-perl/lib/';
 use lib 'maintain/lib/Text-Unidecode/lib/';



reply via email to

[Prev in Thread] Current Thread [Next in Thread]