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/wa-keyring.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/wa-keyring.t')
| -rwxr-xr-x | perl/t/wa-keyring.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl/t/wa-keyring.t b/perl/t/wa-keyring.t index eaae034..8d8e1fe 100755 --- a/perl/t/wa-keyring.t +++ b/perl/t/wa-keyring.t @@ -3,7 +3,7 @@ # Tests for the WebAuth keyring object implementation. # # Written by Russ Allbery <eagle@eyrie.org> -# Copyright 2013 +# Copyright 2013, 2014 # The Board of Trustees of the Leland Stanford Junior University # # See LICENSE for licensing terms. @@ -179,4 +179,6 @@ is ($object->destroy (@trace), 1, ' but destroying the object succeeds'); # Clean up. $admin->destroy; -unlink ('wallet-db'); +END { + unlink ('wallet-db'); +} |