vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-pod-coverage-perl/libtest-pod-coverage-perl-1.08/t/all_modules.t

   1 #!perl -T
   2
   3 use strict;
   4
   5 use Test::More tests => 2;
   6
   7 BEGIN {
   8     use_ok( "Test::Pod::Coverage" );
   9 }
  10
  11 my @files = Test::Pod::Coverage::all_modules( "blib" );
  12
  13 # The expected files have slashes, not File::Spec separators, because
  14 # that's how File::Find does it.
  15 my @expected = qw( Test::Pod::Coverage );
  16 @files = sort @files;
  17 @expected = sort @expected;
  18 is_deeply( \@files, \@expected, "Got all the distro files" );