summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorRuss Allbery <rra@stanford.edu>2007-12-01 01:14:14 +0000
committerRuss Allbery <rra@stanford.edu>2007-12-01 01:14:14 +0000
commit5500da38b3cbdb153453ace4a344b8c280927b3c (patch)
tree91333bdaf24d025de1e85f09946901a80585b6e8 /perl
parenteb3b657cd8620ecd34dd3c224a4263d90381789b (diff)
Actually use the username and password from the database configuration.
Diffstat (limited to 'perl')
-rwxr-xr-xperl/t/schema.t4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl/t/schema.t b/perl/t/schema.t
index 566d67d..cf98513 100755
--- a/perl/t/schema.t
+++ b/perl/t/schema.t
@@ -54,7 +54,9 @@ unlink 'wallet-db';
# Now repeat the test against the configured database in case it's different.
db_setup;
my $connect = "DBI:${Wallet::Config::DB_DRIVER}:${Wallet::Config::DB_INFO}";
-$dbh = DBI->connect ($connect);
+my $user = $Wallet::Config::DB_USER;
+my $password = $Wallet::Config::DB_PASSWORD;
+$dbh = DBI->connect ($connect, $user, $password);
if (not defined $dbh) {
die "cannot connect to database $connect: $DBI::errstr\n";
}