From 45e33ff74717f39c421091f1a74f7d895e38bf57 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Wed, 23 Jan 2008 19:17:09 +0000
Subject: Add a destroy() method to the Wallet::Admin object and use that
 instead of Wallet::Schema::drop in the test suite.

---
 perl/t/server.t | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl/t/server.t')

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.
-- 
cgit v1.2.3