Add ARM files

[dh-make-perl] / dev / arm / libpod-simple-perl / libpod-simple-perl-3.07 / t / html02.t

diff --git a/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/html02.t b/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/html02.t
new file mode 100644 (file)
index 0000000..02349f3
--- /dev/null
+++ b/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/html02.t
@@ -0,0 +1,40 @@
+# Testing HTML text styles
+
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+#use Pod::Simple::Debug (10);
+
+use strict;
+use Test;
+BEGIN { plan tests => 7};
+use Pod::Simple::HTML;
+
+sub x ($) { Pod::Simple::HTML->_out(
+  sub{  $_[0]->bare_output(1)  },
+  "=pod\n\n$_[0]",
+) }
+
+ok 1;
+
+my @pairs = (
+[ "I<italicized>"   => qq{\n<p><i>italicized</i></p>\n} ],
+[ 'B<bolded>'       => qq{\n<p><b>bolded</b></p>\n}           ],
+[ 'C<code>'         => qq{\n<p><code>code</code></p>\n} ],
+[ 'F</tmp/foo>'     => qq{\n<p><em>/tmp/foo</em></p>\n} ],
+[ 'F</tmp/foo>'     => qq{\n<p><em>/tmp/foo</em></p>\n} ],
+);
+ 
+ 
+foreach( @pairs ) {
+  print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/;
+  ok( x($_->[0]), $_->[1] )
+}
+print "# And one for the road...\n";
+ok 1;
+
+