Simplify skip of ODBC-only Firebird tests

diff --git a/t/10_09firebird_common.t b/t/10_09firebird_common.t
index 358c60a..31b65c6 100644 (file)
--- a/t/10_09firebird_common.t
+++ b/t/10_09firebird_common.t
@@ -195,7 +195,10 @@ my $tester = dbixcsl_common_tests->new(
                 'view definition';
 
             # test the fixed up ->_dbh_type_info_type_name for the ODBC driver
-            if ($schema->storage->_dbi_connect_info->[0] =~ /:ODBC:/i) {
+            SKIP: {
+                skip '_dbh_type_info_type_name test is only for DBD::ODBC', 3
+                    unless $schema->storage->_dbi_connect_info->[0] =~ /:ODBC:/i;
+
                 my %truncated_types = (
                       4 => 'INTEGER',
                      -9 => 'VARCHAR(x) CHARACTER SET UNICODE_FSS',
@@ -208,10 +211,6 @@ my $tester = dbixcsl_common_tests->new(
                         "ODBC ->_dbh_type_info_type_name correct for '$truncated_types{$type_num}'";
                 }
             }
-            else {
-                my $tb = Test::More->builder;
-                $tb->skip('not testing _dbh_type_info_type_name on DBD::InterBase') for 1..3;
-            }
         },
     },
 );