The wallet backend test suite now supports using a database other than

SQLite for testing.

Also start a new Util.pm module for the test suite and move the contents
sub into that module.  More to follow.

1 files changed, 3 insertions, 4 deletions

diff --git a/perl/t/acl.t b/perl/t/acl.t
index bd055d2..64eb15c 100755
--- a/perl/t/acl.t
+++ b/perl/t/acl.t
@@ -15,10 +15,8 @@ use Wallet::ACL;
 use Wallet::Config;
 use Wallet::Server;
 
-# Use a local SQLite database for testing.
-$Wallet::Config::DB_DRIVER = 'SQLite';
-$Wallet::Config::DB_INFO = 'wallet-db';
-unlink 'wallet-db';
+use lib 't/lib';
+use Util;
 
 # Some global defaults to use.
 my $admin = 'admin@EXAMPLE.COM';
@@ -28,6 +26,7 @@ my $host = 'localhost';
 my @trace = ($admin, $host, time);
 
 # Use Wallet::Server to set up the database.
+db_setup;
 my $server = eval { Wallet::Server->initialize ($admin) };
 is ($@, '', 'Database initialization did not die');
 ok ($server->isa ('Wallet::Server'), ' and returned the right class');