diff options
| author | Russ Allbery <eagle@eyrie.org> | 2014-07-11 18:56:33 -0700 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2014-07-11 19:03:34 -0700 |
| commit | 02a629dcc319e418b2f4185acb5bfb22bc86b3eb (patch) | |
| tree | e4cb07e929c06f6ea1bdc654713f1c13b108b5eb /perl/t/init.t | |
| parent | cc9bb004ad8bc00b5685021848eeb1c0b6bd1f51 (diff) | |
Fix test cleanup code to run during global destruction
If we don't run the code to delete the wallet database very late,
destruction of the SQLite objects may recreate the database file.
Move the unlink to an END block to avoid this problem.
Change-Id: Ib5ec2cbd08ba24c99f3dfa1daa01488931c5958f
Reviewed-on: https://gerrit.stanford.edu/1525
Reviewed-by: Russ Allbery <rra@stanford.edu>
Tested-by: Russ Allbery <rra@stanford.edu>
Diffstat (limited to 'perl/t/init.t')
| -rwxr-xr-x | perl/t/init.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl/t/init.t b/perl/t/init.t index 189a689..b8ec3c9 100755 --- a/perl/t/init.t +++ b/perl/t/init.t @@ -3,7 +3,7 @@ # Tests for database initialization. # # Written by Russ Allbery <eagle@eyrie.org> -# Copyright 2007, 2008 +# Copyright 2007, 2008, 2014 # The Board of Trustees of the Leland Stanford Junior University # # See LICENSE for licensing terms. @@ -53,4 +53,6 @@ is ($admin->destroy, 1, 'Destroying the database works'); $acl = eval { Wallet::ACL->new ('ADMIN', $admin->schema) }; like ($@, qr/^cannot search for ACL ADMIN: /, ' and now the database is gone'); -unlink 'wallet-db'; +END { + unlink 'wallet-db'; +} |