monetdb-perl: default - Also pass MONETDB_DATABASE

[Joeri van Ruth]

Changeset: 17959d0d6923 for monetdb-perl
URL: https://dev.monetdb.org/hg/monetdb-perl?cmd=changeset;node=17959d0d6923
Modified Files:
        MonetDB-CLI-MapiPP/MonetDB/CLI/t/02cxn.t
        MonetDB-CLI/MonetDB/t/02cxn.t
Branch: default
Log Message:

Also pass MONETDB_DATABASE


diffs (30 lines):

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");
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list