"Fossies" - the Fresh Open Source Software Archive

Member "Apache-Gallery-1.0.2/t/007_pod.t" (8 Jun 2011, 406 Bytes) of package /linux/www/old/Apache-Gallery-1.0.2.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 use Test::More;
    2 use File::Spec;
    3 use File::Find;
    4 use strict;
    5 
    6 eval "use Test::Pod 0.95";
    7 
    8 if ($@) {
    9 	plan skip_all => 'Test::Pod v0.95 required for testing POD';
   10 } else {
   11 	Test::Pod->import;
   12 	my @files;
   13 	my $blib = File::Spec->catfile(qw(blib lib));
   14 	find( sub {push @files, $File::Find::name if /\.p(l|m|od)$/}, $blib);
   15 	plan tests => scalar @files;
   16 	foreach my $file (@files) {
   17 		pod_file_ok($file);
   18 	}
   19 }