[DBD::Pg 06/14] Fix up all type test

[dbdpg-commits]

Committed by pilcrow <m...@pilcrow.madison.wi.us>

Subject: [DBD::Pg 06/14] Fix up all type test

---
 t/03dbmethod.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/t/03dbmethod.t b/t/03dbmethod.t
index a96f1e4..23e1c45 100644
--- a/t/03dbmethod.t
+++ b/t/03dbmethod.t
@@ -26,7 +26,7 @@ my $dbh = connect_database();
 if (! $dbh) {
        plan skip_all => 'Connection to database failed, cannot continue 
testing';
 }
-plan tests => 538;
+plan tests => 543;
 
 isnt ($dbh, undef, 'Connect to database for database handle method testing');
 
@@ -511,6 +511,11 @@ $sth = $dbh->table_info(undef,undef,undef,'TABLE,VIEW');
 $number = $sth->rows();
 cmp_ok ($number, '>', 1, $t);
 
+$t=q{DB handle method "table_info" returns correct number of rows when given a 
'TABLE,VIEW,SYSTEM TABLE,SYSTEM VIEW' type argument};
+$sth = $dbh->table_info(undef,undef,undef,'TABLE,VIEW,SYSTEM TABLE,SYSTEM 
VIEW');
+$number = $sth->rows();
+cmp_ok ($number, '>', 1, $t);
+
 $t='DB handle method "table_info" returns correct number of rows when given an 
invalid type argument';
 $sth = $dbh->table_info(undef,undef,undef,'DUMMY');
 $rows = $sth->rows();
-- 
1.8.4