Author: turnstep
Date: Sun Mar 23 09:50:28 2008
New Revision: 10989
Modified:
DBD-Pg/trunk/t/03dbmethod.t
Log:
All hail Perl::Critic, finder of incredibly minor formatting tics.
Modified: DBD-Pg/trunk/t/03dbmethod.t
==============================================================================
--- DBD-Pg/trunk/t/03dbmethod.t (original)
+++ DBD-Pg/trunk/t/03dbmethod.t Sun Mar 23 09:50:28 2008
@@ -492,8 +492,9 @@
SKIP: {
- skip 'DB handle method column_info attribute "pg_enum_values" requires at
least Postgres 8.3', 2
- unless $dbh->{pg_server_version} >= 80300;
+ if ($pgversion < 80300) {
+ skip 'DB handle method column_info attribute "pg_enum_values"
requires at least Postgres 8.3', 2;
+ }
{
local $dbh->{Warn} = 0;
@@ -509,8 +510,8 @@
$t = q{'DB handle method "column_info" returns proper pg_enum_values'};
is_deeply( $result->{pg_enum_values}, [ qw( foo bar baz buz ) ], $t);
- $dbh->do("DROP TABLE dbd_pg_enum_test");
- $dbh->do("DROP TYPE dbd_pg_enumerated");
+ $dbh->do('DROP TABLE dbd_pg_enum_test');
+ $dbh->do('DROP TYPE dbd_pg_enumerated');
}
#
