git.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-perl/libtest-pod-perl-1.26/t/all_pod_files.t

   1 #!perl -Tw
   2
   3 use strict;
   4
   5 use Test::More tests => 2;
   6
   7 BEGIN {
   8     use_ok( "Test::Pod" );
   9 }
  10
  11 my @expected;
  12 if ( $^O eq "VMS" ) {
  13     @expected = (
  14         File::Spec->catfile( 'blib', 'lib', 'Test', 'Pod.pm' ),
  15         File::Spec->catfile( 't', 'pod', 'good-pod-script.' ),
  16         File::Spec->catfile( 't', 'pod', 'good.pod' ),
  17         File::Spec->catfile( 't', 'pod', 'no_pod.pod' ),
  18     );
  19 }
  20 else {
  21     # The expected files have slashes, not File::Spec separators, because
  22     # that's how File::Find does it.
  23     @expected = qw(
  24         blib/lib/Test/Pod.pm
  25         t/pod/good-pod-script
  26         t/pod/good.pod
  27         t/pod/no_pod.pod
  28     );
  29 }
  30 my @files = sort map { lc } all_pod_files( "blib", "t/pod" );
  31 @expected = sort map { lc } @expected;
  32 s{\\}{/}g for @files, @expected;
  33 is_deeply( \@files, \@expected, "Got all the distro files" );