xt/extra/internals/sqla_condition_parsers.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Test::Warn;
   7 use Test::Exception;
   8
   9
  10 use DBICTest ':DiffSQL';
  11 use DBIx::Class::_Util qw( UNRESOLVABLE_CONDITION dump_value );
  12 use DBIx::Class::SQLMaker::Util qw( normalize_sqla_condition extract_equality_conditions );
  13
  14 BEGIN {
  15   if ( eval { require Test::Differences } ) {
  16     no warnings 'redefine';
  17     *is_deeply = \&Test::Differences::eq_or_diff;
  18   }
  19 }
  20
  21 my $sm = DBICTest->init_schema( no_deploy => 1)->storage->sql_maker;
  22
  23 {
  24   package # hideee
  25     DBICTest::SillyInt;
  26
  27   use overload
  28     fallback => 1,
  29     '0+' => sub { ${$_[0]} },
  30   ;
  31 }
  32 my $num = bless( \do { my $foo = 69 }, 'DBICTest::SillyInt' );
  33
  34 is($num, 69, 'test overloaded object is "sane"');
  35 is("$num", 69, 'test overloaded object is "sane"');
  36
  37 my @tests = (
  38   {
  39     where => { artistid => 1, charfield => undef },
  40     normalized => { artistid => 1, charfield => undef },
  41     sql => 'WHERE artistid = ? AND charfield IS NULL',
  42     equality_extract => { artistid => 1 },
  43     equality_considering_nulls_extract => { artistid => 1, charfield => undef },
  44   },
  45   {
  46     where => { -and => [ artistid => 1, charfield => undef, { rank => 13 } ] },
  47     normalized => { artistid => 1, charfield => undef, rank => 13 },
  48     sql => 'WHERE artistid = ?  AND charfield IS NULL AND rank = ?',
  49     equality_extract => { artistid => 1, rank => 13 },
  50     equality_considering_nulls_extract => { artistid => 1, charfield => undef, rank => 13 },
  51   },
  52   {
  53     where => { -and => [ { artistid => 1, charfield => undef}, { rank => 13 } ] },
  54     normalized => { artistid => 1, charfield => undef, rank => 13 },
  55     sql => 'WHERE artistid = ?  AND charfield IS NULL AND rank = ?',
  56     equality_extract => { artistid => 1, rank => 13 },
  57     equality_considering_nulls_extract => { artistid => 1, charfield => undef, rank => 13 },
  58   },
  59   {
  60     where => { -and => [ -or => { name => 'Caterwauler McCrae' }, 'rank' ] },
  61     normalized => { name => 'Caterwauler McCrae', rank => undef },
  62     sql => 'WHERE name = ? AND rank IS NULL',
  63     equality_extract => { name => 'Caterwauler McCrae' },
  64     equality_considering_nulls_extract => { name => 'Caterwauler McCrae', rank => undef },
  65   },
  66   {
  67     where => { -and => [ [ [ artist => {'=' => \'foo' } ] ], { name => \[ '= ?', 'bar' ] } ] },
  68     normalized => { artist => {'=' => \'foo' }, name => \[ '= ?', 'bar' ] },
  69     sql => 'WHERE artist = foo AND name = ?',
  70     equality_extract => { artist => \'foo' },
  71   },
  72   {
  73     where => { -and => [ -or => { name => 'Caterwauler McCrae', artistid => 2 } ] },
  74     normalized => { -or => [ artistid => 2, name => 'Caterwauler McCrae' ] },
  75     sql => 'WHERE artistid = ? OR name = ?',
  76     equality_extract => {},
  77   },
  78   {
  79     where => { -or => { name => 'Caterwauler McCrae', artistid => 2 } },
  80     normalized => { -or => [ artistid => 2, name => 'Caterwauler McCrae' ] },
  81     sql => 'WHERE artistid = ? OR name = ?',
  82     equality_extract => {},
  83   },
  84   {
  85     where => { -and => [ \'foo=bar',  [ { artistid => { '=', $num } } ], { name => 'Caterwauler McCrae'} ] },
  86     normalized => { -and => [ \'foo=bar' ], name => 'Caterwauler McCrae', artistid => $num },
  87     sql => 'WHERE foo=bar AND artistid = ? AND name = ?',
  88     equality_extract => { name => 'Caterwauler McCrae', artistid => $num },
  89   },
  90   {
  91     where => { -and => [ \'foo=bar',  [ { artistid => { '=', $num } } ], { name => 'Caterwauler McCrae'}, \'buzz=bozz' ] },
  92     normalized => { -and => [ \'foo=bar', \'buzz=bozz' ], name => 'Caterwauler McCrae', artistid => $num },
  93     sql =>            'WHERE foo=bar AND artistid = ? AND name = ? AND buzz=bozz',
  94     normalized_sql => 'WHERE foo=bar AND buzz=bozz AND artistid = ? AND name = ?',
  95     equality_extract => { name => 'Caterwauler McCrae', artistid => $num },
  96   },
  97   {
  98     where => { artistid => [ $num ], rank => [ 13, 2, 3 ], charfield => [ undef ] },
  99     normalized => { artistid => $num, charfield => undef, rank => [13, 2, 3] },
 100     sql => 'WHERE artistid = ? AND charfield IS NULL AND ( rank = ? OR rank = ? OR rank = ? )',
 101     equality_extract => { artistid => $num },
 102     equality_considering_nulls_extract => { artistid => $num, charfield => undef },
 103   },
 104   {
 105     where => { artistid => { '=' => 1 }, rank => { '>' => 12 }, charfield => { '=' => undef } },
 106     normalized => { artistid => 1, charfield => undef, rank => { '>' => 12 } },
 107     sql => 'WHERE artistid = ? AND charfield IS NULL AND rank > ?',
 108     equality_extract => { artistid => 1 },
 109     equality_considering_nulls_extract => { artistid => 1, charfield => undef },
 110   },
 111   {
 112     where => { artistid => { '=' => [ 1 ], }, charfield => { '=' => [ -AND => \'1', \['?',2] ] }, rank => { '=' => [ -OR => $num, $num ] } },
 113     normalized => { artistid => 1, charfield => [-and => { '=' => \['?',2] }, { '=' => \'1' } ], rank => { '=' => [$num, $num] } },
 114     sql =>            'WHERE artistid = ? AND charfield = 1 AND charfield = ? AND ( rank = ? OR rank = ? )',
 115     normalized_sql => 'WHERE artistid = ? AND charfield = ? AND charfield = 1 AND ( rank = ? OR rank = ? )',
 116     equality_extract => { artistid => 1, charfield => UNRESOLVABLE_CONDITION },
 117   },
 118   {
 119     where => { -and => [ artistid => 1, artistid => 2 ], name => [ -and => { '!=', 1 }, 2 ], charfield => [ -or => { '=', 2 } ], rank => [-and => undef, { '=', undef }, { '!=', 2 } ] },
 120     normalized => { artistid => [ -and => 1, 2 ], name => [ -and => { '!=', 1 }, 2 ], charfield => 2, rank => [ -and => { '!=', 2 }, undef ] },
 121     sql =>            'WHERE artistid = ? AND artistid = ? AND charfield = ? AND name != ? AND name = ? AND rank IS NULL AND rank IS NULL AND rank != ?',
 122     normalized_sql => 'WHERE artistid = ? AND artistid = ? AND charfield = ? AND name != ? AND name = ? AND rank != ? AND rank IS NULL',
 123     equality_extract => {
 124       artistid => UNRESOLVABLE_CONDITION,
 125       name => 2,
 126       charfield => 2,
 127     },
 128     equality_considering_nulls_extract => {
 129       artistid => UNRESOLVABLE_CONDITION,
 130       name => 2,
 131       charfield => 2,
 132       rank => undef,
 133     },
 134   },
 135   (map { {
 136     where => $_,
 137     sql =>            'WHERE (rank = 13 OR charfield IS NULL OR artistid = ?) AND (artistid = ? OR charfield IS NULL OR rank != 42)',
 138     normalized_sql => 'WHERE (artistid = ? OR charfield IS NULL OR rank = 13) AND (artistid = ? OR charfield IS NULL OR rank != 42)',
 139     normalized => { -and => [
 140       { -or => [ artistid => 1, charfield => undef, rank => { '=' => \13 } ] },
 141       { -or => [ artistid => 1, charfield => undef, rank => { '!=' => \42 } ] },
 142     ] },
 143     equality_extract => {},
 144     equality_considering_nulls_extract => {},
 145   } } (
 146
 147     { -and => [
 148       -or => [ rank => { '=' => \13 }, charfield => { '=' => undef }, artistid => 1 ],
 149       -or => { artistid => { '=' => 1 }, charfield => undef, rank => { '!=' => \42 } },
 150     ] },
 151
 152     {
 153       -OR => [ rank => { '=' => \13 }, charfield => { '=' => undef }, artistid => 1 ],
 154       -or => { artistid => { '=' => 1 }, charfield => undef, rank => { '!=' => \42 } },
 155     },
 156
 157   ) ),
 158   {
 159     where => { -or => [
 160       -and => [ foo => { '!=', { -value => undef } }, bar => { -in => [ 69, 42 ] } ],
 161       foo => { '=', { -value => undef } },
 162       baz => { '!=' => { -ident => 'bozz' } },
 163       baz => { -ident => 'buzz' },
 164     ] },
 165     sql =>            'WHERE ( foo IS NOT NULL AND bar IN ( ?, ? ) ) OR foo IS NULL OR baz != bozz OR baz = buzz',
 166     normalized_sql => 'WHERE baz != bozz OR baz = buzz OR foo IS NULL OR ( bar IN ( ?, ? ) AND foo IS NOT NULL )',
 167     normalized => { -or => [
 168       baz => { '!=' => { -ident => 'bozz' } },
 169       baz => { '=' => { -ident => 'buzz' } },
 170       foo => undef,
 171       { bar => { -in => [ 69, 42 ] }, foo => { '!=', undef } }
 172     ] },
 173     equality_extract => {},
 174   },
 175   {
 176     where => { -or => [ rank => { '=' => \13 }, charfield => { '=' => undef }, artistid => { '=' => 1 }, genreid => { '=' => \['?', 2] } ] },
 177     sql =>            'WHERE rank = 13 OR charfield IS NULL OR artistid = ? OR genreid = ?',
 178     normalized_sql => 'WHERE artistid = ? OR charfield IS NULL OR genreid = ? OR rank = 13',
 179     normalized => { -or => [ artistid => 1, charfield => undef, genreid => { '=' => \['?', 2] }, rank => { '=' => \13 } ] },
 180     equality_extract => {},
 181     equality_considering_nulls_extract => {},
 182   },
 183   {
 184     where => { -and => [
 185       -or => [ rank => { '=' => \13 }, charfield => { '=' => undef }, artistid => 1 ],
 186       -or => { artistid => { '=' => 1 }, charfield => undef, rank => { '=' => \13 } },
 187     ] },
 188     normalized => { -and => [
 189       { -or => [ artistid => 1, charfield => undef, rank => { '=' => \13 } ] },
 190       { -or => [ artistid => 1, charfield => undef, rank => { '=' => \13 } ] },
 191     ] },
 192     sql =>            'WHERE (rank = 13 OR charfield IS NULL OR artistid = ?) AND (artistid = ? OR charfield IS NULL OR rank = 13)',
 193     normalized_sql => 'WHERE (artistid = ? OR charfield IS NULL OR rank = 13) AND (artistid = ? OR charfield IS NULL OR rank = 13)',
 194     equality_extract => {},
 195     equality_considering_nulls_extract => {},
 196   },
 197   {
 198     where => { -and => [
 199       -or => [ rank => { '=' => \13 }, charfield => { '=' => undef }, artistid => 1 ],
 200       -or => { artistid => { '=' => 1 }, charfield => undef, rank => { '!=' => \42 } },
 201       -and => [ foo => { '=' => \1 }, bar => 2 ],
 202       -and => [ foo => 3, bar => { '=' => \4 } ],
 203       -exists => \'(SELECT 1)',
 204       -exists => \'(SELECT 2)',
 205       -not => { foo => 69 },
 206       -not => { foo => 42 },
 207     ]},
 208     sql => 'WHERE
 209           ( rank = 13 OR charfield IS NULL OR artistid = ? )
 210       AND ( artistid = ? OR charfield IS NULL OR rank != 42 )
 211       AND foo = 1
 212       AND bar = ?
 213       AND foo = ?
 214       AND bar = 4
 215       AND (EXISTS (SELECT 1))
 216       AND (EXISTS (SELECT 2))
 217       AND NOT foo = ?
 218       AND NOT foo = ?
 219     ',
 220     normalized_sql => 'WHERE
 221           ( artistid = ? OR charfield IS NULL OR rank = 13 )
 222       AND ( artistid = ? OR charfield IS NULL OR rank != 42 )
 223       AND (EXISTS (SELECT 1))
 224       AND (EXISTS (SELECT 2))
 225       AND NOT foo = ?
 226       AND NOT foo = ?
 227       AND bar = 4
 228       AND bar = ?
 229       AND foo = 1
 230       AND foo = ?
 231     ',
 232     normalized => {
 233       -and => [
 234         { -or => [ artistid => 1, charfield => undef, rank => { '=' => \13 } ] },
 235         { -or => [ artistid => 1, charfield => undef, rank => { '!=' => \42 } ] },
 236         { -exists => \'(SELECT 1)' },
 237         { -exists => \'(SELECT 2)' },
 238         { -not => { foo => 69 } },
 239         { -not => { foo => 42 } },
 240       ],
 241       foo => [ -and => { '=' => \1 }, 3 ],
 242       bar => [ -and => { '=' => \4 }, 2 ],
 243     },
 244     equality_extract => {
 245       foo => UNRESOLVABLE_CONDITION,
 246       bar => UNRESOLVABLE_CONDITION,
 247     },
 248     equality_considering_nulls_extract => {
 249       foo => UNRESOLVABLE_CONDITION,
 250       bar => UNRESOLVABLE_CONDITION,
 251     },
 252   },
 253   {
 254     where => { -and => [
 255       [ '_macro.to' => { -like => '%correct%' }, '_wc_macros.to' => { -like => '%correct%' } ],
 256       { -and => [ { 'group.is_active' => 1 }, { 'me.is_active' => 1 } ] }
 257     ] },
 258     normalized => {
 259       'group.is_active' => 1,
 260       'me.is_active' => 1,
 261       -or => [
 262         '_macro.to' => { -like => '%correct%' },
 263         '_wc_macros.to' => { -like => '%correct%' },
 264       ],
 265     },
 266     sql => 'WHERE ( _macro.to LIKE ? OR _wc_macros.to LIKE ? ) AND group.is_active = ? AND me.is_active = ?',
 267     equality_extract => { 'group.is_active' => 1, 'me.is_active' => 1 },
 268   },
 269
 270   {
 271     where => { -and => [
 272       artistid => { -value => [1] },
 273       charfield => { -ident => 'foo' },
 274       name => { '=' => { -value => undef } },
 275       rank => { '=' => { -ident => 'bar' } },
 276     ] },
 277     sql => 'WHERE artistid = ? AND charfield = foo AND name IS NULL AND rank = bar',
 278     normalized => {
 279       artistid => { -value => [1] },
 280       name => undef,
 281       charfield => { '=', { -ident => 'foo' } },
 282       rank => { '=' => { -ident => 'bar' } },
 283     },
 284     equality_extract => {
 285       artistid => [1],
 286       charfield => { -ident => 'foo' },
 287       rank => { -ident => 'bar' },
 288     },
 289     equality_considering_nulls_extract => {
 290       artistid => [1],
 291       name => undef,
 292       charfield => { -ident => 'foo' },
 293       rank => { -ident => 'bar' },
 294     },
 295   },
 296
 297   {
 298     where => { artistid => [] },
 299     normalized => { artistid => [] },
 300     equality_extract => {},
 301   },
 302   (map {
 303     {
 304       where => { -and => $_ },
 305       normalized => undef,
 306       equality_extract => {},
 307       sql => '',
 308     },
 309     {
 310       where => { -or => $_ },
 311       normalized => undef,
 312       equality_extract => {},
 313       sql => '',
 314     },
 315     {
 316       where => { -or => [ foo => 1, $_ ] },
 317       normalized => { foo => 1 },
 318       equality_extract => { foo => 1 },
 319       sql => 'WHERE foo = ?',
 320     },
 321     {
 322       where => { -or => [ $_, foo => 1 ] },
 323       normalized => { foo => 1 },
 324       equality_extract => { foo => 1 },
 325       sql => 'WHERE foo = ?',
 326     },
 327     {
 328       where => { -and => [ fuu => 2, $_, foo => 1 ] },
 329       sql =>            'WHERE fuu = ? AND foo = ?',
 330       normalized_sql => 'WHERE foo = ? AND fuu = ?',
 331       normalized => { foo => 1, fuu => 2 },
 332       equality_extract => { foo => 1, fuu => 2 },
 333     },
 334   } (
 335     # bare
 336     [], {},
 337     # singles
 338     [ {} ], [ [] ],
 339     # doubles
 340     [ [], [] ], [ {}, {} ], [ [], {} ], [ {}, [] ],
 341     # tripples
 342     [ {}, [], {} ], [ [], {}, [] ]
 343   )),
 344
 345   # FIXME legacy compat crap, possibly worth undef/dieing in SQLMaker
 346   { where => { artistid => {} }, sql => '', normalized => undef, equality_extract => {}, equality_considering_nulls_extract => {} },
 347
 348   # batshit insanity, just to be thorough
 349   {
 350     where => { -and => [ [ 'artistid' ], [ -and => [ artistid => { '!=', 69 }, artistid => undef, artistid => { '=' => 200 } ]], artistid => [], { -or => [] }, { -and => [] }, [ 'charfield' ], { name => [] }, 'rank' ] },
 351     normalized => { artistid => [ -and => [], { '!=', 69 }, undef, 200  ], charfield => undef, name => [], rank => undef },
 352     sql =>            'WHERE artistid IS NULL AND artistid != ? AND artistid IS NULL AND artistid = ? AND 0=1 AND charfield IS NULL AND 0=1 AND rank IS NULL',
 353     normalized_sql => 'WHERE 0=1 AND artistid != ? AND artistid IS NULL AND artistid = ? AND charfield IS NULL AND 0=1 AND rank IS NULL',
 354     equality_extract => { artistid => UNRESOLVABLE_CONDITION },
 355     equality_considering_nulls_extract => { artistid => UNRESOLVABLE_CONDITION, charfield => undef, rank => undef },
 356   },
 357
 358   # original test from RT#93244
 359   {
 360     where => {
 361       -and => [
 362         \[
 363           "LOWER(me.title) LIKE ?",
 364           '%spoon%',
 365         ],
 366         [ { 'me.title' => 'Spoonful of bees' } ],
 367     ]},
 368     normalized => {
 369       -and => [ \[
 370         "LOWER(me.title) LIKE ?",
 371         '%spoon%',
 372       ]],
 373       'me.title' => 'Spoonful of bees',
 374     },
 375     sql => 'WHERE LOWER(me.title) LIKE ? AND me.title = ?',
 376     equality_extract => { 'me.title' => 'Spoonful of bees' },
 377   },
 378
 379   # crazy literals
 380   {
 381     where => {
 382       -or => [
 383         \'foo = bar',
 384       ],
 385     },
 386     sql => 'WHERE foo = bar',
 387     normalized => {
 388       -and => [
 389         \'foo = bar',
 390       ],
 391     },
 392     equality_extract => {},
 393   },
 394   {
 395     where => {
 396       -or => [
 397         \'foo = bar',
 398         \'baz = ber',
 399       ],
 400     },
 401     sql =>            'WHERE foo = bar OR baz = ber',
 402     normalized_sql => 'WHERE baz = ber OR foo = bar',
 403     normalized => {
 404       -or => [
 405         \'baz = ber',
 406         \'foo = bar',
 407       ],
 408     },
 409     equality_extract => {},
 410   },
 411   {
 412     where => {
 413       -and => [
 414         \'foo = bar',
 415         \'baz = ber',
 416       ],
 417     },
 418     sql => 'WHERE foo = bar AND baz = ber',
 419     normalized => {
 420       -and => [
 421         \'foo = bar',
 422         \'baz = ber',
 423       ],
 424     },
 425     equality_extract => {},
 426   },
 427   {
 428     where => {
 429       -and => [
 430         \'foo = bar',
 431         \'baz = ber',
 432         x => { -ident => 'y' },
 433       ],
 434     },
 435     sql => 'WHERE foo = bar AND baz = ber AND x = y',
 436     normalized => {
 437       -and => [
 438         \'foo = bar',
 439         \'baz = ber',
 440       ],
 441       x => { '=' => { -ident => 'y' } }
 442     },
 443     equality_extract => { x => { -ident => 'y' } },
 444   },
 445 );
 446
 447 # these die as of SQLA 1.80 - make sure we do not transform them
 448 # into something usable instead
 449 for my $lhs (undef, '', { -ident => 'foo' }, { -value => 'foo' } ) {
 450   no warnings 'uninitialized';
 451
 452   for my $w (
 453     ( map { { -or => $_ }, (ref $lhs ? () : { @$_ } ) }
 454       [ $lhs => "foo" ],
 455       [ $lhs => { "=" => "bozz" } ],
 456       [ $lhs => { "=" => \"bozz" } ],
 457       [ $lhs => { -max => \"bizz" } ],
 458     ),
 459
 460     (ref $lhs) ? () : (
 461       { -or => [ -and => { $lhs => "baz" }, bizz => "buzz" ] },
 462       { -or => [ foo => "bar", { $lhs => "baz" }, bizz => "buzz" ] },
 463       { foo => "bar", -or => { $lhs => "baz" } },
 464       { foo => "bar", -or => { $lhs => \"baz" }, bizz => "buzz" },
 465     ),
 466
 467     { foo => "bar", -and => [ $lhs => \"baz" ], bizz => "buzz" },
 468     { foo => "bar", -or => [ $lhs => \"baz" ], bizz => "buzz" },
 469
 470     { -or => [ foo => "bar", [ $lhs => \"baz" ], bizz => "buzz" ] },
 471     { -or => [ foo => "bar", $lhs => \"baz", bizz => "buzz" ] },
 472     { -or => [ foo => "bar", $lhs => \["baz"], bizz => "buzz" ] },
 473     { -or => [ $lhs => \"baz" ] },
 474     { -or => [ $lhs => \["baz"] ] },
 475
 476   ) {
 477     push @tests, {
 478       where => $w,
 479       throw => qr/
 480         \QSupplying an empty left hand side argument is not supported in \E(?:array|hash)-pairs
 481           |
 482         \QIllegal use of top-level '-\E(?:value|ident)'
 483       /x,
 484     }
 485   }
 486 }
 487
 488 # these are deprecated as of SQLA 1.79 - make sure we do not transform
 489 # them without losing the warning
 490 for my $lhs (undef, '') {
 491   for my $rhs ( \"baz", \[ "baz" ] ) {
 492     no warnings 'uninitialized';
 493
 494     my $expected_warning = qr/\QHash-pairs consisting of an empty string with a literal are deprecated/;
 495
 496     push @tests, {
 497       where => { $lhs => $rhs },
 498       normalized => { -and => [ $rhs ] },
 499       equality_extract => {},
 500       sql => 'WHERE baz',
 501       warn => $expected_warning,
 502     };
 503
 504     for my $w (
 505       { foo => "bar", -and => { $lhs => $rhs }, bizz => "buzz" },
 506       { foo => "bar", $lhs => $rhs, bizz => "buzz" },
 507     ) {
 508       push @tests, {
 509         where => $w,
 510         normalized => {
 511           -and => [ $rhs ],
 512           bizz => "buzz",
 513           foo => "bar",
 514         },
 515         equality_extract => {
 516           foo => "bar",
 517           bizz => "buzz",
 518         },
 519         sql => 'WHERE baz AND bizz = ? AND foo = ?',
 520         warn => $expected_warning,
 521       };
 522     }
 523   }
 524 }
 525
 526 # lots of extra silly tests with a false column
 527 for my $eq (
 528   \"= baz",
 529   \[ "= baz" ],
 530   { '=' => { -ident => 'baz' } },
 531   { '=' => \'baz' },
 532 ) {
 533   for my $where (
 534     { foo => "bar", -and => [ 0 => $eq ], bizz => "buzz" },
 535     { foo => "bar", -or => [ 0 => $eq ], bizz => "buzz" },
 536     { foo => "bar", -and => { 0 => $eq }, bizz => "buzz" },
 537     { foo => "bar", -or => { 0 => $eq }, bizz => "buzz" },
 538     { foo => "bar", 0 => $eq, bizz => "buzz" },
 539   ) {
 540     push @tests, {
 541       where => $where,
 542       normalized => {
 543         0 => $eq,
 544         foo => 'bar',
 545         bizz => 'buzz',
 546       },
 547       equality_extract => {
 548         foo => 'bar',
 549         bizz => 'buzz',
 550         ( ref $eq eq 'HASH' ? ( 0 => $eq->{'='} ) : () ),
 551       },
 552       sql => 'WHERE 0 = baz AND bizz = ? AND foo = ?',
 553     };
 554
 555     push @tests, {
 556       where => { -or => $where },
 557       normalized => { -or => [
 558         "0" => $eq,
 559         bizz => 'buzz',
 560         foo => 'bar',
 561       ]},
 562       equality_extract => {},
 563       sql => 'WHERE 0 = baz OR bizz = ? OR foo = ?',
 564     }
 565
 566   }
 567
 568   for my $where (
 569     [ foo => "bar", -and => [ 0 => $eq ], bizz => "buzz" ],
 570     [ foo => "bar", -or => [ 0 => $eq ], bizz => "buzz" ],
 571     [ foo => "bar", -and => { 0 => $eq }, bizz => "buzz" ],
 572     [ foo => "bar", -or => { 0 => $eq }, bizz => "buzz" ],
 573     [ foo => "bar", 0 => $eq, bizz => "buzz" ],
 574   ) {
 575     push @tests, {
 576       where => { -or => $where },
 577       normalized => { -or => [
 578         "0" => $eq,
 579         bizz => 'buzz',
 580         foo => 'bar',
 581       ]},
 582       equality_extract => {},
 583       sql =>            'WHERE foo = ? OR 0 = baz OR bizz = ?',
 584       normalized_sql => 'WHERE 0 = baz OR bizz = ? OR foo = ?',
 585     }
 586   }
 587
 588   for my $where (
 589     [ {foo => "bar"}, -and => { 0 => "baz" }, bizz => "buzz" ],
 590     [ -or => [ foo => "bar", -or => { 0 => "baz" }, bizz => "buzz" ] ],
 591   ) {
 592     push @tests, {
 593       where => { -or => $where },
 594       normalized => { -or => [
 595         "0" => 'baz',
 596         bizz => 'buzz',
 597         foo => 'bar',
 598       ]},
 599       equality_extract => {},
 600       sql =>            'WHERE foo = ? OR 0 = ? OR bizz = ?',
 601       normalized_sql => 'WHERE 0 = ? OR bizz = ? OR foo = ?',
 602     };
 603   }
 604
 605 };
 606
 607 for my $t (@tests) {
 608   for my $w (
 609     $t->{where},
 610     $t->{where},  # do it twice, make sure we didn't destory the condition
 611     [ -and => $t->{where} ],
 612     [ -AND => $t->{where} ],
 613     { -OR => [ -AND => $t->{where} ] },
 614     ( ( keys %{$t->{where}} == 1 and length( (keys %{$t->{where}})[0] ) )
 615       ? [ %{$t->{where}} ]
 616       : ()
 617     ),
 618     ( (keys %{$t->{where}} == 1 and $t->{where}{-or})
 619       ? ( ref $t->{where}{-or} eq 'HASH'
 620         ? [ map { $_ => $t->{where}{-or}{$_} } sort keys %{$t->{where}{-or}} ]
 621         : $t->{where}{-or}
 622       )
 623       : ()
 624     ),
 625   ) {
 626     die unless Test::Builder->new->is_passing;
 627
 628     my $name = do { local $Data::Dumper::Indent = 0; dump_value $w };
 629
 630     my ($normalized_cond, $normalized_cond_as_sql);
 631
 632     if ($t->{throw}) {
 633       throws_ok {
 634         $sm->where( normalize_sqla_condition($w) );
 635       } $t->{throw}, "Exception on attempted collapse/render of $name"
 636         and
 637       next;
 638     }
 639
 640     warnings_exist {
 641       $normalized_cond = normalize_sqla_condition($w);
 642       ($normalized_cond_as_sql) = $sm->where($normalized_cond);
 643     } $t->{warn} || [], "Expected warning when collapsing/rendering $name";
 644
 645     is_deeply(
 646       $normalized_cond,
 647       $t->{normalized},
 648       "Expected collapsed condition produced on $name",
 649     );
 650
 651     my ($original_sql) = do {
 652       local $SIG{__WARN__} = sub {};
 653       $sm->where($w);
 654     };
 655
 656     is_same_sql ( $original_sql, $t->{sql}, "Expected original SQL from $name" )
 657       if exists $t->{sql};
 658
 659     is_same_sql(
 660       $normalized_cond_as_sql,
 661       ( $t->{normalized_sql} || $t->{sql} || $original_sql ),
 662       "Normalization did not alter *the semantics* of the final SQL based on $name",
 663     );
 664
 665     is_deeply(
 666       extract_equality_conditions($normalized_cond),
 667       $t->{equality_extract},
 668       "Expected equality_conditions produced on $name",
 669     );
 670
 671     is_deeply(
 672       extract_equality_conditions($normalized_cond, 'consider_nulls'),
 673       ( $t->{equality_considering_nulls_extract} || $t->{equality_extract} ),
 674       "Expected equality_conditions including NULLs produced on $name",
 675     );
 676
 677     is_deeply(
 678       $normalized_cond,
 679       $t->{normalized},
 680       "Collapsed condition result unaltered by equality conditions extractor",
 681     );
 682   }
 683 }
 684
 685 done_testing;