From 920e9456ee167a3edc023caa65d590d38fb90e22 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Sat, 1 Dec 2007 02:59:07 +0000
Subject: Clean up the database after running this test.

---
 perl/t/acl.t | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl/t/acl.t')

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';
-- 
cgit v1.2.3