[svn:DBD-Pg] r10562 - DBD-Pg/trunk/t

[turnstep]

Author: turnstep
Date: Tue Jan 15 17:13:22 2008
New Revision: 10562

Modified:
   DBD-Pg/trunk/t/03dbmethod.t
   DBD-Pg/trunk/t/09arrays.t

Log:
More version tsting tweaks.


Modified: DBD-Pg/trunk/t/03dbmethod.t
==============================================================================
--- DBD-Pg/trunk/t/03dbmethod.t (original)
+++ DBD-Pg/trunk/t/03dbmethod.t Tue Jan 15 17:13:22 2008
@@ -131,10 +131,10 @@
 $t=q{ DB handle method "last_insert_id" fails when the sequence name is 
changed and cache is used};
 
 SKIP: {
-       if ($pgversion < 80000) {
+       if ($pgversion < 80200) {
                $dbh->do("DROP TABLE $schema2.$table2");
                $dbh->do("DROP SEQUENCE $schema2.$sequence2");
-               skip 'Cannot test sequence rename on pre-8.0 servers', 2;
+               skip 'Cannot test sequence rename on pre-8.2 servers', 2;
        }
        $dbh->do("ALTER SEQUENCE $schema2.$sequence2 RENAME TO $sequence3");
        $dbh->commit();

Modified: DBD-Pg/trunk/t/09arrays.t
==============================================================================
--- DBD-Pg/trunk/t/09arrays.t   (original)
+++ DBD-Pg/trunk/t/09arrays.t   Tue Jan 15 17:13:22 2008
@@ -265,7 +265,7 @@
 
 ## Use ourselves as a valid role
 my $role = 'SKIP';
-if ($pgversion >= 80000) {
+if ($pgversion >= 80100) {
        $SQL = 'SELECT current_role';
        $role = $dbh->selectall_arrayref($SQL)->[0][0];
 }
@@ -426,10 +426,10 @@
                        next;
                }
        }
-       if ($pgversion < 80000) {
+       if ($pgversion < 80200) {
                if ($input =~ /SKIP/ or $test =~ /Fake NULL|boolean/) {
                  SKIP: {
-                               skip 'Cannot test some array items on old 
pre-8.0 servers', 1;
+                               skip 'Cannot test some array items on pre-8.2 
servers', 1;
                        }
                        next;
                }