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

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
comparison
equal deleted inserted replaced
25:154519984d9b 26:a0b0ed79f8ab
14 use DBD_TEST(); 14 use DBD_TEST();
15 15
16 use Test::More; 16 use Test::More;
17 17
18 if (defined $ENV{DBI_DSN}) { 18 if (defined $ENV{DBI_DSN}) {
19 plan tests => 26; 19 plan tests => 28;
20 } else { 20 } else {
21 plan skip_all => 'Cannot test without DB info'; 21 plan skip_all => 'Cannot test without DB info';
22 } 22 }
23 23
24 pass('Table info tests'); 24 pass('Table info tests');
163 } 163 }
164 is( $err, 0,'all table types selected'); 164 is( $err, 0,'all table types selected');
165 } 165 }
166 $sth = undef; 166 $sth = undef;
167 167
168 # Bug 2885
169 ok($dbh->table_info('', '%', '%'));
170 my $stderr;
171 eval {
172 local *STDERR;
173 open STDERR, ">>", \$stderr;
174 $sth = $dbh->table_info('foo', '%', '%');
175 };
176 ok($stderr =~ /not support multiple catalogs/, 'MonetDB does not have catalog')
177
168 } 178 }
169 # ----------------------------------------------------------------------------- 179 # -----------------------------------------------------------------------------
170 180
171 ok( $dbh->disconnect,'Disconnect'); 181 ok( $dbh->disconnect,'Disconnect');