cp -r from branches/1.50_RC where svk push won't work

[scpubgit/Q-Branch.git] / t / 02where.t

diff --git a/t/02where.t b/t/02where.t
old mode 100644 (file)
new mode 100755 (executable)
index 94ce7d5..8586991
--- a/t/02where.t
+++ b/t/02where.t
@@ -13,7 +13,7 @@ use SQL::Abstract;
 
 my $not_stringifiable = bless {}, 'SQLA::NotStringifiable';
 
-my@x=(
+my @handle_tests = (
     {
         where => {
             requestor => 'inna',
@@ -196,22 +196,19 @@ my@x=(
        bind => [ $not_stringifiable ],
    },
 
-);my @handle_tests = (
    {
-       where => \[ 'foo ?','bar' ],
-       stmt => " WHERE (foo = ?)", 
+       where => \[ 'foo = ?','bar' ],
+       stmt => " WHERE (foo = ?)",
        bind => [ "bar" ],
    },
-);my@x2=(
 
    {
-       where => [ \[ 'foo ?','bar' ] ],
-       stmt => " WHERE (foo = ?)", 
+       where => [ \[ 'foo = ?','bar' ] ],
+       stmt => " WHERE (foo = ?)",
        bind => [ "bar" ],
    },
 );
 
-
 plan tests => ( @handle_tests * 2 ) + 1;
 
 for my $case (@handle_tests) {