[gitmo/Class-MOP.git] / xt / author / tabs.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

eval "use Test::NoTabs 0.8";
plan skip_all => "Test::NoTabs 0.8 required for testing tabs" if $@;

for my $file ( qw( mop.c mop.h ), glob "xs/*xs" ) {
    notabs_ok( $file, "$file is tab free" );
}

# Module::Install has tabs, so we can't check 'inc' or ideally '.'
all_perl_files_ok('lib', 't', 'xt');
Commit	Line	Data
0156915c	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	eval "use Test::NoTabs 0.8";
	9	plan skip_all => "Test::NoTabs 0.8 required for testing tabs" if $@;
	10
733125e8	11	for my $file ( qw( mop.c mop.h ), glob "xs/*xs" ) {
	12	notabs_ok( $file, "$file is tab free" );
	13	}
	14
0156915c	15	# Module::Install has tabs, so we can't check 'inc' or ideally '.'
0156915c	16	all_perl_files_ok('lib', 't', 'xt');