The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!/usr/bin/env perl
use 5.010;
use strict;
our $VERSION = '9999';
if ( !$ENV{AUTHOR_TESTING} ) {
plan skip_all => 'these tests are for testing by the author';
}
my @files_to_exclude = qw(Makefile.PL .build blib);
my $xt_author_dir = File::Spec->join( 'xt', 'author' );
find(
sub {
return if $_ eq q(.);
return if $_ eq 'perltidy.t';
my $filename = File::Spec->join( $xt_author_dir, $_ );
push @files_to_exclude, qr{\Q$filename\E}msx;
},
$xt_author_dir,
);
run_tests( exclude => \@files_to_exclude );