Add ARM files

[dh-make-perl] / dev / arm / libarchive-zip-perl / libarchive-zip-perl-1.18 / t / 99_author.t

diff --git a/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/t/99_author.t b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/t/99_author.t
new file mode 100644 (file)
index 0000000..1ec6105
--- /dev/null
+++ b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/t/99_author.t
@@ -0,0 +1,61 @@
+#!/usr/bin/perl -w
+
+use strict;
+BEGIN {
+       $|  = 1;
+       $^W = 1;
+}
+use Test::More;
+
+# Skip if doing a regular install
+unless ( $ENV{AUTOMATED_TESTING} ) {
+       plan( skip_all => "Author tests not required for installation" );
+}
+
+# Can we run the POD tests?
+eval "use Test::Pod 1.00";
+if ( $@ ) {
+       plan( skip_all => "Test::Pod 1.00 required for testing POD" );
+}
+
+
+
+
+
+#####################################################################
+# WARNING: INSANE BLACK MAGIC
+#####################################################################
+
+# Hack Pod::Simple::BlackBox to ignore the Test::Inline
+# "Extended Begin" syntax.
+# For example, "=begin has more than one word errors"
+my $begin = \&Pod::Simple::BlackBox::_ponder_begin;
+sub mybegin {
+       my $para = $_[1];
+       my $content = join ' ', splice @$para, 2;
+       $content =~ s/^\s+//s;
+       $content =~ s/\s+$//s;
+       my @words = split /\s+/, $content;
+       if ( $words[0] =~ /^test(?:ing)?\z/s ) {
+               foreach ( 2 .. $#$para ) {
+                       $para->[$_] = '';
+               }
+               $para->[2] = $words[0];
+       }
+
+       # Continue as normal
+       push @$para, @words;
+       return &$begin(@_);
+}
+
+SCOPE: {
+       local $^W = 0;
+       *Pod::Simple::BlackBox::_ponder_begin = \&mybegin;
+}
+
+#####################################################################
+# END BLACK MAGIC
+#####################################################################
+
+# Test POD
+all_pod_files_ok();