projects / dh-make-perl / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Add ARM files
[dh-make-perl] / dev / arm / libpod-simple-perl / libpod-simple-perl-3.07 / t / verbatim.t
diff --git a/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/verbatim.t b/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/verbatim.t
new file mode 100644 (file)
index 0000000..299356b
--- /dev/null
+++ b/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/verbatim.t
@@ -0,0 +1,363 @@
+# Testing verbatim sections
+use strict;
+use Test;
+BEGIN { plan tests => 31 };
+
+#use Pod::Simple::Debug (6);
+
+ok 1;
+
+use Pod::Simple::DumpAsXML;
+use Pod::Simple::XMLOutStream;
+print "# Pod::Simple version $Pod::Simple::VERSION\n";
+sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
+&ok( e "", "" );
+&ok( e "\n", "", );
+
+
+
+
+&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" );
+&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" );
+
+
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n"),
+  qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>}
+);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n quux\n"),
+  qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n quux</Verbatim></Document>}
+);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\nquux\n"),
+  qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\nquux</Verbatim></Document>}
+);
+
+print "# Contiguous verbatims...\n";
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n quux\n"),
+  qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n quux</Verbatim></Document>}
+);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n quux\n"),
+  qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n\n quux</Verbatim></Document>}
+);
+
+print "# Testing =cut...\n";
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n quux\n"),
+  qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>}
+);
+
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+{
+my $it =
+qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim><head1>Foo</head1><Verbatim\nxml:space="preserve"> quux\nquum</Verbatim></Document>}
+;
+
+
+print "# Various \\n-(in)significance sanity checks...\n";
+
+print "#  verbatim/cut/head/verbatim sanity zero...\n";
+
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+
+print "#  verbatim/cut/head/verbatim sanity one...\n";
+
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
+
+print "#  verbatim/cut/head/verbatim sanity two...\n";
+
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+
+print "#  verbatim/cut/head/verbatim sanity three...\n";
+
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+
+print "#  verbatim/cut/head/verbatim sanity four...\n";
+
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
+
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+print "# Testing tab expansion...\n";
+
+&ok( e
+q{=pod
+
+ here we go now
+a
+ b
+  c
+   d
+    e
+     f
+      g
+       h
+        i
+         j
+          k
+           l
+            m
+             n
+              o
+               p
+                q
+                 r
+                  s
+                   t
+                    u
+                     v
+                      w
+                       x
+                        y
+                         z
+},
+q{=pod
+
+ here we go now
+a
+ b
+  c
+   d
+    e
+     f
+      g
+       h
+        i
+         j
+          k
+           l
+            m
+             n
+              o
+               p
+                q
+                 r
+                  s
+                   t
+                    u
+                     v
+                      w
+                       x
+                        y
+                         z
+},
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+&ok( e
+q{=pod
+
+ here we go now
+a
+.b
+. c
+.  d
+.   e
+.    f
+.     g
+.      h
+.       i
+.        j
+.         k
+.          l
+.           m
+.            n
+.             o
+.              p
+.               q
+.                r
+.                 s
+.                  t
+.                   u
+.                    v
+.                     w
+.                      x
+.                       y
+.                        z
+},
+q{=pod
+
+ here we go now
+a
+.b
+. c
+.  d
+.   e
+.    f
+.     g
+.      h
+.       i
+.        j
+.         k
+.          l
+.           m
+.            n
+.             o
+.              p
+.               q
+.                r
+.                 s
+.                  t
+.                   u
+.                    v
+.                     w
+.                      x
+.                       y
+.                        z
+},
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+&ok( e
+q{=pod
+
+ here we go now
+a
+.b
+..c
+.. d
+..  e
+..   f
+..    g
+..     h
+..      i
+..       j
+..        k
+..         l
+..          m
+..           n
+..            o
+..             p
+..              q
+..               r
+..                s
+..                 t
+..                  u
+..                   v
+..                    w
+..                     x
+..                      y
+..                       z
+},
+q{=pod
+
+ here we go now
+a
+.b
+..c
+.. d
+..  e
+..   f
+..    g
+..     h
+..      i
+..       j
+..        k
+..         l
+..          m
+..           n
+..            o
+..             p
+..              q
+..               r
+..                s
+..                 t
+..                  u
+..                   v
+..                    w
+..                     x
+..                      y
+..                       z
+},
+);
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+&ok( e
+q{=pod
+
+ here we go now
+a
+.b
+..c
+.. d
+..  e
+..   f
+..    g
+..     h
+..      i
+..      .j
+..      . k
+..      .  l
+..      .   m
+..      .    n
+..      .     o
+..      .      p
+..      .       q
+..      .        r
+..      .         s
+..      .          t
+..      .           u
+..      .            v
+..      .             w
+..      .              x
+..      .               y
+..      .                z
+},
+q{=pod
+
+ here we go now
+a
+.b
+..c
+.. d
+..  e
+..   f
+..    g
+..     h
+..      i
+..      .j
+..      . k
+..      .  l
+..      .   m
+..      .    n
+..      .     o
+..      .      p
+..      .       q
+..      .        r
+..      .         s
+..      .          t
+..      .           u
+..      .            v
+..      .             w
+..      .              x
+..      .               y
+..      .                z
+},
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+# TODO: long-line splitting?
+
+
+print "# Wrapping up... one for the road...\n";
+ok 1;
+print "# --- Done with ", __FILE__, " --- \n";
+
+
Unnamed repository; edit this file to name it for gitweb.