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."); }