X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibtest-pod-perl%2Flibtest-pod-perl-1.26%2Ft%2Fgood.t;fp=dev%2Fi386%2Flibtest-pod-perl%2Flibtest-pod-perl-1.26%2Ft%2Fgood.t;h=60e32bd8451113b26b7a0c7f4108ba1aa0b52ea3;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libtest-pod-perl/libtest-pod-perl-1.26/t/good.t b/dev/i386/libtest-pod-perl/libtest-pod-perl-1.26/t/good.t
new file mode 100644
index 0000000..60e32bd
--- /dev/null
+++ b/dev/i386/libtest-pod-perl/libtest-pod-perl-1.26/t/good.t
@@ -0,0 +1,24 @@
+#!perl -T
+
+use strict;
+
+use Test::Builder::Tester tests => 3;
+use Test::More;
+
+BEGIN {
+    use_ok( 'Test::Pod' );
+}
+
+
+my $filename = "t/pod/good.pod";
+GOOD: {
+    test_out( "ok 1 - Blargo!" );
+    pod_file_ok( $filename, "Blargo!" );
+    test_test( 'Handles good.pod OK' );
+}
+
+DEFAULT_NAME: {
+    test_out( "ok 1 - POD test for t/pod/good.pod" );
+    pod_file_ok( $filename );
+    test_test( 'Handles good.pod OK, and builds default name OK' );
+}