Mercurial > hg > monetdb-perl

diff DBD/t/41ddtbl.t @ 26:a0b0ed79f8ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move tests for Bugs 2885, 2889, 2897 and 3235 from main repo to here
author Joeri van Ruth <joeri.van.ruth@monetdbsolutions.com>
date Tue, 15 Dec 2020 15:05:24 +0100 (2020-12-15)
parents 8c8bd15f7a0b
children
line wrap: on
line diff
--- a/DBD/t/41ddtbl.t
+++ b/DBD/t/41ddtbl.t
@@ -16,7 +16,7 @@ use DBD_TEST();
 use Test::More;
 
 if (defined $ENV{DBI_DSN}) {
-  plan tests => 26;
+  plan tests => 28;
 } else {
   plan skip_all => 'Cannot test without DB info';
 }
@@ -165,6 +165,16 @@ if ( $sth ) {
 }
 $sth = undef;
 
+# Bug 2885
+ok($dbh->table_info('', '%', '%'));
+my $stderr;
+eval {
+	local *STDERR;
+	open STDERR, ">>", \$stderr;
+	$sth = $dbh->table_info('foo', '%', '%');
+};
+ok($stderr =~ /not support multiple catalogs/, 'MonetDB does not have catalog')
+
 }
 # -----------------------------------------------------------------------------