X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstrictures.t;h=5dd1953a8b7bbb4d8e726d4fddec0707957da3bf;hb=084caaf3333363995b31eb2f4b2e7c6bcfda9146;hp=f497325e1de12d34618e886a65490e24b70acb19;hpb=eae006ee3476346901d8edb6c73b1fed4a98c766;p=p5sagit%2Fstrictures.git

diff --git a/t/strictures.t b/t/strictures.t
index f497325..5dd1953 100644
--- 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;