3 use Test::More no_plan => 1;
7 use File::Temp qw( tempdir tempfile );
9 my $perl = $^X || 'perl';
10 my $inc = join(' -I ', @INC) || '';
11 $inc = "-I $inc" if $inc;
13 test 'bad file 1' => sub {
14 my $dir = make_bad_file_1();
15 my ($fh, $outfile) = tempfile();
16 ok( `$perl $inc -MTest::NoTabs -e "all_perl_files_ok( '$dir' )" 2>&1 > $outfile` );
19 like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 4/m, 'tabs found in tmp file' );
22 test 'bad file 2' => sub {
23 my $dir = make_bad_file_2();
24 my ($fh, $outfile) = tempfile();
25 ok( `$perl $inc -MTest::NoTabs -e "all_perl_files_ok( '$dir' )" 2>&1 > $outfile` );
28 like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 12/m, 'tabs found in tmp file' );
31 test 'bad file 3' => sub {
32 my $file = make_bad_file_3();
33 my ($fh, $outfile) = tempfile();
34 ok( `$perl $inc -MTest::NoTabs -e "all_perl_files_ok( '$file' )" 2>&1 > $outfile` );
37 like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 6/m, 'tabs found in tmp file' );
41 my $tmpdir = tempdir();
42 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
54 my $tmpdir = tempdir();
55 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
63 test.pL - A test script
75 my $tmpdir = tempdir();
76 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pm' );
84 \tmy \$self = bless { }, \$class;
90 nick gerakines software engineer 22