No extra tests on ancient perls

[p5sagit/strictures.git] / t / strictures.t

diff --git a/t/strictures.t b/t/strictures.t
index f497325..5dd1953 100644 (file)
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -1,3 +1,8 @@
+# -e is sufficient here.
+-e 't/smells-of-vcs/.git'
+  or mkdir('t/smells-of-vcs/.git')
+  or die "Couldn't create fake .git: $!";
+
 use Test::More qw(no_plan);
 
 our (@us, @expect);
@@ -25,9 +30,12 @@ foreach my $idx (0 .. $#us) {
   is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
 }
 
-{
+SKIP: {
+  skip 'Extra tests disabled on perls <= 5.008003', 1
+    if $] < 5.008004;
   local $0 = 't/00load.t';
   sub Foo::new { 1 }
+  chdir("t/smells-of-vcs");
   my $r = eval q{
     use strictures 1;
     new Foo 1, 2, 3;