t/10test.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use SQL::Abstract::Test import => [qw(
   7   eq_sql_bind eq_sql eq_bind is_same_sql_bind dumper $sql_differ
   8 )];
   9
  10 my @sql_tests = (
  11       # WHERE condition - equal
  12       {
  13         equal => 1,
  14         statements => [
  15           q/SELECT foo FROM bar WHERE a = 1/,
  16           q/SELECT foo FROM bar WHERE a=1/,
  17           q/SELECT foo FROM bar WHERE (a = 1)/,
  18           q/SELECT foo FROM bar WHERE (a=1)/,
  19           q/SELECT foo FROM bar WHERE ( a = 1 )/,
  20           q/
  21             SELECT
  22               foo
  23             FROM
  24               bar
  25             WHERE
  26               a = 1
  27           /,
  28           q/
  29             SELECT
  30               foo
  31             FROM
  32               bar
  33             WHERE
  34               (a = 1)
  35           /,
  36           q/
  37             SELECT
  38               foo
  39             FROM
  40               bar
  41             WHERE
  42               ( a = 1 )
  43           /,
  44           q/SELECT foo FROM bar WHERE ((a = 1))/,
  45           q/SELECT foo FROM bar WHERE ( (a = 1) )/,
  46           q/SELECT foo FROM bar WHERE ( ( a = 1 ) )/,
  47         ]
  48       },
  49       {
  50         equal => 1,
  51         statements => [
  52           q/SELECT foo FROM bar WHERE a = 1 AND b = 1/,
  53           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 1)/,
  54           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 1))/,
  55           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1)/,
  56           q/SELECT foo FROM bar WHERE ((a = 1 AND b = 1))/,
  57           q/SELECT foo FROM bar WHERE (((a = 1) AND (b = 1)))/,
  58           q/
  59             SELECT
  60               foo
  61             FROM
  62               bar
  63             WHERE
  64               a = 1
  65               AND
  66               b = 1
  67           /,
  68           q/
  69             SELECT
  70               foo
  71             FROM
  72               bar
  73             WHERE
  74               (a = 1
  75               AND
  76               b = 1)
  77           /,
  78           q/
  79             SELECT
  80               foo
  81             FROM
  82               bar
  83             WHERE
  84               (a = 1)
  85               AND
  86               (b = 1)
  87           /,
  88           q/
  89             SELECT
  90               foo
  91             FROM
  92               bar
  93             WHERE
  94               ((a = 1)
  95               AND
  96               (b = 1))
  97           /,
  98         ]
  99       },
 100       {
 101         equal => 1,
 102         statements => [
 103           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND c = 1/,
 104           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1 AND c = 1)/,
 105           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1) AND c = 1/,
 106           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 AND c = 1)/,
 107           q/SELECT foo FROM bar WHERE ((((a = 1))) AND (b = 1 AND c = 1))/,
 108         ]
 109       },
 110       {
 111         equal => 1,
 112         statements => [
 113           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 OR c = 1/,
 114           q/SELECT foo FROM bar WHERE (a = 1 OR b = 1) OR c = 1/,
 115           q/SELECT foo FROM bar WHERE a = 1 OR (b = 1 OR c = 1)/,
 116           q/SELECT foo FROM bar WHERE a = 1 OR ((b = 1 OR (c = 1)))/,
 117         ]
 118       },
 119       {
 120         equal => 1,
 121         statements => [
 122           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 1 OR c = 1 OR d = 1) AND (e = 1 AND f = 1)/,
 123           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 OR c = 1 OR d = 1) AND e = 1 AND (f = 1)/,
 124           q/SELECT foo FROM bar WHERE ( ((a = 1) AND ( b = 1 OR (c = 1 OR d = 1) )) AND ((e = 1)) AND f = 1) /,
 125         ]
 126       },
 127       {
 128         equal => 1,
 129         statements => [
 130           q/SELECT foo FROM bar WHERE (a) AND (b = 2)/,
 131           q/SELECT foo FROM bar WHERE (a AND b = 2)/,
 132           q/SELECT foo FROM bar WHERE (a AND (b = 2))/,
 133           q/SELECT foo FROM bar WHERE a AND (b = 2)/,
 134         ]
 135       },
 136       {
 137         equal => 1,
 138         statements => [
 139           q/SELECT foo FROM bar WHERE ((NOT a) AND b = 2)/,
 140           q/SELECT foo FROM bar WHERE (NOT a) AND (b = 2)/,
 141           q/SELECT foo FROM bar WHERE (NOT (a)) AND b = 2/,
 142         ],
 143       },
 144       {
 145         equal => 0,
 146         statements => [
 147           q/SELECT foo FROM bar WHERE NOT a AND (b = 2)/,
 148           q/SELECT foo FROM bar WHERE (NOT a) AND (b = 2)/,
 149         ]
 150       },
 151       {
 152         equal => 0,
 153         opts => { parenthesis_significant => 1 },
 154         statements => [
 155           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND c = 1/,
 156           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1 AND c = 1)/,
 157           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1) AND c = 1/,
 158           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 AND c = 1)/,
 159           q/SELECT foo FROM bar WHERE ((((a = 1))) AND (b = 1 AND c = 1))/,
 160         ]
 161       },
 162       {
 163         equal => 0,
 164         opts => { parenthesis_significant => 1 },
 165         statements => [
 166           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 OR c = 1/,
 167           q/SELECT foo FROM bar WHERE (a = 1 OR b = 1) OR c = 1/,
 168           q/SELECT foo FROM bar WHERE a = 1 OR (b = 1 OR c = 1)/,
 169           q/SELECT foo FROM bar WHERE a = 1 OR ((b = 1 OR (c = 1)))/,
 170         ]
 171       },
 172       {
 173         equal => 0,
 174         opts => { parenthesis_significant => 1 },
 175         statements => [
 176           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 1 OR c = 1 OR d = 1) AND (e = 1 AND f = 1)/,
 177           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 OR c = 1 OR d = 1) AND e = 1 AND (f = 1)/,
 178           q/SELECT foo FROM bar WHERE ( ((a = 1) AND ( b = 1 OR (c = 1 OR d = 1) )) AND ((e = 1)) AND f = 1) /,
 179         ]
 180       },
 181
 182       # WHERE condition - different
 183       {
 184         equal => 0,
 185         statements => [
 186           q/SELECT foo FROM bar WHERE a = 1/,
 187           q/SELECT quux FROM bar WHERE a = 1/,
 188           q/SELECT foo FROM quux WHERE a = 1/,
 189           q/FOOBAR foo FROM bar WHERE a = 1/,
 190
 191           q/SELECT foo FROM bar WHERE a = 2/,
 192           q/SELECT foo FROM bar WHERE a < 1/,
 193           q/SELECT foo FROM bar WHERE b = 1/,
 194           q/SELECT foo FROM bar WHERE (c = 1)/,
 195           q/SELECT foo FROM bar WHERE (d = 1)/,
 196
 197           q/SELECT foo FROM bar WHERE a = 1 AND quux/,
 198           q/SELECT foo FROM bar WHERE a = 1 GROUP BY foo/,
 199           q/SELECT foo FROM bar WHERE a = 1 ORDER BY foo/,
 200           q/SELECT foo FROM bar WHERE a = 1 LIMIT 1/,
 201           q/SELECT foo FROM bar WHERE a = 1 OFFSET 1/,
 202           q/SELECT foo FROM bar JOIN quux WHERE a = 1/,
 203           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE a = 1/,
 204         ]
 205       },
 206       {
 207         equal => 0,
 208         statements => [
 209           q/SELECT foo FROM bar WHERE a = 1 AND b = 1/,
 210           q/SELECT quux FROM bar WHERE a = 1 AND b = 1/,
 211           q/SELECT foo FROM quux WHERE a = 1 AND b = 1/,
 212           q/FOOBAR foo FROM bar WHERE a = 1 AND b = 1/,
 213
 214           q/SELECT foo FROM bar WHERE a = 2 AND b = 1/,
 215           q/SELECT foo FROM bar WHERE a = 3 AND (b = 1)/,
 216           q/SELECT foo FROM bar WHERE (a = 4) AND b = 1/,
 217           q/SELECT foo FROM bar WHERE (a = 5) AND (b = 1)/,
 218           q/SELECT foo FROM bar WHERE ((a = 6) AND (b = 1))/,
 219           q/SELECT foo FROM bar WHERE ((a = 7) AND (b = 1))/,
 220
 221           q/SELECT foo FROM bar WHERE a = 1 AND b = 2/,
 222           q/SELECT foo FROM bar WHERE a = 1 AND (b = 3)/,
 223           q/SELECT foo FROM bar WHERE (a = 1) AND b = 4/,
 224           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 5)/,
 225           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 6))/,
 226           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 7))/,
 227
 228           q/SELECT foo FROM bar WHERE a < 1 AND b = 1/,
 229           q/SELECT foo FROM bar WHERE b = 1 AND b = 1/,
 230           q/SELECT foo FROM bar WHERE (c = 1) AND b = 1/,
 231           q/SELECT foo FROM bar WHERE (d = 1) AND b = 1/,
 232
 233           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND quux/,
 234           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 GROUP BY foo/,
 235           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 ORDER BY foo/,
 236           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 LIMIT 1/,
 237           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 OFFSET 1/,
 238           q/SELECT foo FROM bar JOIN quux WHERE a = 1 AND b = 1/,
 239           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE a = 1 AND b = 1/,
 240         ]
 241       },
 242       {
 243         equal => 0,
 244         statements => [
 245           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 OR c = 1/,
 246           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1) OR c = 1/,
 247           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 OR c = 1)/,
 248         ]
 249       },
 250       {
 251         equal => 0,
 252         statements => [
 253           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 AND c = 1/,
 254           q/SELECT foo FROM bar WHERE (a = 1 OR b = 1) AND c = 1/,
 255           q/SELECT foo FROM bar WHERE a = 1 OR (b = 1 AND c = 1)/,
 256         ]
 257       },
 258       {
 259         equal => 0,
 260         statements => [
 261           q/SELECT foo FROM bar WHERE a IN (1,3,2)/,
 262           q/SELECT foo FROM bar WHERE a IN 1,2,3/,
 263           q/SELECT foo FROM bar WHERE a IN (1,2,3)/,
 264           q/SELECT foo FROM bar WHERE a IN ((1,2,3))/,
 265         ]
 266       },
 267       {
 268         equal => 0,
 269         statements => [
 270           # BETWEEN with/without parenthesis around itself/RHS is a sticky business
 271           # if I made a mistake here, simply rewrite the special BETWEEN handling in
 272           # _recurse_parse()
 273           #
 274           # by RIBASUSHI
 275           q/SELECT foo FROM bar WHERE ( completion_date BETWEEN ? AND ? AND status = ? )/,
 276           q/SELECT foo FROM bar WHERE completion_date BETWEEN (? AND ?) AND status = ?/,
 277           q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ?) ) AND status = ? )/,
 278           q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ? AND status = ?) ) )/,
 279         ]
 280       },
 281
 282       # IS NULL (special LHS-only op)
 283       {
 284         equal => 1,
 285         statements => [
 286           q/WHERE a IS NOT NULL AND b IS NULL/,
 287           q/WHERE (a IS NOT NULL) AND b IS NULL/,
 288           q/WHERE a IS NOT NULL AND (b IS NULL)/,
 289           q/WHERE (a IS NOT NULL) AND ((b IS NULL))/,
 290         ],
 291       },
 292
 293       # JOIN condition - equal
 294       {
 295         equal => 1,
 296         statements => [
 297           q/SELECT foo FROM bar JOIN baz ON a = 1 WHERE x = 1/,
 298           q/SELECT foo FROM bar JOIN baz ON a=1 WHERE x = 1/,
 299           q/SELECT foo FROM bar JOIN baz ON (a = 1) WHERE x = 1/,
 300           q/SELECT foo FROM bar JOIN baz ON (a=1) WHERE x = 1/,
 301           q/SELECT foo FROM bar JOIN baz ON ( a = 1 ) WHERE x = 1/,
 302           q/
 303             SELECT
 304               foo
 305             FROM
 306               bar
 307             JOIN
 308               baz
 309             ON
 310               a = 1
 311             WHERE
 312               x = 1
 313           /,
 314           q/
 315             SELECT
 316               foo
 317             FROM
 318               bar
 319             JOIN
 320               baz
 321             ON
 322               (a = 1)
 323             WHERE
 324               x = 1
 325           /,
 326           q/
 327             SELECT
 328               foo
 329             FROM
 330               bar
 331             JOIN
 332               baz
 333             ON
 334               ( a = 1 )
 335             WHERE
 336               x = 1
 337           /,
 338           q/SELECT foo FROM bar JOIN baz ON ((a = 1)) WHERE x = 1/,
 339           q/SELECT foo FROM bar JOIN baz ON ( (a = 1) ) WHERE x = 1/,
 340           q/SELECT foo FROM bar JOIN baz ON ( ( a = 1 ) ) WHERE x = 1/,
 341         ]
 342       },
 343       {
 344         equal => 1,
 345         statements => [
 346           q/SELECT foo FROM bar JOIN baz ON a = 1 AND b = 1 WHERE x = 1/,
 347           q/SELECT foo FROM bar JOIN baz ON (a = 1) AND (b = 1) WHERE x = 1/,
 348           q/SELECT foo FROM bar JOIN baz ON ((a = 1) AND (b = 1)) WHERE x = 1/,
 349           q/SELECT foo FROM bar JOIN baz ON (a = 1 AND b = 1) WHERE x = 1/,
 350           q/SELECT foo FROM bar JOIN baz ON ((a = 1 AND b = 1)) WHERE x = 1/,
 351           q/SELECT foo FROM bar JOIN baz ON (((a = 1) AND (b = 1))) WHERE x = 1/,
 352           q/
 353             SELECT
 354               foo
 355             FROM
 356               bar
 357             JOIN
 358               baz
 359             ON
 360               a = 1
 361               AND
 362               b = 1
 363             WHERE
 364               x = 1
 365           /,
 366           q/
 367             SELECT
 368               foo
 369             FROM
 370               bar
 371             JOIN
 372               baz
 373             ON
 374               (a = 1
 375               AND
 376               b = 1)
 377             WHERE
 378               x = 1
 379           /,
 380           q/
 381             SELECT
 382               foo
 383             FROM
 384               bar
 385             JOIN
 386               baz
 387             ON
 388               (a = 1)
 389               AND
 390               (b = 1)
 391             WHERE
 392               x = 1
 393           /,
 394           q/
 395             SELECT
 396               foo
 397             FROM
 398               bar
 399             JOIN
 400               baz
 401             ON
 402               ((a = 1)
 403               AND
 404               (b = 1))
 405             WHERE
 406               x = 1
 407           /,
 408         ]
 409       },
 410
 411       # JOIN condition - different
 412       {
 413         equal => 0,
 414         statements => [
 415           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE quuux/,
 416           q/SELECT quux FROM bar JOIN quux ON a = 1 WHERE quuux/,
 417           q/SELECT foo FROM quux JOIN quux ON a = 1 WHERE quuux/,
 418           q/FOOBAR foo FROM bar JOIN quux ON a = 1 WHERE quuux/,
 419
 420           q/SELECT foo FROM bar JOIN quux ON a = 2 WHERE quuux/,
 421           q/SELECT foo FROM bar JOIN quux ON a < 1 WHERE quuux/,
 422           q/SELECT foo FROM bar JOIN quux ON b = 1 WHERE quuux/,
 423           q/SELECT foo FROM bar JOIN quux ON (c = 1) WHERE quuux/,
 424           q/SELECT foo FROM bar JOIN quux ON (d = 1) WHERE quuux/,
 425
 426           q/SELECT foo FROM bar JOIN quux ON a = 1 AND quuux/,
 427           q/SELECT foo FROM bar JOIN quux ON a = 1 GROUP BY foo/,
 428           q/SELECT foo FROM bar JOIN quux ON a = 1 ORDER BY foo/,
 429           q/SELECT foo FROM bar JOIN quux ON a = 1 LIMIT 1/,
 430           q/SELECT foo FROM bar JOIN quux ON a = 1 OFFSET 1/,
 431           q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux/,
 432           q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux ON a = 1/,
 433         ]
 434       },
 435       {
 436         equal => 0,
 437         statements => [
 438           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 439           q/SELECT quux FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 440           q/SELECT foo FROM quux JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 441           q/FOOBAR foo FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 442
 443           q/SELECT foo FROM bar JOIN quux ON a = 2 AND b = 1 WHERE quuux/,
 444           q/SELECT foo FROM bar JOIN quux ON a = 3 AND (b = 1) WHERE quuux/,
 445           q/SELECT foo FROM bar JOIN quux ON (a = 4) AND b = 1 WHERE quuux/,
 446           q/SELECT foo FROM bar JOIN quux ON (a = 5) AND (b = 1) WHERE quuux/,
 447           q/SELECT foo FROM bar JOIN quux ON ((a = 6) AND (b = 1)) WHERE quuux/,
 448           q/SELECT foo FROM bar JOIN quux ON ((a = 7) AND (b = 1)) WHERE quuux/,
 449
 450           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 2 WHERE quuux/,
 451           q/SELECT foo FROM bar JOIN quux ON a = 1 AND (b = 3) WHERE quuux/,
 452           q/SELECT foo FROM bar JOIN quux ON (a = 1) AND b = 4 WHERE quuux/,
 453           q/SELECT foo FROM bar JOIN quux ON (a = 1) AND (b = 5) WHERE quuux/,
 454           q/SELECT foo FROM bar JOIN quux ON ((a = 1) AND (b = 6)) WHERE quuux/,
 455           q/SELECT foo FROM bar JOIN quux ON ((a = 1) AND (b = 7)) WHERE quuux/,
 456
 457           q/SELECT foo FROM bar JOIN quux ON a < 1 AND b = 1 WHERE quuux/,
 458           q/SELECT foo FROM bar JOIN quux ON b = 1 AND b = 1 WHERE quuux/,
 459           q/SELECT foo FROM bar JOIN quux ON (c = 1) AND b = 1 WHERE quuux/,
 460           q/SELECT foo FROM bar JOIN quux ON (d = 1) AND b = 1 WHERE quuux/,
 461
 462           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 AND quuux/,
 463           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 GROUP BY foo/,
 464           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 ORDER BY foo/,
 465           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 LIMIT 1/,
 466           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 OFFSET 1/,
 467           q/SELECT foo FROM bar JOIN quux JOIN quuux ON a = 1 AND b = 1/,
 468           q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux ON a = 1 AND b = 1/,
 469         ]
 470       },
 471
 472       # DISTINCT ON (...) not confused with JOIN ON (...)
 473       {
 474         equal => 1,
 475         statements => [
 476           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE a = 1/,
 477           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE a=1/,
 478           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE (a = 1)/,
 479           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE (a=1)/,
 480           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( a = 1 )/,
 481           q/
 482             SELECT DISTINCT ON (foo, quux)
 483               foo,
 484               quux
 485             FROM
 486               bar
 487             WHERE
 488               a = 1
 489           /,
 490           q/
 491             SELECT DISTINCT ON (foo, quux)
 492               foo,
 493               quux
 494             FROM
 495               bar
 496             WHERE
 497               (a = 1)
 498           /,
 499           q/
 500             SELECT DISTINCT ON (foo, quux)
 501               foo,
 502               quux
 503             FROM
 504               bar
 505             WHERE
 506               ( a = 1 )
 507           /,
 508           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ((a = 1))/,
 509           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( (a = 1) )/,
 510           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( ( a = 1 ) )/,
 511         ]
 512       },
 513
 514       # subselects - equal
 515       {
 516         equal => 1,
 517         statements => [
 518           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 1/,
 519           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE (a = 1)/,
 520           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE a = 1/,
 521           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE (a = 1)/,
 522         ]
 523       },
 524       {
 525         equal => 1,
 526         statements => [
 527           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 1/,
 528           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 1)) AS foo WHERE a = 1/,
 529           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 1) AS foo WHERE a = 1/,
 530           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 1)) AS foo WHERE a = 1/,
 531           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 1))) AS foo WHERE a = 1/,
 532
 533           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE (a = 1)/,
 534           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 1)) AS foo WHERE (a = 1)/,
 535           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 1) AS foo WHERE (a = 1)/,
 536           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 1)) AS foo WHERE (a = 1)/,
 537           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 1))) AS foo WHERE (a = 1)/,
 538         ]
 539       },
 540
 541       # subselects - different
 542       {
 543         equal => 0,
 544         statements => [
 545           q/DELETE FROM cd WHERE ( cdid IN ( SELECT me.cdid FROM (SELECT * FROM cd me WHERE ( year != ? ) GROUP BY me.cdid) me WHERE ( year != ? ) ) )/,
 546           q/DELETE FROM cd WHERE ( cdid IN ( SELECT me.cdid FROM cd me WHERE ( year != ? ) GROUP BY me.cdid ) )/,
 547         ],
 548       },
 549       {
 550         equal => 0,
 551         statements => [
 552           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 1/,
 553           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 2/,
 554           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE (a = 3)/,
 555           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE a = 4/,
 556           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE (a = 5)/,
 557           q/SELECT * FROM (SELECT * FROM bar WHERE b = 2) AS foo WHERE a = 1/,
 558           q/SELECT * FROM (SELECT * FROM bar WHERE b = 3) AS foo WHERE (a = 1)/,
 559           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 4)) AS foo WHERE a = 1/,
 560           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 5)) AS foo WHERE (a = 1)/,
 561         ]
 562       },
 563       {
 564         equal => 0,
 565         statements => [
 566           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 1/,
 567           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 1/,
 568           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 1/,
 569           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 1/,
 570           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 1/,
 571
 572           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 1)/,
 573           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 1)/,
 574           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 1)/,
 575           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 1)/,
 576           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 1)/,
 577
 578           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 2/,
 579           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 2/,
 580           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 2/,
 581           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 2/,
 582           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 2/,
 583
 584           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 2)/,
 585           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 2)/,
 586           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 2)/,
 587           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 2)/,
 588           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 2)/,
 589         ]
 590       },
 591
 592       # order by
 593       {
 594         equal => 1,
 595         statements => [
 596           q/SELECT * FROM foo ORDER BY bar/,
 597           q/SELECT * FROM foo ORDER BY bar ASC/,
 598           q/SELECT * FROM foo ORDER BY bar asc/,
 599         ],
 600       },
 601       {
 602         equal => 1,
 603         statements => [
 604           q/SELECT * FROM foo ORDER BY bar, baz ASC/,
 605           q/SELECT * FROM foo ORDER BY bar ASC, baz/,
 606           q/SELECT * FROM foo ORDER BY bar asc, baz ASC/,
 607           q/SELECT * FROM foo ORDER BY bar, baz/,
 608         ],
 609       },
 610       {
 611         equal => 1,
 612         statements => [
 613           q/ORDER BY colA, colB LIKE ? DESC, colC LIKE ?/,
 614           q/ORDER BY colA ASC, colB LIKE ? DESC, colC LIKE ? ASC/,
 615         ],
 616       },
 617       {
 618         equal => 1,
 619         statements => [
 620           q/ORDER BY name + ?, [me].[id]/,
 621           q/ORDER BY name + ? ASC, [me].[id]/,
 622         ],
 623       },
 624       {
 625         equal => 0,
 626         opts => { order_by_asc_significant => 1 },
 627         statements => [
 628           q/SELECT * FROM foo ORDER BY bar/,
 629           q/SELECT * FROM foo ORDER BY bar ASC/,
 630           q/SELECT * FROM foo ORDER BY bar desc/,
 631         ],
 632       },
 633
 634       # list permutations
 635       {
 636         equal => 0,
 637         statements => [
 638           'SELECT a,b,c FROM foo',
 639           'SELECT a,c,b FROM foo',
 640           'SELECT b,a,c FROM foo',
 641           'SELECT b,c,a FROM foo',
 642           'SELECT c,a,b FROM foo',
 643           'SELECT c,b,a FROM foo',
 644         ],
 645       },
 646       {
 647         equal => 0,
 648         statements => [
 649           'SELECT * FROM foo WHERE a IN (1,2,3)',
 650           'SELECT * FROM foo WHERE a IN (1,3,2)',
 651           'SELECT * FROM foo WHERE a IN (2,1,3)',
 652           'SELECT * FROM foo WHERE a IN (2,3,1)',
 653           'SELECT * FROM foo WHERE a IN (3,1,2)',
 654           'SELECT * FROM foo WHERE a IN (3,2,1)',
 655         ]
 656       },
 657
 658       # list consistency
 659       {
 660         equal => 0,
 661         statements => [
 662           'SELECT a,b FROM foo',
 663           'SELECT a,,b FROM foo',
 664           'SELECT a,b, FROM foo',
 665           'SELECT ,a,b, FROM foo',
 666           'SELECT ,a,,b, FROM foo',
 667         ],
 668       },
 669
 670       # misc func
 671       {
 672         equal => 0,
 673         statements => [
 674           'SELECT count(*) FROM foo',
 675           'SELECT count(*) AS bar FROM foo',
 676           'SELECT count(*) AS "bar" FROM foo',
 677           'SELECT count(a) FROM foo',
 678           'SELECT count(1) FROM foo',
 679         ]
 680       },
 681       {
 682         equal => 1,
 683         statements => [
 684           'SELECT foo() bar FROM baz',
 685           'SELECT foo (  )bar FROM baz',
 686           'SELECT foo (())bar FROM baz',
 687           'SELECT foo(( ) ) bar FROM baz',
 688         ]
 689       },
 690       {
 691         equal => 0,
 692         statements => [
 693           'SELECT foo() FROM bar',
 694           'SELECT foo FROM bar',
 695           'SELECT foo FROM bar ()',
 696         ]
 697       },
 698       {
 699         equal => 0,
 700         statements => [
 701           'SELECT COUNT * FROM foo',
 702           'SELECT COUNT( * ) FROM foo',
 703         ]
 704       },
 705       # single ? of unknown funcs do not unroll unless
 706       # explicitly allowed (e.g. Like)
 707       {
 708         equal => 0,
 709         statements => [
 710           'SELECT foo FROM bar WHERE bar > foo ?',
 711           'SELECT foo FROM bar WHERE bar > foo( ? )',
 712         ]
 713       },
 714       {
 715         equal => 1,
 716         statements => [
 717           'SELECT foo FROM bar WHERE bar LIKE ?',
 718           'SELECT foo FROM bar WHERE bar LiKe (?)',
 719           'SELECT foo FROM bar WHERE bar lIkE( (?))',
 720         ]
 721       },
 722       # test multival
 723       {
 724         equal => 0,
 725         statements => [
 726           'SELECT foo FROM bar WHERE foo IN (?, ?)',
 727           'SELECT foo FROM bar WHERE foo IN ?, ?',
 728         ]
 729       },
 730       # math
 731       {
 732         equal => 0,
 733         statements => [
 734           'SELECT * FROM foo WHERE 1 = ( a > b)',
 735           'SELECT * FROM foo WHERE 1 = a > b',
 736           'SELECT * FROM foo WHERE (1 = a) > b',
 737         ]
 738       },
 739       {
 740         equal => 1,
 741         statements => [
 742           'SELECT * FROM foo WHERE bar = baz(buzz)',
 743           'SELECT * FROM foo WHERE bar = (baz( buzz ))',
 744         ]
 745       },
 746       # oddballs
 747       {
 748         equal => 1,
 749         statements => [
 750           'WHERE ( foo GLOB ? )',
 751           'WHERE foo GLOB ?',
 752         ],
 753       },
 754       {
 755         equal => 1,
 756         statements => [
 757           'SELECT FIRST ? SKIP ? [me].[id], [me].[owner]
 758             FROM [books] [me]
 759           WHERE ( ( (EXISTS (
 760             SELECT FIRST ? SKIP ? [owner].[id]
 761               FROM [owners] [owner]
 762             WHERE ( [books].[owner] = [owner].[id] )
 763           )) AND [source] = ? ) )',
 764           'SELECT FIRST ? SKIP ? [me].[id], [me].[owner]
 765             FROM [books] [me]
 766           WHERE ( ( EXISTS (
 767             SELECT FIRST ? SKIP ? [owner].[id]
 768               FROM [owners] [owner]
 769             WHERE ( [books].[owner] = [owner].[id] )
 770           ) AND [source] = ? ) )',
 771         ],
 772       },
 773       {
 774         equal => 1,
 775         statements => [
 776           'WHERE foo = ? FETCH FIRST 1 ROWS ONLY',
 777           'WHERE ( foo = ? ) FETCH FIRST 1 ROWS ONLY',
 778           'WHERE (( foo = ? )) FETCH FIRST 1 ROWS ONLY',
 779         ],
 780       },
 781 );
 782
 783 my @bind_tests = (
 784   # scalar - equal
 785   {
 786     equal => 1,
 787     bindvals => [
 788       undef,
 789       undef,
 790     ]
 791   },
 792   {
 793     equal => 1,
 794     bindvals => [
 795       'foo',
 796       'foo',
 797     ]
 798   },
 799   {
 800     equal => 1,
 801     bindvals => [
 802       42,
 803       42,
 804       '42',
 805     ]
 806   },
 807
 808   # scalarref - equal
 809   {
 810     equal => 1,
 811     bindvals => [
 812       \'foo',
 813       \'foo',
 814     ]
 815   },
 816   {
 817     equal => 1,
 818     bindvals => [
 819       \42,
 820       \42,
 821       \'42',
 822     ]
 823   },
 824
 825   # arrayref - equal
 826   {
 827     equal => 1,
 828     bindvals => [
 829       [],
 830       []
 831     ]
 832   },
 833   {
 834     equal => 1,
 835     bindvals => [
 836       [42],
 837       [42],
 838       ['42'],
 839     ]
 840   },
 841   {
 842     equal => 1,
 843     bindvals => [
 844       [1, 42],
 845       [1, 42],
 846       ['1', 42],
 847       [1, '42'],
 848       ['1', '42'],
 849     ]
 850   },
 851
 852   # hashref - equal
 853   {
 854     equal => 1,
 855     bindvals => [
 856       { foo => 42 },
 857       { foo => 42 },
 858       { foo => '42' },
 859     ]
 860   },
 861   {
 862     equal => 1,
 863     bindvals => [
 864       { foo => 42, bar => 1 },
 865       { foo => 42, bar => 1 },
 866       { foo => '42', bar => 1 },
 867     ]
 868   },
 869
 870   # blessed object - equal
 871   {
 872     equal => 1,
 873     bindvals => [
 874       bless(\(local $_ = 42), 'Life::Universe::Everything'),
 875       bless(\(local $_ = 42), 'Life::Universe::Everything'),
 876     ]
 877   },
 878   {
 879     equal => 1,
 880     bindvals => [
 881       bless([42], 'Life::Universe::Everything'),
 882       bless([42], 'Life::Universe::Everything'),
 883     ]
 884   },
 885   {
 886     equal => 1,
 887     bindvals => [
 888       bless({ answer => 42 }, 'Life::Universe::Everything'),
 889       bless({ answer => 42 }, 'Life::Universe::Everything'),
 890     ]
 891   },
 892
 893   # complex data structure - equal
 894   {
 895     equal => 1,
 896     bindvals => [
 897       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 898       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 899     ]
 900   },
 901
 902
 903   # scalar - different
 904   {
 905     equal => 0,
 906     bindvals => [
 907       undef,
 908       'foo',
 909       42,
 910     ]
 911   },
 912
 913   # scalarref - different
 914   {
 915     equal => 0,
 916     bindvals => [
 917       \undef,
 918       \'foo',
 919       \42,
 920     ]
 921   },
 922
 923   # arrayref - different
 924   {
 925     equal => 0,
 926     bindvals => [
 927       [undef],
 928       ['foo'],
 929       [42],
 930     ]
 931   },
 932
 933   # hashref - different
 934   {
 935     equal => 0,
 936     bindvals => [
 937       { foo => undef },
 938       { foo => 'bar' },
 939       { foo => 42 },
 940     ]
 941   },
 942
 943   # different types
 944   {
 945     equal => 0,
 946     bindvals => [
 947       'foo',
 948       \'foo',
 949       ['foo'],
 950       { foo => 'bar' },
 951     ]
 952   },
 953
 954   # complex data structure - different
 955   {
 956     equal => 0,
 957     bindvals => [
 958       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 959       [43, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 960       [42, { foo => 'baz', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 961       [42, { bar => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 962       [42, { foo => 'bar', quuux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 963       [42, { foo => 'bar', quux => [0, 1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 964       [42, { foo => 'bar', quux => [1, 2, 3, { quux => [4, 5] } ] }, 8 ],
 965       [42, { foo => 'bar', quux => [1, 2, \4, { quux => [4, 5] } ] }, 8 ],
 966       [42, { foo => 'bar', quux => [1, 2, \3, { quuux => [4, 5] } ] }, 8 ],
 967       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5, 6] } ] }, 8 ],
 968       [42, { foo => 'bar', quux => [1, 2, \3, { quux => 4 } ] }, 8 ],
 969       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5], quuux => 1 } ] }, 8 ],
 970       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8, 9 ],
 971     ]
 972   },
 973 );
 974
 975 for my $test (@sql_tests) {
 976
 977   # this does not work on 5.8.8 and earlier :(
 978   #local @{*SQL::Abstract::Test::}{keys %{$test->{opts}}} = map { \$_ } values %{$test->{opts}}
 979   #  if $test->{opts};
 980
 981   my %restore_globals;
 982
 983   for (keys %{$test->{opts} || {} }) {
 984     $restore_globals{$_} = ${${*SQL::Abstract::Test::}{$_}};
 985     ${*SQL::Abstract::Test::}{$_} = \ do { my $cp = $test->{opts}{$_} };
 986   }
 987
 988   my $statements = $test->{statements};
 989   while (@$statements) {
 990     my $sql1 = shift @$statements;
 991     foreach my $sql2 (@$statements) {
 992
 993       my $equal = eq_sql($sql1, $sql2);
 994
 995       TODO: {
 996         local $TODO = $test->{todo} if $test->{todo};
 997
 998         if ($test->{equal}) {
 999           ok($equal, "equal SQL expressions should have been considered equal");
1000         } else {
1001           ok(!$equal, "different SQL expressions should have been considered not equal");
1002         }
1003
1004         if ($equal ^ $test->{equal}) {
1005           my ($ast1, $ast2) = map { SQL::Abstract::Test::parse ($_) } ($sql1, $sql2);
1006           $_ = dumper($_) for ($ast1, $ast2);
1007
1008           diag "sql1: $sql1";
1009           diag "sql2: $sql2";
1010           note $sql_differ || 'No differences found';
1011           note "ast1: $ast1";
1012           note "ast2: $ast2";
1013         }
1014       }
1015     }
1016   }
1017
1018   ${*SQL::Abstract::Test::}{$_} = \$restore_globals{$_}
1019     for keys %restore_globals;
1020 }
1021
1022 for my $test (@bind_tests) {
1023   my $bindvals = $test->{bindvals};
1024   while (@$bindvals) {
1025     my $bind1 = shift @$bindvals;
1026     foreach my $bind2 (@$bindvals) {
1027       my $equal = eq_bind($bind1, $bind2);
1028       if ($test->{equal}) {
1029         ok($equal, "equal bind values considered equal");
1030       } else {
1031         ok(!$equal, "different bind values considered not equal");
1032       }
1033
1034       if ($equal ^ $test->{equal}) {
1035         diag("bind1: " . dumper($bind1));
1036         diag("bind2: " . dumper($bind2));
1037       }
1038     }
1039   }
1040 }
1041
1042 ok(eq_sql_bind(
1043     "SELECT * FROM foo WHERE id = ?", [42],
1044     "SELECT * FROM foo WHERE (id = ?)", [42],
1045   ),
1046   "eq_sql_bind considers equal SQL expressions and bind values equal"
1047 );
1048
1049
1050 ok(!eq_sql_bind(
1051     "SELECT * FROM foo WHERE id = ?", [42],
1052     "SELECT * FROM foo WHERE (id = ?)", [0],
1053   ),
1054   "eq_sql_bind considers equal SQL expressions and different bind values different"
1055 );
1056
1057 ok(!eq_sql_bind(
1058     "SELECT * FROM foo WHERE id = ?", [42],
1059     "SELECT * FROM bar WHERE (id = ?)", [42],
1060   ),
1061   "eq_sql_bind considers different SQL expressions and equal bind values different"
1062 );
1063
1064 # test diag string
1065 ok (! eq_sql (
1066   'SELECT owner_name FROM books me WHERE ( source = ? )',
1067   'SELECT owner_name FROM books me WHERE ( sUOrce = ? )',
1068 ));
1069 like(
1070   $sql_differ,
1071   qr/\Q[ source ] != [ sUOrce ]/,
1072   'expected debug of literal diff',
1073 );
1074
1075 ok (! eq_sql (
1076   'SELECT owner_name FROM books me ORDER BY owner_name',
1077   'SELECT owner_name FROM books me GROUP BY owner_name',
1078 ));
1079 like(
1080   $sql_differ,
1081   qr/\QOP [ORDER BY] != [GROUP BY]/,
1082   'expected debug of op diff',
1083 );
1084
1085 ok (! eq_sql (
1086   'SELECT owner_name FROM books WHERE ( source = ? )',
1087   'SELECT owner_name FROM books'
1088 ));
1089
1090 like(
1091   $sql_differ,
1092   qr|\Q[WHERE source = ?] != [N/A]|,
1093   'expected debug of missing branch',
1094 );
1095
1096
1097 ok (eq_sql_bind (
1098   \[ 'SELECT foo FROM bar WHERE baz = ? or buzz = ?', [ {} => 1 ], 2 ],
1099   'SELECT foo FROM bar WHERE (baz = ?) OR buzz = ?',
1100   [ [ {} => 1 ], 2 ],
1101 ), 'arrayrefref unpacks correctly' );
1102
1103 is_same_sql_bind(
1104   \[ 'SELECT foo FROM bar WHERE baz = ? or buzz = ?', [ {} => 1 ], 2 ],
1105   \[ 'SELECT foo FROM bar WHERE (( baz = ? OR (buzz = ?) ))', [ {} => 1 ], 2 ],
1106   'double arrayrefref unpacks correctly'
1107 );
1108
1109 done_testing;