Mercurial > hg > monetdb-perl

changeset 43:17959d0d6923

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Also pass MONETDB_DATABASE
author Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>
date Fri, 18 Dec 2020 10:35:27 +0100 (2020-12-18)
parents 4f7a4ee307ba
children b35ed8684036
files MonetDB-CLI-MapiPP/MonetDB/CLI/t/02cxn.t MonetDB-CLI/MonetDB/t/02cxn.t
diffstat 2 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/MonetDB-CLI-MapiPP/MonetDB/CLI/t/02cxn.t
+++ b/MonetDB-CLI-MapiPP/MonetDB/CLI/t/02cxn.t
@@ -20,9 +20,10 @@ my $port = $ENV{MONETDB_PORT} || 50000;
 my $user = $ENV{MONETDB_USER} || 'monetdb';
 my $pass = $ENV{MONETDB_PASS} || 'monetdb';
 my $lang = 'sql';
+my $database = $ENV{MONETDB_DATABASE} || 'demo';
 
 my $cxn = eval {
-  MonetDB::CLI::MapiPP->connect( $host, $port, $user, $pass, $lang )
+  MonetDB::CLI::MapiPP->connect( $host, $port, $user, $pass, $lang, $database )
 };
 ok(!$@,'connect') or print "# $@";
 ok( $cxn,"Connection object: $cxn");
--- a/MonetDB-CLI/MonetDB/t/02cxn.t
+++ b/MonetDB-CLI/MonetDB/t/02cxn.t
@@ -20,9 +20,10 @@ my $port = $ENV{MONETDB_PORT} || 50000;
 my $user = $ENV{MONETDB_USER} || 'monetdb';
 my $pass = $ENV{MONETDB_PASS} || 'monetdb';
 my $lang = 'sql';
+my $database = $ENV{MONETDB_DATABASE} || 'demo';
 
 my $cxn = eval {
-  MonetDB::CLI->connect( $host, $port, $user, $pass, $lang )
+  MonetDB::CLI->connect( $host, $port, $user, $pass, $lang, $database )
 };
 ok(!$@,'connect') or print "# $@";
 ok( $cxn,"Connection object: $cxn");