diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-12-01 02:59:07 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-12-01 02:59:07 +0000 |
| commit | 920e9456ee167a3edc023caa65d590d38fb90e22 (patch) | |
| tree | 4174ee8ad36bf79440ad6f6cc126b89b3d4d5341 /perl | |
| parent | 7903ae3a9151061395470090ce8a2a328913a152 (diff) | |
Clean up the database after running this test.
Diffstat (limited to 'perl')
| -rwxr-xr-x | perl/t/acl.t | 2 |
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'; |