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%2Ffcodes.t;fp=dev%2Fi386%2Flibpod-simple-perl%2Flibpod-simple-perl-3.07%2Ft%2Ffcodes.t;h=02e2a27ee1bd1beced5e5a9f385567329cc211a4;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/fcodes.t b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/fcodes.t
new file mode 100644
index 0000000..02e2a27
--- /dev/null
+++ b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/fcodes.t
@@ -0,0 +1,112 @@
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+use strict;
+use Test;
+BEGIN { plan tests => 18 };
+
+#use Pod::Simple::Debug (5);
+
+ok 1;
+
+use Pod::Simple::DumpAsXML;
+use Pod::Simple::XMLOutStream;
+print "# Pod::Simple version $Pod::Simple::VERSION\n";
+sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
+print "# With weird leading whitespace...\n";
+# With weird whitespace
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nI<foo>\n"),
+ '<Document><Para><I>foo</I></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB< foo>\n"),
+ '<Document><Para><B> foo</B></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\tfoo>\n"),
+ '<Document><Para><B> foo</B></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\nfoo>\n"),
+ '<Document><Para><B> foo</B></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo>\n"),
+ '<Document><Para><B>foo</B></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo\t>\n"),
+ '<Document><Para><B>foo </B></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo\n>\n"),
+ '<Document><Para><B>foo </B></Para></Document>'
+);
+
+
+print "#\n# Tests for wedges outside of formatting codes...\n";
+&ok( Pod::Simple::XMLOutStream->_out("=pod\n\nX < 3 and N > 19\n"),
+     Pod::Simple::XMLOutStream->_out("=pod\n\nX E<lt> 3 and N E<gt> 19\n")
+);
+
+
+print "# A complex test with internal whitespace...\n";
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nI<foo>B< bar>C<baz >F< quux\t?>\n"),
+ '<Document><Para><I>foo</I><B> bar</B><C>baz </C><F> quux ?</F></Para></Document>'
+);
+
+
+print "# Without any nesting...\n";
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<a>C<b>I<c>B<d>X<e>\n"),
+ '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
+);
+
+print "# Without any nesting, but with Z's...\n";
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<a>C<b>I<c>B<d>X<e>\n"),
+ '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
+);
+
+
+print "# With lots of nesting, and Z's...\n";
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>foo> I<bar>> B<X<thingZ<>>baz>\n"),
+ '<Document><Para><F><C>foo</C> <I>bar</I></F> <B><X>thing</X>baz</B></Para></Document>'
+);
+
+
+
+print "#\n# *** Now testing different numbers of wedges ***\n";
+print "# Without any nesting...\n";
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< a >>C<<< b >>>I<<<< c >>>>B<< d >>X<< e >>\n"),
+ '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
+);
+
+print "# Without any nesting, but with Z's, and odder whitespace...\n";
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>b >>>I<<<< c  >>>>B<< d \t >>X<<\ne >>\n"),
+ '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
+);
+
+print "# With nesting and Z's, and odder whitespace...\n";
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>bZ<>B<< d \t >>X<<\ne >> >>>I<<<< c  >>>>\n"),
+ '<Document><Para><F>a</F><C>b<B>d</B><X>e</X></C><I>c</I></Para></Document>'
+);
+
+
+print "# Misc...\n";
+ok( Pod::Simple::XMLOutStream->_out(
+ "=pod\n\nI like I<PIE> with B<cream> and Stuff and N < 3 and X<< things >> hoohah\n"
+."And I<pie is B<also> a happy time>.\n"
+."And B<I<<< I like pie >>>.>\n"
+) =>
+"<Document><Para>I like <I>PIE</I> with <B>cream</B> and Stuff and N &#60; 3 and <X>things</X> hoohah "
+."And <I>pie is <B>also</B> a happy time</I>. "
+."And <B><I>I like pie</I>.</B></Para></Document>"
+);
+
+
+
+
+
+print "# Wrapping up... one for the road...\n";
+ok 1;
+print "# --- Done with ", __FILE__, " --- \n";
+
+