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