X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibpod-simple-perl%2Flibpod-simple-perl-3.07%2Ft%2Fhtml01.t;fp=dev%2Fi386%2Flibpod-simple-perl%2Flibpod-simple-perl-3.07%2Ft%2Fhtml01.t;h=2c0b04ef94af8ef9ffcd3ba795f063be37c4ac0d;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/html01.t b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/html01.t
new file mode 100644
index 0000000..2c0b04e
--- /dev/null
+++ b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/html01.t
@@ -0,0 +1,77 @@
+# Testing HTML paragraphs
+
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+use strict;
+use Test;
+BEGIN { plan tests => 8 };
+
+#use Pod::Simple::Debug (10);
+
+use Pod::Simple::HTML;
+
+sub x ($) { Pod::Simple::HTML->_out(
+  sub{  $_[0]->bare_output(1)  },
+  "=pod\n\n$_[0]",
+) }
+
+ok( x(
+q{
+=pod
+ 
+This is a paragraph
+ 
+=cut
+}),
+  qq{\n<p>This is a paragraph</p>\n},
+  "paragraph building"
+);
+
+
+ok( x(qq{=pod\n\nThis is a paragraph}),
+ qq{\n<p>This is a paragraph</p>\n},
+ "paragraph building"
+);
+
+
+ok( x(qq{This is a paragraph}),
+ qq{\n<p>This is a paragraph</p>\n},
+ "paragraph building"
+);
+
+
+
+ok(x(
+'=head1 This is a heading')
+ => q{/\s*<h1><a[^<>]+>This\s+is\s+a\s+heading</a></h1>\s*$/},
+  "heading building"
+);
+
+ok(x(
+'=head2 This is a heading too')
+ => q{/\s*<h2><a[^<>]+>This\s+is\s+a\s+heading\s+too</a></h2>\s*$/},
+  "heading building"
+);
+
+ok(x(
+'=head3 Also, this is a heading')
+ => q{/\s*<h3><a[^<>]+>Also,\s+this\s+is\s+a\s+heading</a></h3>\s*$/},
+  "heading building"
+);
+
+
+ok(x(
+'=head4 This, too, is a heading')
+ => q{/\s*<h4><a[^<>]+>This,\s+too,\s+is\s+a\s+heading</a></h4>\s*$/},
+  "heading building"
+);
+
+
+print "# And one for the road...\n";
+ok 1;
+