patch works for me

[git.ikiwiki.info.git] / t / not-truncated.t

diff --git a/t/not-truncated.t b/t/not-truncated.t
index 15450c267cf5cf48bf666951f67f87963bdd5298..dba97c8f37623388ffe2aa0dd0c510ae731ce423 100755 (executable)
--- a/t/not-truncated.t
+++ b/t/not-truncated.t
@@ -6,10 +6,39 @@
 # -rw-r--r-- root/root         0 2018-01-06 23:20 ./usr/share/perl5/IkiWiki/Plugin/wikitext.pm
 use warnings;
 use strict;
 # -rw-r--r-- root/root         0 2018-01-06 23:20 ./usr/share/perl5/IkiWiki/Plugin/wikitext.pm
 use warnings;
 use strict;

+use Cwd qw(getcwd);
+use File::Find qw(find);

 use Test::More;
 
 my @libs="IkiWiki.pm";
 use Test::More;
 
 my @libs="IkiWiki.pm";

-push @libs, map { chomp; $_ } `find IkiWiki -type f -name \\*.pm`;
+
+if ($ENV{INSTALLED_TESTS}) {
+       foreach my $libdir (@INC) {
+               my $wanted = sub {
+                       return unless /\.pm$/;
+                       my $name = $File::Find::name;
+                       if ($name =~ s{^\Q$libdir/\E}{}) {
+                               push @libs, $name;
+                       }
+               };
+
+               if (-e "$libdir/IkiWiki.pm" && -d "$libdir/IkiWiki") {
+                       find($wanted, "$libdir/IkiWiki");
+                       last;
+               }
+       }
+}
+else {
+       my $cwd = getcwd;
+       my $wanted = sub {
+               return unless /\.pm$/;
+               my $name = $File::Find::name;
+               if ($name =~ s{^\Q$cwd/\E}{}) {
+                       push @libs, $name;
+               }
+       };
+       find($wanted, "$cwd/IkiWiki");
+}

 
 plan(tests => scalar @libs);
 
 
 plan(tests => scalar @libs);