New test to prohibit leading tabs

diff --git a/t/04critic.rc b/t/04critic.rc
new file mode 100644 (file)
index 0000000..412f770
--- /dev/null
+++ b/t/04critic.rc
@@ -0,0 +1,5 @@
+include  = CodeLayout::ProhibitHardTabs
+only     = 1
+
+[CodeLayout::ProhibitHardTabs]
+allow_leading_tabs = 0
\ No newline at end of file

diff --git a/t/04critic.t b/t/04critic.t
new file mode 100644 (file)
index 0000000..d94c165
--- /dev/null
+++ b/t/04critic.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use File::Spec;
+use FindBin ();
+use Test::More;
+
+if ( !-e "$FindBin::Bin/../MANIFEST.SKIP" ) {
+    plan skip_all => 'Critic test only for developers.';
+}
+else {
+    eval { require Test::Perl::Critic };
+    if ( $@ ) {
+        plan tests => 1;
+        fail( 'You must install Test::Perl::Critic to run 04critic.t' );
+        exit;
+    }
+}
+
+my $rcfile = File::Spec->catfile( 't', '04critic.rc' );
+Test::Perl::Critic->import( -profile => $rcfile );
+all_critic_ok();
\ No newline at end of file