[7599] automatic_nodes.t use ModulePath

[gavinsmith0123]

Revision: 7599
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7599
Author:   gavin
Date:     2017-01-01 15:18:42 +0000 (Sun, 01 Jan 2017)
Log Message:
-----------
automatic_nodes.t use ModulePath

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/t/automatic_nodes.t

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-01-01 12:33:24 UTC (rev 7598)
+++ trunk/ChangeLog     2017-01-01 15:18:42 UTC (rev 7599)
@@ -1,5 +1,9 @@
 2017-01-01  Gavin Smith  <address@hidden>
 
+       * tp/t/automatic_nodes.t: Use the "Texinfo::ModulePath" module.
+
+2017-01-01  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/MiscXS/MiscXS.xs,
        * tp/Texinfo/MiscXS/miscxs.c (xs_process_text): New function.
        * tp/Texinfo/Convert/Plaintext.pm: Add a 'UNITCHECK' section to 

Modified: trunk/tp/t/automatic_nodes.t
===================================================================
--- trunk/tp/t/automatic_nodes.t        2017-01-01 12:33:24 UTC (rev 7598)
+++ trunk/tp/t/automatic_nodes.t        2017-01-01 15:18:42 UTC (rev 7599)
@@ -1,19 +1,14 @@
 use strict;
 
 use Test::More;
-use File::Spec;
-BEGIN { plan tests => 24;
-        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/';
-use lib 'maintain/lib/Text-Unidecode/lib/';
+BEGIN {
+  require Texinfo::ModulePath;
+  Texinfo::ModulePath::init(undef, undef, 'updirs' => 2);
+}
+
+BEGIN { plan tests => 24; }
+
 use Texinfo::Parser qw(parse_texi_text);
 use Texinfo::Transformations;
 use Texinfo::Convert::Texinfo;