[8052] 01use.t

[gavinsmith0123]

Revision: 8052
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8052
Author:   gavin
Date:     2018-08-13 05:58:55 -0400 (Mon, 13 Aug 2018)
Log Message:
-----------
01use.t

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/t/01use.t

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-08-12 21:37:12 UTC (rev 8051)
+++ trunk/ChangeLog     2018-08-13 09:58:55 UTC (rev 8052)
@@ -1,3 +1,7 @@
+2018-08-13  Gavin Smith  <address@hidden>
+
+       * tp/t/01use.t: Use Texinfo::ModulePath.
+
 2018-08-12  Gavin Smith  <address@hidden>
 
        * tp/Texinfo/Parser.pm (parser): Remove code allowing calling 

Modified: trunk/tp/t/01use.t
===================================================================
--- trunk/tp/t/01use.t  2018-08-12 21:37:12 UTC (rev 8051)
+++ trunk/tp/t/01use.t  2018-08-13 09:58:55 UTC (rev 8052)
@@ -8,7 +8,9 @@
 use Test::More;
 use File::Spec;
 BEGIN { plan tests => 2;
-        if (defined($ENV{'top_srcdir'})) {unshift @INC, 
File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} }
+  require Texinfo::ModulePath;
+  Texinfo::ModulePath::init(undef, undef, 'updirs' => 2);
+}
 use Texinfo::Convert::Texinfo;
 ok(1, "modules loading"); # If we made it this far, we're ok.