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

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-03-11 20:58:10 +0000 (Thu, 11 Mar 2010)
New Revision: 8985

Modified:
   ironman/IronMan-Schema/t/20_testdb_remove.t
Log:
Remove t/var and files when done testing

Modified: ironman/IronMan-Schema/t/20_testdb_remove.t
===================================================================
--- ironman/IronMan-Schema/t/20_testdb_remove.t	2010-03-11 20:54:52 UTC (rev 8984)
+++ ironman/IronMan-Schema/t/20_testdb_remove.t	2010-03-11 20:58:10 UTC (rev 8985)
@@ -1,13 +1,14 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+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 {