6 use File::Temp qw( tempdir tempfile );
8 all_perl_files_ok("$Bin/../lib");
10 notabs_ok( $0, "$0 is tab free" );
12 my $tabbed_file1 = make_tabbed_file1();
13 notabs_ok( $tabbed_file1 );
15 my $tabbed_file2 = make_tabbed_file2();
16 notabs_ok( $tabbed_file2 );
18 my $tabbed_file3 = make_tabbed_file3();
19 notabs_ok( $tabbed_file3 );
22 sub make_tabbed_file1 {
23 my $tmpdir = tempdir();
24 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
32 This test script doesn't do anything.
38 print "Hello $name!\n";
45 sub make_tabbed_file2 {
46 my $tmpdir = tempdir();
47 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
55 This test script doesn't do anything.
57 Its OK to have tabs in pod
63 print "Hello $name!\n";
70 sub make_tabbed_file3 {
71 my $tmpdir = tempdir();
72 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pm' );
81 my $self = bless {}, $class;
87 I can have tabs here too!