t/00load.t: Adjust for ptest

Change load test to look for installed location in @INC as base for
modules instead of locally in 'lib' directory as when run inside the
source tree.

Upstream-Status: Inappropriate [OE ptest specific]

Signed-off-by: Scott Murray <scott.murray@konsulko.com>
---
 t/00load.t | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/t/00load.t b/t/00load.t
index abc8c58..88a5545 100644
--- a/t/00load.t
+++ b/t/00load.t
@@ -5,21 +5,29 @@ use strict;
 use warnings FATAL => 'all';
 
 use Test::More tests => 22;
-use lib 'lib';
 use Path::Tiny;
 
-my $dir  = path('lib/');
+my $installdir = "";
+foreach (@INC) {
+    if (-d "$_/XML/XPath") {
+	$installdir = "$_/XML/XPath";
+	last;
+    }
+}
+my $dir  = path($installdir);
 my $iter = $dir->iterator({
     recurse         => 1,
     follow_symlinks => 0,
 });
 
+BAIL_OUT( "XML::XPath does not compile" ) unless require_ok("XML::XPath");
+
 while (my $path = $iter->()) {
     next if $path->is_dir || $path !~ /\.pm$/;
     my $module = $path->relative;
-    $module =~ s/(?:^lib\/|\.pm$)//g;
+    $module =~ s/(?:^.*XML\/|\.pm$)//g;
     $module =~ s/\//::/g;
-    BAIL_OUT( "$module does not compile" ) unless require_ok($module);
+    BAIL_OUT( "$module does not compile" ) unless require_ok("XML::$module");
 }
 
 diag( "Testing XML::XPath $XML::XPath::VERSION, Perl $], $^X" );