Add the original source packages to maemo, source lenny

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

diff --git a/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/closeys.t b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/closeys.t
new file mode 100644 (file)
index 0000000..683ce13
--- /dev/null
+++ b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/closeys.t
@@ -0,0 +1,39 @@
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+use strict;
+use Test;
+BEGIN { plan tests => 3 };
+
+my $d;
+#use Pod::Simple::Debug (\$d,0);
+#use Pod::Simple::Debug (10);
+
+ok 1;
+
+use Pod::Simple::DumpAsXML;
+use Pod::Simple::XMLOutStream;
+print "# Pod::Simple version $Pod::Simple::VERSION\n";
+sub e     ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) }
+
+sub nowhine {
+#  $_[0]->{'no_whining'} = 1;
+  $_[0]->accept_targets("*");
+}
+
+&ok(e(
+"=begin :foo\n\n=begin :bar\n\nZaz\n\n",
+"=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n",
+));
+
+
+print "# Ending ", __FILE__, "\n";
+ok 1;
+
+__END__
+
+