X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02where.t;h=8586991bfe8e762daad62cd57c808f9b7eb1b26a;hb=c59982bbe83211270560d00e073567c29708c7a5;hp=b169de1421e4c1700a9c173c3afc2b90f490876d;hpb=1a828f61e5c85cb650c591fb3e4c12e8db15e845;p=scpubgit%2FQ-Branch.git diff --git a/t/02where.t b/t/02where.t index b169de1..8586991 100644 --- a/t/02where.t +++ b/t/02where.t @@ -13,8 +13,7 @@ use SQL::Abstract; my $not_stringifiable = bless {}, 'SQLA::NotStringifiable'; -my@x=( -);my @handle_tests = ( +my @handle_tests = ( { where => { requestor => 'inna', @@ -199,19 +198,17 @@ my@x=( { where => \[ 'foo = ?','bar' ], - stmt => " WHERE (foo = ?)", + stmt => " WHERE (foo = ?)", bind => [ "bar" ], }, { where => [ \[ 'foo = ?','bar' ] ], - stmt => " WHERE (foo = ?)", + stmt => " WHERE (foo = ?)", bind => [ "bar" ], }, -);my@x2=( ); - plan tests => ( @handle_tests * 2 ) + 1; for my $case (@handle_tests) {