Add the following packages libalgorithm-diff-perl libspiffy-perl libtext-diff-perl...

[pkg-perl] / deb-src / libtest-base-perl / libtest-base-perl-0.54 / t / simple.t

diff --git a/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/simple.t b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/simple.t
new file mode 100644 (file)
index 0000000..c308644
--- /dev/null
+++ b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/simple.t
@@ -0,0 +1,30 @@
+use Test::Base;
+
+plan tests => 1 * blocks;
+
+# A silly test instead of pod2html
+for my $block (blocks) {
+    is(
+        uc($block->pod),
+        $block->upper,
+        $block->name, 
+    );
+}
+
+__END__
+=== Header 1 Test
+--- pod
+=head1 The Main Event
+--- upper
+=HEAD1 THE MAIN EVENT
+=== List Test
+--- pod
+=over
+=item * one
+=item * two
+=back
+--- upper
+=OVER
+=ITEM * ONE
+=ITEM * TWO
+=BACK