clean up messages about unavailable vcs programs
[ikiwiki.git] / t / bazaar.t
index 3e54ec4dc8f57ee7601f572d090a5dd66f04a822..cd840fbe1b39d2d48340430da718e1e8788d5c79 100755 (executable)
@@ -6,11 +6,14 @@ BEGIN {
        $dir = "/tmp/ikiwiki-test-bzr.$$";
        my $bzr=`which bzr`;
        chomp $bzr;
-       if (! -x $bzr || ! mkdir($dir)) {
+       if (! -x $bzr) {
                eval q{
-                       use Test::More skip_all => "bzr not available or could not make test dir"
+                       use Test::More skip_all => "bzr not available"
                }
        }
+       if (! mkdir($dir)) {
+               die $@;
+       }
 }
 use Test::More tests => 17;