File Coverage

blib/lib/Wetware/Test/Class.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	7	85.7
pod	0	1	0.0
total	22	35	62.8

#-------------------------------------------------------------------------------
#      $URL$
#     $Date$
#   $Author$
# $Revision$
#-------------------------------------------------------------------------------
package Wetware::Test::Class;

use strict;
use warnings;

use Test::Class;
use base 'Test::Class';

use Wetware::Test::Utilities qw(is_testsuite_module);

#------------------------------------------------------------------------------
our $VERSION = 0.02;
#------------------------------------------------------------------------------
INIT { Test::Class->runtests() }
#------------------------------------------------------------------------------

sub is_test_class {
  my ( $class, $file, $dir ) = @_;

  # return unless it's a .pm (the default)
  return unless $class->SUPER::is_test_class( $file, $dir );

  # because the simple Module::Build will copy the .svn and CVS file
  # and we do not consider them valid modules to be testing.
  return if ( $dir =~ m{/CVS/} || $dir =~ m{/.svn/} );

  # and only allow those that is_testsuite_module() allows
  return is_testsuite_module($file);
}

#------------------------------------------------------------------------------

1;

__END__