test ALL the tests

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

diff --git a/t/strictures.t b/t/strictures.t
index 47cfa20..5dd1953 100644 (file)
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -1,4 +1,7 @@
-mkdir('t/smells-of-vcs/.git') or die "Couldn't create fake .git: $!";
+# -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);
 
@@ -27,7 +30,9 @@ 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");