From 0ec04f853bd1a436b33ddad0feac10e61c791f39 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Thu, 30 Aug 2007 17:51:36 +0000 Subject: Unlink the database before creating it to protect against previous test failures. --- perl/t/schema.t | 1 + 1 file changed, 1 insertion(+) (limited to 'perl/t/schema.t') diff --git a/perl/t/schema.t b/perl/t/schema.t index e97dfc6..e326dca 100755 --- a/perl/t/schema.t +++ b/perl/t/schema.t @@ -17,6 +17,7 @@ ok (@sql > 0, 'sql() returns something'); is (scalar (@sql), 22, ' and returns the right number of statements'); # Create a SQLite database to use for create. +unlink 'wallet-db'; my $dbh = DBI->connect ("DBI:SQLite:wallet-db"); if (not defined $dbh) { die "cannot create database wallet-db: $DBI::errstr\n"; -- cgit v1.2.3