only try and mkdir the .git if it doesn't already exist

If it does, the mkdir failes with 'File exists'. Didn't spot this during
testing because I only ran the tests once.

So we check it's not already there. Cleanup doesn't seem worth it.

diff --git a/Changes b/Changes
index f44da17..48adc58 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - only try and mkdir the .git if it doesn't already exist so repeated
+    test runs don't explode
 1.002001 - 2011-02-25
   - switch .svn to .git in smells-of-vcs test and create it ourselves
     to ease importing of this dist into subversion repositories

diff --git a/t/strictures.t b/t/strictures.t
index 47cfa20..e6da256 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);