view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

use Test::More;
use Data::Dumper;

use strict;
use warnings;

my @funcnts;
my @funhist;

BEGIN {
    # use readdir instead of globs b/c of 5.6.0 multithreaded perl debug bug
    opendir( DIR, "data" ) or die( "couldn't open data directory\n" );
    my @files = grep { -f "data/$_" } readdir( DIR );
    closedir( DIR );

    @funcnts = grep { /^funcnts.*\.log$/ } @files;
    @funhist = grep { /^funhist.*\.log$/ } @files;

    plan( tests => @funcnts + @funhist + 1 );
}