urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

not-truncated.t: Work correctly as an installed-test 

Signed-off-by: Simon McVittie <smcv@debian.org>
master
Simon McVittie 2018-03-09 11:24:41 +00:00
parent 7edeed1f1a
commit f17ed8b1be
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
t/not-truncated.t
View File

@ -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;
use Cwd qw(getcwd);
use File::Find qw(find);
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);