diff --git a/lib/LPSC/Builder/TestRunner.pm b/lib/LPSC/Builder/TestRunner.pm
index 9bc1b31..eafce4f 100644
--- a/lib/LPSC/Builder/TestRunner.pm
+++ b/lib/LPSC/Builder/TestRunner.pm
@@ -72,7 +72,10 @@ sub _getopt {
 sub run {
     my $self = shift;
     if ( $self->_options->{clean} ) {
+        my %test_files_success_status;
+        tie %test_files_success_status, 'DB_File', $db_file;
         %test_files_success_status = ();
+		untie %test_files_success_status;
     }
     for my $test_file ( @{ $self->{test_files} } ) {
         if ( $self->_test_already_succeded($test_file) ) {