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/report.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/report.t')
| -rwxr-xr-x | perl/t/report.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl/t/report.t b/perl/t/report.t index 4ea9628..9563362 100755 --- a/perl/t/report.t +++ b/perl/t/report.t @@ -3,7 +3,7 @@ # Tests for the wallet reporting interface. # # Written by Russ Allbery <eagle@eyrie.org> -# Copyright 2008, 2009, 2010 +# Copyright 2008, 2009, 2010, 2014 # The Board of Trustees of the Leland Stanford Junior University # # See LICENSE for licensing terms. @@ -324,5 +324,7 @@ is ($report->error, undef, ' and no error'); # Clean up. $admin->destroy; -unlink 'wallet-db'; system ('rm -r test-files') == 0 or die "cannot remove test-files\n"; +END { + unlink 'wallet-db'; +} |