move author tests to xt and remove environment conditional

[p5sagit/Class-Accessor-Grouped.git] / xt / strict.t

diff --git a/xt/strict.t b/xt/strict.t
new file mode 100644 (file)
index 0000000..60093a1
--- /dev/null
+++ b/xt/strict.t
@@ -0,0 +1,52 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+  plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+}
+
+BEGIN {
+  eval 'use Test::Strict; 1'
+    or plan skip_all => 'Test::Strict not installed';
+}
+
+use File::Find;
+use File::Basename;
+
+## I hope this can go away if Test::Strict or File::Find::Rule
+## finally run under -T. Until then, I'm on my own here. ;-)
+my @files;
+my %trusted = (
+  'NotReallyAClass.pm' => 1
+);
+
+find({
+  wanted => \&wanted,
+  untaint => 1,
+  untaint_pattern => qr|^([-+@\w./]+)$|,
+  untaint_skip => 1,
+  no_chdir => 1
+}, qw(lib t));
+
+sub wanted {
+  my $name = $File::Find::name;
+  my $file = fileparse($name);
+
+  return if $name =~ /TestApp/;
+
+  if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
+    push @files, $name;
+  };
+};
+
+if (scalar @files) {
+  plan tests => scalar @files;
+} else {
+  plan tests => 1;
+  fail 'No perl files found for Test::Strict checks!';
+};
+
+foreach (@files) {
+  strict_ok($_);
+}