1 files changed, 2 insertions, 0 deletions
diff --git a/perl/t/acl.t b/perl/t/acl.t
index b1656d1..16af5c1 100755
--- a/perl/t/acl.t
+++ b/perl/t/acl.t
@@ -226,4 +226,6 @@ is ($acl->name, 'example', ' and the right name');
 is ($acl->id, 3, ' and a new ID');
 
 # Clean up.
+my $schema = Wallet::Schema->new;
+$schema->drop ($dbh);
 unlink 'wallet-db';