Mercurial > hg > monetdb-perl
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') }; |