Mercurial > hg > monetdb-perl

comparison MonetDB-CLI/MonetDB/t/02cxn.t @ 24:158cd7f37c16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sys.env has since been renamed to sys.environment
author Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>
date Tue, 15 Dec 2020 13:45:21 +0100 (2020-12-15)
parents 8c8bd15f7a0b
children 154519984d9b
comparison
equal deleted inserted replaced
23:3fe895496a96 24:158cd7f37c16
25 MonetDB::CLI->connect( $host, $port, $user, $pass, $lang ) 25 MonetDB::CLI->connect( $host, $port, $user, $pass, $lang )
26 }; 26 };
27 ok(!$@,'connect') or print "# $@"; 27 ok(!$@,'connect') or print "# $@";
28 ok( $cxn,"Connection object: $cxn"); 28 ok( $cxn,"Connection object: $cxn");
29 29
30 my $req = eval { $cxn->query('select * from env') }; 30 my $req = eval { $cxn->query('select * from environment') };
31 ok(!$@,'query') or print "# $@"; 31 ok(!$@,'query') or print "# $@";
32 ok( $req,"Request object: $req"); 32 ok( $req,"Request object: $req");
33 33
34 my $cnt = eval { $req->columncount }; 34 my $cnt = eval { $req->columncount };
35 is( $cnt, 2,"columncount: $cnt"); 35 is( $cnt, 2,"columncount: $cnt");