diff options
Diffstat (limited to 'perl/t/server.t')
| -rwxr-xr-x | perl/t/server.t | 4 |
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. |