[Bast-commits] r8984 - ironman/IronMan-Schema/t

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-03-11 20:54:52 +0000 (Thu, 11 Mar 2010)
New Revision: 8984

Added:
   ironman/IronMan-Schema/t/20_testdb_remove.t
Log:
Remove the test database once we're done testing

Added: ironman/IronMan-Schema/t/20_testdb_remove.t
===================================================================
--- ironman/IronMan-Schema/t/20_testdb_remove.t	                        (rev 0)
+++ ironman/IronMan-Schema/t/20_testdb_remove.t	2010-03-11 20:54:52 UTC (rev 8984)
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+my $dir = "t/var/";
+my $file = "test.db";
+
+if(-e $dir . $file) {
+    ok(unlink($dir . $file), "Removing test database.");
+}
+
+else {
+    fail("Can't find the test database.");
+}
+