Source

Kephra / t / KTestHelper.pm

Full commit
# functions most test scripts need

package KTestHelper;

# making local lib favoured
#BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
#
#use Test::More;
#use Test::NoWarnings;
#use File::Find;
#use Kephra;
#
#diag( "Testing Kephra $Kephra::VERSION, Perl $], $^X" );
#
#my @modules = (
    #@Kephra::external_dependencies, 
    #@Kephra::used_wx_modules, 
    #@{get_submodules()}, 
#);
#plan tests => 1 + @modules;
#
#use_ok($_) for @modules;
#
#sub get_submodules {
    #my @kephra_modules = ();
    #chdir '..' if -d '../t';
    #find( sub {
        #return if not -f $_ or $_ !~ /\.pm$/;
        #my $module = $File::Find::name;
        #$module =~ s|lib/||;
        #$module =~ s|\.pm||;
        #$module =~ s|/|::|g;
        #push @kephra_modules, $module;
    #}, 'lib'); # print "@modules"; #use Data::Dumper; # diag Dumper \@modules;
    #return \@kephra_modules;
#}
#
#exit(0);
#

1;