Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-pod-perl / libtest-pod-perl-1.26 / t / all_pod_files.t

diff --git a/dev/i386/libtest-pod-perl/libtest-pod-perl-1.26/t/all_pod_files.t b/dev/i386/libtest-pod-perl/libtest-pod-perl-1.26/t/all_pod_files.t
new file mode 100644 (file)
index 0000000..de47ce9
--- /dev/null
+++ b/dev/i386/libtest-pod-perl/libtest-pod-perl-1.26/t/all_pod_files.t
@@ -0,0 +1,33 @@
+#!perl -Tw
+
+use strict;
+
+use Test::More tests => 2;
+
+BEGIN {
+    use_ok( "Test::Pod" );
+}
+
+my @expected;
+if ( $^O eq "VMS" ) {
+    @expected = (
+        File::Spec->catfile( 'blib', 'lib', 'Test', 'Pod.pm' ),
+        File::Spec->catfile( 't', 'pod', 'good-pod-script.' ),
+        File::Spec->catfile( 't', 'pod', 'good.pod' ),
+        File::Spec->catfile( 't', 'pod', 'no_pod.pod' ),
+    );
+}
+else {
+    # The expected files have slashes, not File::Spec separators, because
+    # that's how File::Find does it.
+    @expected = qw(
+        blib/lib/Test/Pod.pm
+        t/pod/good-pod-script
+        t/pod/good.pod
+        t/pod/no_pod.pod
+    );
+}
+my @files = sort map { lc } all_pod_files( "blib", "t/pod" );
+@expected = sort map { lc } @expected;
+s{\\}{/}g for @files, @expected;
+is_deeply( \@files, \@expected, "Got all the distro files" );