1#!perl -T 2 3use strict; 4use warnings; 5 6use Test::More tests => 1; 7 8use Test::PerlTidy; 9 10my @wanted_files = sort qw( 11 Makefile.PL 12 t/critic.t 13 t/exclude_files.t 14 t/exclude_perltidy.t 15 t/is_file_tidy.t 16 t/list_files.t 17 t/perltidy.t 18 t/pod-coverage.t 19 t/pod.t 20 t/strict.t 21); 22 23my @found_files = Test::PerlTidy::list_files( 24 path => '.', 25 exclude => [ 'blib', 'lib' ], 26 debug => 0, 27); 28 29is_deeply( \@wanted_files, \@found_files ); 30