# HG changeset patch
# User Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>
# Date 1608284127 -3600
# Node ID 17959d0d69236e856588349393df388a9e41aa6f
# Parent  4f7a4ee307ba31648024080ba2706d471f206961
Also pass MONETDB_DATABASE

diff --git a/MonetDB-CLI-MapiPP/MonetDB/CLI/t/02cxn.t b/MonetDB-CLI-MapiPP/MonetDB/CLI/t/02cxn.t
--- 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");
diff --git a/MonetDB-CLI/MonetDB/t/02cxn.t b/MonetDB-CLI/MonetDB/t/02cxn.t
--- 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");