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