Add permanent plumbing for _TempExtlib (d0435d75)

[dbsrgits/DBIx-Class-Historic.git] / xt / dist / strictures.t

diff --git a/xt/dist/strictures.t b/xt/dist/strictures.t
index 7f67779..93feda8 100644 (file)
--- a/xt/dist/strictures.t
+++ b/xt/dist/strictures.t
@@ -1,3 +1,4 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
 use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_strictures';
 
 use warnings;
@@ -5,19 +6,33 @@ use strict;
 
 use Test::More;
 use File::Find;
-use lib 't/lib';
+use File::Spec;
+use Config;
+
 use DBICTest;
 
 # The rationale is - if we can load all our optdeps
 # that are related to lib/ - then we should be able to run
 # perl -c checks (via syntax_ok), and all should just work
 my $missing_groupdeps_present = grep
-  { DBIx::Class::Optional::Dependencies->req_ok_for($_) }
+  { ! DBIx::Class::Optional::Dependencies->req_ok_for($_) }
   grep
     { $_ !~ /^ (?: test | rdbms | dist ) _ /x }
     keys %{DBIx::Class::Optional::Dependencies->req_group_list}
 ;
 
+# don't test syntax when RT#106935 is triggered (mainly CI)
+# FIXME - remove when RT is resolved
+my $tainted_relpath = (
+  length $ENV{PATH}
+    and
+  ${^TAINT}
+    and
+  grep
+    { ! File::Spec->file_name_is_absolute($_) }
+    split /\Q$Config{path_sep}/, $ENV{PATH}
+) ? 1 : 0;
+
 find({
   wanted => sub {
     -f $_ or return;
@@ -28,7 +43,13 @@ find({
         |
       t/lib/DBICTest/Util/OverrideRequire.pm          # no stictures by design (load order sensitive)
         |
-      lib/DBIx/Class/Optional/Dependencies.pm         # no stictures by design (load spee sensitive)
+      t/lib/ANFANG.pm                                 # no stictures by design (load speed sensitive)
+        |
+      lib/DBIx/Class/Optional/Dependencies.pm         # no stictures by design (load speed sensitive)
+        |
+      lib/DBIx/Class/StartupCheck.pm                  # no stictures by design (load speed sensitive)
+        |
+      lib/DBIx/Class/_TempExtlib/.+
     )$}x;
 
     my $f = $_;
@@ -36,8 +57,13 @@ find({
     Test::Strict::strict_ok($f);
     Test::Strict::warnings_ok($f);
 
-    Test::Strict::syntax_ok($f)
-      if ! $missing_groupdeps_present and $f =~ /^ (?: lib  )/x;
+    Test::Strict::syntax_ok($f) if (
+      ! $tainted_relpath
+        and
+      ! $missing_groupdeps_present
+        and
+      $f =~ /^ (?: lib  )/x
+    );
   },
   no_chdir => 1,
 }, (qw(lib t examples maint)) );