t/10test.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use List::Util qw(sum);
   6
   7 use Test::More;
   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         ]
 108       },
 109       {
 110         equal => 1,
 111         statements => [
 112           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 OR c = 1/,
 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         ]
 117       },
 118       {
 119         equal => 1,
 120         statements => [
 121           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 1 OR c = 1 OR d = 1) AND (e = 1 AND f = 1)/,
 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         ]
 125       },
 126
 127       # WHERE condition - different
 128       {
 129         equal => 0,
 130         statements => [
 131           q/SELECT foo FROM bar WHERE a = 1/,
 132           q/SELECT quux FROM bar WHERE a = 1/,
 133           q/SELECT foo FROM quux WHERE a = 1/,
 134           q/FOOBAR foo FROM bar WHERE a = 1/,
 135
 136           q/SELECT foo FROM bar WHERE a = 2/,
 137           q/SELECT foo FROM bar WHERE a < 1/,
 138           q/SELECT foo FROM bar WHERE b = 1/,
 139           q/SELECT foo FROM bar WHERE (c = 1)/,
 140           q/SELECT foo FROM bar WHERE (d = 1)/,
 141
 142           q/SELECT foo FROM bar WHERE a = 1 AND quux/,
 143           q/SELECT foo FROM bar WHERE a = 1 GROUP BY foo/,
 144           q/SELECT foo FROM bar WHERE a = 1 ORDER BY foo/,
 145           q/SELECT foo FROM bar WHERE a = 1 LIMIT 1/,
 146           q/SELECT foo FROM bar WHERE a = 1 OFFSET 1/,
 147           q/SELECT foo FROM bar JOIN quux WHERE a = 1/,
 148           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE a = 1/,
 149         ]
 150       },
 151       {
 152         equal => 0,
 153         statements => [
 154           q/SELECT foo FROM bar WHERE a = 1 AND b = 1/,
 155           q/SELECT quux FROM bar WHERE a = 1 AND b = 1/,
 156           q/SELECT foo FROM quux WHERE a = 1 AND b = 1/,
 157           q/FOOBAR foo FROM bar WHERE a = 1 AND b = 1/,
 158
 159           q/SELECT foo FROM bar WHERE a = 2 AND b = 1/,
 160           q/SELECT foo FROM bar WHERE a = 3 AND (b = 1)/,
 161           q/SELECT foo FROM bar WHERE (a = 4) AND b = 1/,
 162           q/SELECT foo FROM bar WHERE (a = 5) AND (b = 1)/,
 163           q/SELECT foo FROM bar WHERE ((a = 6) AND (b = 1))/,
 164           q/SELECT foo FROM bar WHERE ((a = 7) AND (b = 1))/,
 165
 166           q/SELECT foo FROM bar WHERE a = 1 AND b = 2/,
 167           q/SELECT foo FROM bar WHERE a = 1 AND (b = 3)/,
 168           q/SELECT foo FROM bar WHERE (a = 1) AND b = 4/,
 169           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 5)/,
 170           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 6))/,
 171           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 7))/,
 172
 173           q/SELECT foo FROM bar WHERE a < 1 AND b = 1/,
 174           q/SELECT foo FROM bar WHERE b = 1 AND b = 1/,
 175           q/SELECT foo FROM bar WHERE (c = 1) AND b = 1/,
 176           q/SELECT foo FROM bar WHERE (d = 1) AND b = 1/,
 177
 178           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND quux/,
 179           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 GROUP BY foo/,
 180           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 ORDER BY foo/,
 181           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 LIMIT 1/,
 182           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 OFFSET 1/,
 183           q/SELECT foo FROM bar JOIN quux WHERE a = 1 AND b = 1/,
 184           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE a = 1 AND b = 1/,
 185         ]
 186       },
 187       {
 188         equal => 0,
 189         statements => [
 190           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 OR c = 1/,
 191           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1) OR c = 1/,
 192           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 OR c = 1)/,
 193         ]
 194       },
 195       {
 196         equal => 0,
 197         statements => [
 198           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 AND c = 1/,
 199           q/SELECT foo FROM bar WHERE (a = 1 OR b = 1) AND c = 1/,
 200           q/SELECT foo FROM bar WHERE a = 1 OR (b = 1 AND c = 1)/,
 201         ]
 202       },
 203       {
 204         equal => 0,
 205         statements => [
 206           # BETWEEN with/without parenthesis around itself/RHS is a sticky business
 207           # if I made a mistake here, simply rewrite the special BETWEEN handling in
 208           # _recurse_parse()
 209           #
 210           # by RIBASUSHI
 211           q/SELECT foo FROM bar WHERE ( completion_date BETWEEN ? AND ? AND status = ? )/,
 212           q/SELECT foo FROM bar WHERE completion_date BETWEEN (? AND ?) AND status = ?/,
 213           q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ?) ) AND status = ? )/,
 214           q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ? AND status = ?) ) )/,
 215         ]
 216       },
 217
 218       # JOIN condition - equal
 219       {
 220         equal => 1,
 221         statements => [
 222           q/SELECT foo FROM bar JOIN baz ON a = 1 WHERE x = 1/,
 223           q/SELECT foo FROM bar JOIN baz ON a=1 WHERE x = 1/,
 224           q/SELECT foo FROM bar JOIN baz ON (a = 1) WHERE x = 1/,
 225           q/SELECT foo FROM bar JOIN baz ON (a=1) WHERE x = 1/,
 226           q/SELECT foo FROM bar JOIN baz ON ( a = 1 ) WHERE x = 1/,
 227           q/
 228             SELECT
 229               foo
 230             FROM
 231               bar
 232             JOIN
 233               baz
 234             ON
 235               a = 1
 236             WHERE
 237               x = 1
 238           /,
 239           q/
 240             SELECT
 241               foo
 242             FROM
 243               bar
 244             JOIN
 245               baz
 246             ON
 247               (a = 1)
 248             WHERE
 249               x = 1
 250           /,
 251           q/
 252             SELECT
 253               foo
 254             FROM
 255               bar
 256             JOIN
 257               baz
 258             ON
 259               ( a = 1 )
 260             WHERE
 261               x = 1
 262           /,
 263           q/SELECT foo FROM bar JOIN baz ON ((a = 1)) WHERE x = 1/,
 264           q/SELECT foo FROM bar JOIN baz ON ( (a = 1) ) WHERE x = 1/,
 265           q/SELECT foo FROM bar JOIN baz ON ( ( a = 1 ) ) WHERE x = 1/,
 266         ]
 267       },
 268       {
 269         equal => 1,
 270         statements => [
 271           q/SELECT foo FROM bar JOIN baz ON a = 1 AND b = 1 WHERE x = 1/,
 272           q/SELECT foo FROM bar JOIN baz ON (a = 1) AND (b = 1) WHERE x = 1/,
 273           q/SELECT foo FROM bar JOIN baz ON ((a = 1) AND (b = 1)) WHERE x = 1/,
 274           q/SELECT foo FROM bar JOIN baz ON (a = 1 AND b = 1) WHERE x = 1/,
 275           q/SELECT foo FROM bar JOIN baz ON ((a = 1 AND b = 1)) WHERE x = 1/,
 276           q/SELECT foo FROM bar JOIN baz ON (((a = 1) AND (b = 1))) WHERE x = 1/,
 277           q/
 278             SELECT
 279               foo
 280             FROM
 281               bar
 282             JOIN
 283               baz
 284             ON
 285               a = 1
 286               AND
 287               b = 1
 288             WHERE
 289               x = 1
 290           /,
 291           q/
 292             SELECT
 293               foo
 294             FROM
 295               bar
 296             JOIN
 297               baz
 298             ON
 299               (a = 1
 300               AND
 301               b = 1)
 302             WHERE
 303               x = 1
 304           /,
 305           q/
 306             SELECT
 307               foo
 308             FROM
 309               bar
 310             JOIN
 311               baz
 312             ON
 313               (a = 1)
 314               AND
 315               (b = 1)
 316             WHERE
 317               x = 1
 318           /,
 319           q/
 320             SELECT
 321               foo
 322             FROM
 323               bar
 324             JOIN
 325               baz
 326             ON
 327               ((a = 1)
 328               AND
 329               (b = 1))
 330             WHERE
 331               x = 1
 332           /,
 333         ]
 334       },
 335
 336       # JOIN condition - different
 337       {
 338         equal => 0,
 339         statements => [
 340           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE quuux/,
 341           q/SELECT quux FROM bar JOIN quux ON a = 1 WHERE quuux/,
 342           q/SELECT foo FROM quux JOIN quux ON a = 1 WHERE quuux/,
 343           q/FOOBAR foo FROM bar JOIN quux ON a = 1 WHERE quuux/,
 344
 345           q/SELECT foo FROM bar JOIN quux ON a = 2 WHERE quuux/,
 346           q/SELECT foo FROM bar JOIN quux ON a < 1 WHERE quuux/,
 347           q/SELECT foo FROM bar JOIN quux ON b = 1 WHERE quuux/,
 348           q/SELECT foo FROM bar JOIN quux ON (c = 1) WHERE quuux/,
 349           q/SELECT foo FROM bar JOIN quux ON (d = 1) WHERE quuux/,
 350
 351           q/SELECT foo FROM bar JOIN quux ON a = 1 AND quuux/,
 352           q/SELECT foo FROM bar JOIN quux ON a = 1 GROUP BY foo/,
 353           q/SELECT foo FROM bar JOIN quux ON a = 1 ORDER BY foo/,
 354           q/SELECT foo FROM bar JOIN quux ON a = 1 LIMIT 1/,
 355           q/SELECT foo FROM bar JOIN quux ON a = 1 OFFSET 1/,
 356           q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux/,
 357           q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux ON a = 1/,
 358         ]
 359       },
 360       {
 361         equal => 0,
 362         statements => [
 363           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 364           q/SELECT quux FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 365           q/SELECT foo FROM quux JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 366           q/FOOBAR foo FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
 367
 368           q/SELECT foo FROM bar JOIN quux ON a = 2 AND b = 1 WHERE quuux/,
 369           q/SELECT foo FROM bar JOIN quux ON a = 3 AND (b = 1) WHERE quuux/,
 370           q/SELECT foo FROM bar JOIN quux ON (a = 4) AND b = 1 WHERE quuux/,
 371           q/SELECT foo FROM bar JOIN quux ON (a = 5) AND (b = 1) WHERE quuux/,
 372           q/SELECT foo FROM bar JOIN quux ON ((a = 6) AND (b = 1)) WHERE quuux/,
 373           q/SELECT foo FROM bar JOIN quux ON ((a = 7) AND (b = 1)) WHERE quuux/,
 374
 375           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 2 WHERE quuux/,
 376           q/SELECT foo FROM bar JOIN quux ON a = 1 AND (b = 3) WHERE quuux/,
 377           q/SELECT foo FROM bar JOIN quux ON (a = 1) AND b = 4 WHERE quuux/,
 378           q/SELECT foo FROM bar JOIN quux ON (a = 1) AND (b = 5) WHERE quuux/,
 379           q/SELECT foo FROM bar JOIN quux ON ((a = 1) AND (b = 6)) WHERE quuux/,
 380           q/SELECT foo FROM bar JOIN quux ON ((a = 1) AND (b = 7)) WHERE quuux/,
 381
 382           q/SELECT foo FROM bar JOIN quux ON a < 1 AND b = 1 WHERE quuux/,
 383           q/SELECT foo FROM bar JOIN quux ON b = 1 AND b = 1 WHERE quuux/,
 384           q/SELECT foo FROM bar JOIN quux ON (c = 1) AND b = 1 WHERE quuux/,
 385           q/SELECT foo FROM bar JOIN quux ON (d = 1) AND b = 1 WHERE quuux/,
 386
 387           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 AND quuux/,
 388           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 GROUP BY foo/,
 389           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 ORDER BY foo/,
 390           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 LIMIT 1/,
 391           q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 OFFSET 1/,
 392           q/SELECT foo FROM bar JOIN quux JOIN quuux ON a = 1 AND b = 1/,
 393           q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux ON a = 1 AND b = 1/,
 394         ]
 395       },
 396
 397       # DISTINCT ON (...) not confused with JOIN ON (...)
 398       {
 399         equal => 1,
 400         statements => [
 401           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE a = 1/,
 402           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE a=1/,
 403           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE (a = 1)/,
 404           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE (a=1)/,
 405           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( a = 1 )/,
 406           q/
 407             SELECT DISTINCT ON (foo, quux)
 408               foo,
 409               quux
 410             FROM
 411               bar
 412             WHERE
 413               a = 1
 414           /,
 415           q/
 416             SELECT DISTINCT ON (foo, quux)
 417               foo,
 418               quux
 419             FROM
 420               bar
 421             WHERE
 422               (a = 1)
 423           /,
 424           q/
 425             SELECT DISTINCT ON (foo, quux)
 426               foo,
 427               quux
 428             FROM
 429               bar
 430             WHERE
 431               ( a = 1 )
 432           /,
 433           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ((a = 1))/,
 434           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( (a = 1) )/,
 435           q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( ( a = 1 ) )/,
 436         ]
 437       },
 438
 439       # subselects - equal
 440       {
 441         equal => 1,
 442         statements => [
 443           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 1/,
 444           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE (a = 1)/,
 445           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE a = 1/,
 446           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE (a = 1)/,
 447         ]
 448       },
 449       {
 450         equal => 1,
 451         statements => [
 452           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 1/,
 453           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 1)) AS foo WHERE a = 1/,
 454           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 1) AS foo WHERE a = 1/,
 455           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 1)) AS foo WHERE a = 1/,
 456           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 1))) AS foo WHERE a = 1/,
 457
 458           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE (a = 1)/,
 459           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 1)) AS foo WHERE (a = 1)/,
 460           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 1) AS foo WHERE (a = 1)/,
 461           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 1)) AS foo WHERE (a = 1)/,
 462           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 1))) AS foo WHERE (a = 1)/,
 463         ]
 464       },
 465
 466       # subselects - different
 467       {
 468         equal => 0,
 469         statements => [
 470           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 1/,
 471           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 2/,
 472           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE (a = 3)/,
 473           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE a = 4/,
 474           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE (a = 5)/,
 475           q/SELECT * FROM (SELECT * FROM bar WHERE b = 2) AS foo WHERE a = 1/,
 476           q/SELECT * FROM (SELECT * FROM bar WHERE b = 3) AS foo WHERE (a = 1)/,
 477           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 4)) AS foo WHERE a = 1/,
 478           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 5)) AS foo WHERE (a = 1)/,
 479         ]
 480       },
 481       {
 482         equal => 0,
 483         statements => [
 484           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 1/,
 485           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 1/,
 486           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 1/,
 487           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 1/,
 488           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 1/,
 489
 490           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 1)/,
 491           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 1)/,
 492           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 1)/,
 493           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 1)/,
 494           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 1)/,
 495
 496           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 2/,
 497           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 2/,
 498           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 2/,
 499           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 2/,
 500           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 2/,
 501
 502           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 2)/,
 503           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 2)/,
 504           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 2)/,
 505           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 2)/,
 506           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 2)/,
 507         ]
 508       },
 509 );
 510
 511 my @bind_tests = (
 512   # scalar - equal
 513   {
 514     equal => 1,
 515     bindvals => [
 516       undef,
 517       undef,
 518     ]
 519   },
 520   {
 521     equal => 1,
 522     bindvals => [
 523       'foo',
 524       'foo',
 525     ]
 526   },
 527   {
 528     equal => 1,
 529     bindvals => [
 530       42,
 531       42,
 532       '42',
 533     ]
 534   },
 535
 536   # scalarref - equal
 537   {
 538     equal => 1,
 539     bindvals => [
 540       \'foo',
 541       \'foo',
 542     ]
 543   },
 544   {
 545     equal => 1,
 546     bindvals => [
 547       \42,
 548       \42,
 549       \'42',
 550     ]
 551   },
 552
 553   # arrayref - equal
 554   {
 555     equal => 1,
 556     bindvals => [
 557       [],
 558       []
 559     ]
 560   },
 561   {
 562     equal => 1,
 563     bindvals => [
 564       [42],
 565       [42],
 566       ['42'],
 567     ]
 568   },
 569   {
 570     equal => 1,
 571     bindvals => [
 572       [1, 42],
 573       [1, 42],
 574       ['1', 42],
 575       [1, '42'],
 576       ['1', '42'],
 577     ]
 578   },
 579
 580   # hashref - equal
 581   {
 582     equal => 1,
 583     bindvals => [
 584       { foo => 42 },
 585       { foo => 42 },
 586       { foo => '42' },
 587     ]
 588   },
 589   {
 590     equal => 1,
 591     bindvals => [
 592       { foo => 42, bar => 1 },
 593       { foo => 42, bar => 1 },
 594       { foo => '42', bar => 1 },
 595     ]
 596   },
 597
 598   # blessed object - equal
 599   {
 600     equal => 1,
 601     bindvals => [
 602       bless(\(local $_ = 42), 'Life::Universe::Everything'),
 603       bless(\(local $_ = 42), 'Life::Universe::Everything'),
 604     ]
 605   },
 606   {
 607     equal => 1,
 608     bindvals => [
 609       bless([42], 'Life::Universe::Everything'),
 610       bless([42], 'Life::Universe::Everything'),
 611     ]
 612   },
 613   {
 614     equal => 1,
 615     bindvals => [
 616       bless({ answer => 42 }, 'Life::Universe::Everything'),
 617       bless({ answer => 42 }, 'Life::Universe::Everything'),
 618     ]
 619   },
 620
 621   # complex data structure - equal
 622   {
 623     equal => 1,
 624     bindvals => [
 625       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 626       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 627     ]
 628   },
 629
 630
 631   # scalar - different
 632   {
 633     equal => 0,
 634     bindvals => [
 635       undef,
 636       'foo',
 637       42,
 638     ]
 639   },
 640
 641   # scalarref - different
 642   {
 643     equal => 0,
 644     bindvals => [
 645       \undef,
 646       \'foo',
 647       \42,
 648     ]
 649   },
 650
 651   # arrayref - different
 652   {
 653     equal => 0,
 654     bindvals => [
 655       [undef],
 656       ['foo'],
 657       [42],
 658     ]
 659   },
 660
 661   # hashref - different
 662   {
 663     equal => 0,
 664     bindvals => [
 665       { foo => undef },
 666       { foo => 'bar' },
 667       { foo => 42 },
 668     ]
 669   },
 670
 671   # different types
 672   {
 673     equal => 0,
 674     bindvals => [
 675       'foo',
 676       \'foo',
 677       ['foo'],
 678       { foo => 'bar' },
 679     ]
 680   },
 681
 682   # complex data structure - different
 683   {
 684     equal => 0,
 685     bindvals => [
 686       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 687       [43, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 688       [42, { foo => 'baz', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 689       [42, { bar => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 690       [42, { foo => 'bar', quuux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 691       [42, { foo => 'bar', quux => [0, 1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 692       [42, { foo => 'bar', quux => [1, 2, 3, { quux => [4, 5] } ] }, 8 ],
 693       [42, { foo => 'bar', quux => [1, 2, \4, { quux => [4, 5] } ] }, 8 ],
 694       [42, { foo => 'bar', quux => [1, 2, \3, { quuux => [4, 5] } ] }, 8 ],
 695       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5, 6] } ] }, 8 ],
 696       [42, { foo => 'bar', quux => [1, 2, \3, { quux => 4 } ] }, 8 ],
 697       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5], quuux => 1 } ] }, 8 ],
 698       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8, 9 ],
 699     ]
 700   },
 701 );
 702
 703 plan tests => 1 +
 704   sum(
 705     map { $_ * ($_ - 1) / 2 }
 706       map { scalar @{$_->{statements}} }
 707         @sql_tests
 708   ) +
 709   sum(
 710     map { $_ * ($_ - 1) / 2 }
 711       map { scalar @{$_->{bindvals}} }
 712         @bind_tests
 713   ) +
 714   3;
 715
 716 use_ok('SQL::Abstract::Test', import => [qw(
 717   eq_sql_bind eq_sql eq_bind is_same_sql_bind
 718 )]);
 719
 720 for my $test (@sql_tests) {
 721   my $statements = $test->{statements};
 722   while (@$statements) {
 723     my $sql1 = shift @$statements;
 724     foreach my $sql2 (@$statements) {
 725       my $equal = eq_sql($sql1, $sql2);
 726       TODO: {
 727         local $TODO = $test->{todo} if $test->{todo};
 728
 729         if ($test->{equal}) {
 730           ok($equal, "equal SQL expressions should have been considered equal");
 731         } else {
 732           ok(!$equal, "different SQL expressions should have been considered not equal");
 733         }
 734
 735         if ($equal ^ $test->{equal}) {
 736           diag("sql1: $sql1");
 737           diag("sql2: $sql2");
 738         }
 739       }
 740     }
 741   }
 742 }
 743
 744 for my $test (@bind_tests) {
 745   my $bindvals = $test->{bindvals};
 746   while (@$bindvals) {
 747     my $bind1 = shift @$bindvals;
 748     foreach my $bind2 (@$bindvals) {
 749       my $equal = eq_bind($bind1, $bind2);
 750       if ($test->{equal}) {
 751         ok($equal, "equal bind values considered equal");
 752       } else {
 753         ok(!$equal, "different bind values considered not equal");
 754       }
 755
 756       if ($equal ^ $test->{equal}) {
 757         diag("bind1: " . Dumper($bind1));
 758         diag("bind2: " . Dumper($bind2));
 759       }
 760     }
 761   }
 762 }
 763
 764 ok(eq_sql_bind(
 765     "SELECT * FROM foo WHERE id = ?", [42],
 766     "SELECT * FROM foo WHERE (id = ?)", [42],
 767   ),
 768   "eq_sql_bind considers equal SQL expressions and bind values equal"
 769 );
 770
 771
 772 ok(!eq_sql_bind(
 773     "SELECT * FROM foo WHERE id = ?", [42],
 774     "SELECT * FROM foo WHERE (id = ?)", [0],
 775   ),
 776   "eq_sql_bind considers equal SQL expressions and different bind values different"
 777 );
 778
 779 ok(!eq_sql_bind(
 780     "SELECT * FROM foo WHERE id = ?", [42],
 781     "SELECT * FROM bar WHERE (id = ?)", [42],
 782   ),
 783   "eq_sql_bind considers different SQL expressions and equal bind values different"
 784 );