Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libpod-simple-perl / libpod-simple-perl-3.07 / t / ac_d.t

diff --git a/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/ac_d.t b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/ac_d.t
new file mode 100644 (file)
index 0000000..398456d
--- /dev/null
+++ b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/ac_d.t
@@ -0,0 +1,93 @@
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+use strict;
+use Test;
+BEGIN { plan tests => 14 };
+
+#use Pod::Simple::Debug (6);
+
+use Pod::Simple::DumpAsXML;
+use Pod::Simple::XMLOutStream;
+print "# Pod::Simple version $Pod::Simple::VERSION\n";
+
+$Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
+$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
+
+#sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
+
+$Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
+$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
+
+my $x = 'Pod::Simple::XMLOutStream';
+
+ok 1;
+
+print "# Testing exceptions being thrown...\n";
+
+eval { $x->new->accept_directive('head1') };
+if($@) { ok 1 } # print " # Good: exception thrown: $@\n" }
+else   { ok 0,1, 'No exception thrown!' }
+
+eval { $x->new->accept_directive('I like pie') };
+if($@) { ok 1 } # print " # Good: exception thrown: $@\n" }
+else   { ok 0,1, 'No exception thrown!' }
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# print "Testing basic directive behavior...\n";
+
+sub Pd { shift->accept_directive_as_data(     'freepies') }
+sub Pv { shift->accept_directive_as_verbatim( 'freepies') }
+sub Pp { shift->accept_directive_as_processed('freepies') }
+
+ok( $x->_out( "\n=freepies Mmmmpie\n\n") => '/POD ERROR/' );
+
+ok( $x->_out(\&Pp, "\n=freepies Mmmmpie\n\n"),
+  '<Document><freepies>Mmmmpie</freepies></Document>'
+);
+ok( $x->_out(\&Pv, "\n=freepies Mmmmpie\n\n"),
+  '<Document><freepies xml:space="preserve">Mmmmpie</freepies></Document>'
+);
+ok( $x->_out(\&Pd, "\n=freepies Mmmmpie\n\n"),
+  '<Document><freepies xml:space="preserve">Mmmmpie</freepies></Document>'
+);
+
+# print "Testing more complex directive behavior...\n";
+
+ok( $x->_out(\&Pp, "\n=freepies Mmmmpie \n\tI<is good>!  \n\n"),
+  '<Document><freepies>Mmmmpie <I>is good</I>!</freepies></Document>'
+);
+ok( $x->_out(\&Pd, "\n=freepies Mmmmpie \n\tI<is good>!  \n\n"),
+ qq{<Document><freepies xml:space="preserve">Mmmmpie \n\tI&#60;is good&#62;!  </freepies></Document>}
+);
+ok( $x->_out(\&Pv, "\n=freepies Mmmmpie \n\tI<is good>!  \n\n"),
+ qq{<Document><freepies xml:space="preserve">Mmmmpie \n        I&#60;is good&#62;!  </freepies></Document>}
+);
+
+# print "Testing within larger documents...\n";
+
+
+ok( $x->_out(\&Pp, "\n=head1 NAME\n\nPie Consortium -- me gustan pasteles\n\n=freepies Mmmmpie \n\tI<is good>!  \n\nGoody!"),
+  '<Document><head1>NAME</head1><Para>Pie Consortium -- me gustan pasteles</Para><freepies>Mmmmpie <I>is good</I>!</freepies><Para>Goody!</Para></Document>'
+);
+ok( $x->_out(\&Pd, "\n=head1 NAME\n\nPie Consortium -- me gustan pasteles\n\n=freepies Mmmmpie \n\tI<is good>!  \n\nGoody!"),
+ qq{<Document><head1>NAME</head1><Para>Pie Consortium -- me gustan pasteles</Para><freepies xml:space="preserve">Mmmmpie \n\tI&#60;is good&#62;!  </freepies><Para>Goody!</Para></Document>}
+);
+ok( $x->_out(\&Pv, "\n=head1 NAME\n\nPie Consortium -- me gustan pasteles\n\n=freepies Mmmmpie \n\tI<is good>!  \n\nGoody!"),
+ qq{<Document><head1>NAME</head1><Para>Pie Consortium -- me gustan pasteles</Para><freepies xml:space="preserve">Mmmmpie \n        I&#60;is good&#62;!  </freepies><Para>Goody!</Para></Document>}
+);
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+print "# Wrapping up... one for the road...\n";
+ok 1;
+print "# --- Done with ", __FILE__, " --- \n";
+
+
+__END__
+