[Jifty-commit] r5185 - in Jifty-DBI/trunk: t

[Jifty commits]

Author: sartak
Date: Fri Feb 29 20:13:01 2008
New Revision: 5185

Modified:
   Jifty-DBI/trunk/   (props changed)
   Jifty-DBI/trunk/t/06filter_boolean.t

Log:
 r52278 at onn:  sartak | 2008-02-29 20:11:49 -0500
 Fix final test failure: toggle pg_bool_tf before making the query


Modified: Jifty-DBI/trunk/t/06filter_boolean.t
==============================================================================
--- Jifty-DBI/trunk/t/06filter_boolean.t	(original)
+++ Jifty-DBI/trunk/t/06filter_boolean.t	Fri Feb 29 20:13:01 2008
@@ -53,20 +53,20 @@
 
         is($rec->my_data, $bool eq 'true' ? 1 : 0, 'Perl agrees with the expected boolean value');
 
-        my $sth = $handle->simple_query("SELECT my_data FROM users WHERE id = $id");
-        my ($got) = $sth->fetchrow_array;
-
         if ($d eq 'Pg') {
             # this option tells DBD::Pg to keep booleans as 't' and 'f' and not
             # map them to 1 and 0
-            $handle->dbh->{pg_bool_tf} = 0;
+            $handle->dbh->{pg_bool_tf} = 1;
         }
 
+        my $sth = $handle->simple_query("SELECT my_data FROM users WHERE id = $id");
+        my ($got) = $sth->fetchrow_array;
+
         my $method = "canonical_$bool";
         is( $got, $handle->$method, "my_data bool match for " . (defined($input) ? $input : 'undef') . " ($bool)" );
 
         if ($d eq 'Pg') {
-            $handle->dbh->{pg_bool_tf} = 1;
+            $handle->dbh->{pg_bool_tf} = 0;
         }
 
         # undef/NULL