[Bast-commits] r8979 - ironman/Perlanet-IronMan/t

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-03-11 20:36:30 +0000 (Thu, 11 Mar 2010)
New Revision: 8979

Modified:
   ironman/Perlanet-IronMan/t/01_basic.t
Log:
Check for the t/var dir prior to attempting to use it.

Modified: ironman/Perlanet-IronMan/t/01_basic.t
===================================================================
--- ironman/Perlanet-IronMan/t/01_basic.t	2010-03-11 20:34:53 UTC (rev 8978)
+++ ironman/Perlanet-IronMan/t/01_basic.t	2010-03-11 20:36:30 UTC (rev 8979)
@@ -6,6 +6,11 @@
 use IronMan::Schema;
 use Test::More tests => 2;
 
+# Check the var directory exists for our testing.
+unless(-d $dir) {
+    mkdir($dir);
+}
+
 unlink("t/var/test.db");
 my $schema = IronMan::Schema->connect("dbi:SQLite:t/var/test.db");
 $schema->deploy();