From 77b6875f95aa54fe9c648ba114e06d85cf655bb1 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Wed, 23 Jan 2008 03:33:41 +0000 Subject: Refactor database initialization into a new Wallet::Admin module. --- perl/t/server.t | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl/t/server.t') diff --git a/perl/t/server.t b/perl/t/server.t index 893f23a..5378969 100755 --- a/perl/t/server.t +++ b/perl/t/server.t @@ -11,6 +11,7 @@ use Test::More tests => 332; use POSIX qw(strftime); +use Wallet::Admin; use Wallet::Config; use Wallet::Schema; use Wallet::Server; @@ -25,13 +26,14 @@ my $user2 = 'bob@EXAMPLE.COM'; my $host = 'localhost'; my @trace = ($admin, $host); -# Use Wallet::Server to set up the database. +# Use Wallet::Admin to set up the database. db_setup; -my $server = eval { Wallet::Server->initialize ($admin) }; +my $setup = eval { Wallet::Admin->new }; is ($@, '', 'Database initialization did not die'); -ok ($server->isa ('Wallet::Server'), ' and returned the right class'); +is ($setup->reinitialize ($admin), 1, 'Database initialization succeeded'); +undef $setup; -# Now test the new method as well. +# Now test the new method. $server = eval { Wallet::Server->new (@trace) }; is ($@, '', 'Reopening with new did not die'); ok ($server->isa ('Wallet::Server'), ' and returned the right class'); -- cgit v1.2.3