#!/usr/bin/perl -w

# $Id$

use strict;
use lib qw(lib);

use File::Find::Rule;
use File::Spec::Functions qw(:ALL);
use Test::More;

use Slim::Test::Base;

eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;

BEGIN {
	use vars qw($topDir @files $count);

	$topDir = Slim::Test::Base->serverDir;

	my @dirs   = (
		catdir($topDir, 'Slim'),
		catdir($topDir, 'Plugins'),
	);

	#all_pod_coverage_ok( all_modules( @dirs ) );

	@files = File::Find::Rule->file->name('*.pm')->in(@dirs);
	$count = scalar @files;
}

use Test::Pod::Coverage tests => $count;

for my $module (@files) {

	$module =~ s!$topDir[/\\]!!;
	$module =~ s!/!::!g;
	$module =~ s!\.pm!!g;

	pod_coverage_ok($module);
}