Skip to content

Commit

Permalink
keep split tests but simplify with prefix not dir
Browse files Browse the repository at this point in the history
  • Loading branch information
mohawk2 committed Jan 10, 2024
1 parent d569b25 commit 49bd99f
Show file tree
Hide file tree
Showing 13 changed files with 17 additions and 57 deletions.
22 changes: 11 additions & 11 deletions MANIFEST
Original file line number Diff line number Diff line change
Expand Up @@ -720,17 +720,17 @@ t/pdl_from_string.t
t/pdlchar.t
t/pp_croaking.t
t/pp_line_numbers.t
t/primitive/append.t
t/primitive/clip.t
t/primitive/interpolate.t
t/primitive/matmult.t
t/primitive/misc.t
t/primitive/random.t
t/primitive/selector.t
t/primitive/setops.t
t/primitive/stats.t
t/primitive/vector.t
t/primitive/vsearch.t
t/primitive-append.t.t
t/primitive-clip.t.t
t/primitive-interpolate.t.t
t/primitive-matmult.t.t
t/primitive-misc.t.t
t/primitive-random.t.t
t/primitive-selector.t.t
t/primitive-setops.t.t
t/primitive-stats.t.t
t/primitive-vector.t.t
t/primitive-vsearch.t.t
t/pthread.t
t/reduce.t
t/scope.t
Expand Down
52 changes: 6 additions & 46 deletions Makefile.PL
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,6 @@ use 5.010_000;
use ExtUtils::MakeMaker;
use ExtUtils::MakeMaker::Config;
use File::Spec;
use File::Find;

# file globals(!)
my ($pdl_f77conf, $seen_f77conf);
Expand Down Expand Up @@ -77,47 +76,6 @@ sub check_f77conf {
return 1;
}

# returns a list of globs for nested tests in the passed directory, e.g.
# ( 't/*.t', 't/*/*.t' ) which reflect the actual nesting of tests
sub test_globs {
my $dir = shift;
my @depth;
File::Find::find ( { no_chdir => 1, wanted => sub { /\.t$/ and $depth[ 0+ ( () = m{/}g )] = 1 } } , $dir );
return map { 't/' . ('*/' x $_ ). '*.t' } 0..$#depth-1
}

# return a list of tests associated with the PDL core. tests are searched for in 't',
# and may be a single "$test.t" file, or any files within the t/$test directory.
sub coretests {
my @core = qw(
01-pptest autoload bad basic bool clump config constructor core croak lvalue
math matrix matrixops nat_complex ops-bitwise ops pdl_from_string
pdlchar pp_croaking pp_line_numbers primitive pthread reduce
slice subclass thread thread_def ufunc
);

my @tests;

for my $test ( @core ) {

# top level "$test.t" file
my $tfile = File::Spec->catfile('t', $test . '.t');

push @tests, $tfile if -f $tfile;

my $tdir = File::Spec->catfile('t', $test);
if ( -d $tdir ) {
File::Find::find ( { no_chdir => 1,
wanted => sub { /\.t$/ and push @tests, $_; }
},
$tdir );
}
}

return @tests;
}


sub make_PDL_Config_pm {
print "Writing Basic/Core/Config.pm\n";
my $configFile = "Basic/Core/Config.pm";
Expand Down Expand Up @@ -283,9 +241,6 @@ my %makefile_hash = (
AUTHOR => 'PerlDL Developers <[email protected]>',
ABSTRACT => 'Perl Data Language',
BINARY_LOCATION => 'PDL.tar.gz',

# allow nested test directories
test => { TESTS => join( q{ }, test_globs( './t' ) ) },
);

WriteMakefile(%makefile_hash);
Expand Down Expand Up @@ -351,7 +306,12 @@ ppm : doctest ppd
EOT

$text .= "\n" . ::coretarget($self);
my $coretest = join ' ', ::coretests();
my $coretest = join ' ', map File::Spec->catfile('t', $_.'.t'), qw(
01-pptest autoload bad basic bool clump config constructor core croak lvalue
math matrix matrixops nat_complex ops-bitwise ops pdl_from_string
pdlchar pp_croaking pp_line_numbers primitive-* pthread reduce
slice subclass thread thread_def ufunc
);
$text .= <<EOF;
coretest : core
Expand Down
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.

0 comments on commit 49bd99f

Please sign in to comment.