Add a destroy() method to the Wallet::Admin object and use that instead

of Wallet::Schema::drop in the test suite.

1 files changed, 1 insertions, 3 deletions

diff --git a/perl/t/server.t b/perl/t/server.t
index 5378969..a7b3cc5 100755
--- a/perl/t/server.t
+++ b/perl/t/server.t
@@ -31,7 +31,6 @@ db_setup;
 my $setup = eval { Wallet::Admin->new };
 is ($@, '', 'Database initialization did not die');
 is ($setup->reinitialize ($admin), 1, 'Database initialization succeeded');
-undef $setup;
 
 # Now test the new method.
 $server = eval { Wallet::Server->new (@trace) };
@@ -936,8 +935,7 @@ is ($server->error, 'base:host/default.stanford.edu rejected: host'
     ' with the right error');
 
 # Clean up.
-$schema = Wallet::Schema->new;
-$schema->drop ($server->dbh);
+$setup->destroy;
 unlink 'wallet-db';
 
 # Now test handling of some configuration errors.