use strict;
use warnings;

use Test::More;
use File::Find qw(find);

plan skip_all => 'Needs Test::Pod' if not eval "use Pod::Simple::Checker; 1";

plan tests => 1;


my @errors;
find({wanted => \&check, no_chdir => 1}, '.');

#is($errors, '');
use Data::Dumper;
#diag Dumper \@errors;
is_deeply(\@errors, [], 'no errors');


sub check {
    return if $_ !~ /\.pm$/;
    my $p = Pod::Simple::Checker->new;
    my $errors;
    $p->output_string(\$errors);
    $p->parse_file($File::Find::name);
    #$p->parose_file('/home/gabor/work/szabgab/trunk/CGI-FileManager/t/lib/CGI/FileManager/Test.pm');
    push @errors, $errors if $errors;
    return;
}