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

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-03-11 21:17:02 +0000 (Thu, 11 Mar 2010)
New Revision: 8988

Added:
   ironman/Perlanet-IronMan/t/20_testdb_remove.t
Log:
Cleanup after tests

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