comparison MonetDB-CLI/MonetDB/t/02cxn.t @ 43:17959d0d6923

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 154519984d9b
children
comparison
equal deleted inserted replaced
42:4f7a4ee307ba 43:17959d0d6923
18 my $host = $ENV{MONETDB_HOST} || 'localhost'; 18 my $host = $ENV{MONETDB_HOST} || 'localhost';
19 my $port = $ENV{MONETDB_PORT} || 50000; 19 my $port = $ENV{MONETDB_PORT} || 50000;
20 my $user = $ENV{MONETDB_USER} || 'monetdb'; 20 my $user = $ENV{MONETDB_USER} || 'monetdb';
21 my $pass = $ENV{MONETDB_PASS} || 'monetdb'; 21 my $pass = $ENV{MONETDB_PASS} || 'monetdb';
22 my $lang = 'sql'; 22 my $lang = 'sql';
23 my $database = $ENV{MONETDB_DATABASE} || 'demo';
23 24
24 my $cxn = eval { 25 my $cxn = eval {
25 MonetDB::CLI->connect( $host, $port, $user, $pass, $lang ) 26 MonetDB::CLI->connect( $host, $port, $user, $pass, $lang, $database )
26 }; 27 };
27 ok(!$@,'connect') or print "# $@"; 28 ok(!$@,'connect') or print "# $@";
28 ok( $cxn,"Connection object: $cxn"); 29 ok( $cxn,"Connection object: $cxn");
29 30
30 my $req = eval { $cxn->query('select * from environment') }; 31 my $req = eval { $cxn->query('select * from environment') };