diff options
| -rwxr-xr-x | t/not-truncated.t | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/t/not-truncated.t b/t/not-truncated.t new file mode 100755 index 000000000..15450c267 --- /dev/null +++ b/t/not-truncated.t @@ -0,0 +1,24 @@ +#!/usr/bin/perl +# Regression test for a weird build issue where wikitext.pm was installed +# as an empty file, possibly caused by parallel builds. This was hopefully +# fixed by making the build steps more robust in 3.20180228. +# https://buildd.debian.org/status/fetch.php?pkg=ikiwiki&arch=all&ver=3.20180105-1&stamp=1515285462&raw=0 +# -rw-r--r-- root/root 0 2018-01-06 23:20 ./usr/share/perl5/IkiWiki/Plugin/wikitext.pm +use warnings; +use strict; +use Test::More; + +my @libs="IkiWiki.pm"; +push @libs, map { chomp; $_ } `find IkiWiki -type f -name \\*.pm`; + +plan(tests => scalar @libs); + +FILE: foreach my $file (@libs) { + foreach my $libdir (@INC) { + if (-e "$libdir/$file") { + ok(-s "$libdir/$file", "$file available in $libdir and not truncated"); + next FILE; + } + } + fail("$file not available in ".join(':', @INC)); +} |