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 # equivalent to $Module::Install::AUTHOR
  10 my $author = (
  11   ( not -d './inc' )
  12     or
  13   ( -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author') )
  14 );
  15
  16 if (not $author and not $ENV{SQLATEST_TESTER} and not $ENV{AUTOMATED_TESTING}) {
  17   plan skip_all => 'Skipping resource intensive self-tests, use SQLATEST_TESTER=1 to run';
  18 }
  19
  20
  21 my @sql_tests = (
  22       # WHERE condition - equal
  23       {
  24         equal => 1,
  25         statements => [
  26           q/SELECT foo FROM bar WHERE a = 1/,
  27           q/SELECT foo FROM bar WHERE a=1/,
  28           q/SELECT foo FROM bar WHERE (a = 1)/,
  29           q/SELECT foo FROM bar WHERE (a=1)/,
  30           q/SELECT foo FROM bar WHERE ( a = 1 )/,
  31           q/
  32             SELECT
  33               foo
  34             FROM
  35               bar
  36             WHERE
  37               a = 1
  38           /,
  39           q/
  40             SELECT
  41               foo
  42             FROM
  43               bar
  44             WHERE
  45               (a = 1)
  46           /,
  47           q/
  48             SELECT
  49               foo
  50             FROM
  51               bar
  52             WHERE
  53               ( a = 1 )
  54           /,
  55           q/SELECT foo FROM bar WHERE ((a = 1))/,
  56           q/SELECT foo FROM bar WHERE ( (a = 1) )/,
  57           q/SELECT foo FROM bar WHERE ( ( a = 1 ) )/,
  58         ]
  59       },
  60       {
  61         equal => 1,
  62         statements => [
  63           q/SELECT foo FROM bar WHERE a = 1 AND b = 1/,
  64           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 1)/,
  65           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 1))/,
  66           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1)/,
  67           q/SELECT foo FROM bar WHERE ((a = 1 AND b = 1))/,
  68           q/SELECT foo FROM bar WHERE (((a = 1) AND (b = 1)))/,
  69           q/
  70             SELECT
  71               foo
  72             FROM
  73               bar
  74             WHERE
  75               a = 1
  76               AND
  77               b = 1
  78           /,
  79           q/
  80             SELECT
  81               foo
  82             FROM
  83               bar
  84             WHERE
  85               (a = 1
  86               AND
  87               b = 1)
  88           /,
  89           q/
  90             SELECT
  91               foo
  92             FROM
  93               bar
  94             WHERE
  95               (a = 1)
  96               AND
  97               (b = 1)
  98           /,
  99           q/
 100             SELECT
 101               foo
 102             FROM
 103               bar
 104             WHERE
 105               ((a = 1)
 106               AND
 107               (b = 1))
 108           /,
 109         ]
 110       },
 111       {
 112         equal => 1,
 113         statements => [
 114           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND c = 1/,
 115           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1 AND c = 1)/,
 116           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1) AND c = 1/,
 117           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 AND c = 1)/,
 118           q/SELECT foo FROM bar WHERE ((((a = 1))) AND (b = 1 AND c = 1))/,
 119         ]
 120       },
 121       {
 122         equal => 1,
 123         statements => [
 124           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 OR c = 1/,
 125           q/SELECT foo FROM bar WHERE (a = 1 OR b = 1) OR c = 1/,
 126           q/SELECT foo FROM bar WHERE a = 1 OR (b = 1 OR c = 1)/,
 127           q/SELECT foo FROM bar WHERE a = 1 OR ((b = 1 OR (c = 1)))/,
 128         ]
 129       },
 130       {
 131         equal => 1,
 132         statements => [
 133           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 1 OR c = 1 OR d = 1) AND (e = 1 AND f = 1)/,
 134           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 OR c = 1 OR d = 1) AND e = 1 AND (f = 1)/,
 135           q/SELECT foo FROM bar WHERE ( ((a = 1) AND ( b = 1 OR (c = 1 OR d = 1) )) AND ((e = 1)) AND f = 1) /,
 136         ]
 137       },
 138       {
 139         equal => 1,
 140         statements => [
 141           q/SELECT foo FROM bar WHERE (a) AND (b = 2)/,
 142           q/SELECT foo FROM bar WHERE (a AND b = 2)/,
 143           q/SELECT foo FROM bar WHERE (a AND (b = 2))/,
 144           q/SELECT foo FROM bar WHERE a AND (b = 2)/,
 145         ]
 146       },
 147       {
 148         equal => 1,
 149         statements => [
 150           q/SELECT foo FROM bar WHERE ((NOT a) AND b = 2)/,
 151           q/SELECT foo FROM bar WHERE (NOT a) AND (b = 2)/,
 152           q/SELECT foo FROM bar WHERE (NOT (a)) AND b = 2/,
 153         ],
 154       },
 155       {
 156         equal => 0,
 157         statements => [
 158           q/SELECT foo FROM bar WHERE NOT a AND (b = 2)/,
 159           q/SELECT foo FROM bar WHERE (NOT a) AND (b = 2)/,
 160         ]
 161       },
 162       {
 163         equal => 0,
 164         parenthesis_significant => 1,
 165         statements => [
 166           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND c = 1/,
 167           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1 AND c = 1)/,
 168           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1) AND c = 1/,
 169           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 AND c = 1)/,
 170           q/SELECT foo FROM bar WHERE ((((a = 1))) AND (b = 1 AND c = 1))/,
 171         ]
 172       },
 173       {
 174         equal => 0,
 175         parenthesis_significant => 1,
 176         statements => [
 177           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 OR c = 1/,
 178           q/SELECT foo FROM bar WHERE (a = 1 OR b = 1) OR c = 1/,
 179           q/SELECT foo FROM bar WHERE a = 1 OR (b = 1 OR c = 1)/,
 180           q/SELECT foo FROM bar WHERE a = 1 OR ((b = 1 OR (c = 1)))/,
 181         ]
 182       },
 183       {
 184         equal => 0,
 185         parenthesis_significant => 1,
 186         statements => [
 187           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 1 OR c = 1 OR d = 1) AND (e = 1 AND f = 1)/,
 188           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 OR c = 1 OR d = 1) AND e = 1 AND (f = 1)/,
 189           q/SELECT foo FROM bar WHERE ( ((a = 1) AND ( b = 1 OR (c = 1 OR d = 1) )) AND ((e = 1)) AND f = 1) /,
 190         ]
 191       },
 192
 193       # WHERE condition - different
 194       {
 195         equal => 0,
 196         statements => [
 197           q/SELECT foo FROM bar WHERE a = 1/,
 198           q/SELECT quux FROM bar WHERE a = 1/,
 199           q/SELECT foo FROM quux WHERE a = 1/,
 200           q/FOOBAR foo FROM bar WHERE a = 1/,
 201
 202           q/SELECT foo FROM bar WHERE a = 2/,
 203           q/SELECT foo FROM bar WHERE a < 1/,
 204           q/SELECT foo FROM bar WHERE b = 1/,
 205           q/SELECT foo FROM bar WHERE (c = 1)/,
 206           q/SELECT foo FROM bar WHERE (d = 1)/,
 207
 208           q/SELECT foo FROM bar WHERE a = 1 AND quux/,
 209           q/SELECT foo FROM bar WHERE a = 1 GROUP BY foo/,
 210           q/SELECT foo FROM bar WHERE a = 1 ORDER BY foo/,
 211           q/SELECT foo FROM bar WHERE a = 1 LIMIT 1/,
 212           q/SELECT foo FROM bar WHERE a = 1 OFFSET 1/,
 213           q/SELECT foo FROM bar JOIN quux WHERE a = 1/,
 214           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE a = 1/,
 215         ]
 216       },
 217       {
 218         equal => 0,
 219         statements => [
 220           q/SELECT foo FROM bar WHERE a = 1 AND b = 1/,
 221           q/SELECT quux FROM bar WHERE a = 1 AND b = 1/,
 222           q/SELECT foo FROM quux WHERE a = 1 AND b = 1/,
 223           q/FOOBAR foo FROM bar WHERE a = 1 AND b = 1/,
 224
 225           q/SELECT foo FROM bar WHERE a = 2 AND b = 1/,
 226           q/SELECT foo FROM bar WHERE a = 3 AND (b = 1)/,
 227           q/SELECT foo FROM bar WHERE (a = 4) AND b = 1/,
 228           q/SELECT foo FROM bar WHERE (a = 5) AND (b = 1)/,
 229           q/SELECT foo FROM bar WHERE ((a = 6) AND (b = 1))/,
 230           q/SELECT foo FROM bar WHERE ((a = 7) AND (b = 1))/,
 231
 232           q/SELECT foo FROM bar WHERE a = 1 AND b = 2/,
 233           q/SELECT foo FROM bar WHERE a = 1 AND (b = 3)/,
 234           q/SELECT foo FROM bar WHERE (a = 1) AND b = 4/,
 235           q/SELECT foo FROM bar WHERE (a = 1) AND (b = 5)/,
 236           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 6))/,
 237           q/SELECT foo FROM bar WHERE ((a = 1) AND (b = 7))/,
 238
 239           q/SELECT foo FROM bar WHERE a < 1 AND b = 1/,
 240           q/SELECT foo FROM bar WHERE b = 1 AND b = 1/,
 241           q/SELECT foo FROM bar WHERE (c = 1) AND b = 1/,
 242           q/SELECT foo FROM bar WHERE (d = 1) AND b = 1/,
 243
 244           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND quux/,
 245           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 GROUP BY foo/,
 246           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 ORDER BY foo/,
 247           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 LIMIT 1/,
 248           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 OFFSET 1/,
 249           q/SELECT foo FROM bar JOIN quux WHERE a = 1 AND b = 1/,
 250           q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE a = 1 AND b = 1/,
 251         ]
 252       },
 253       {
 254         equal => 0,
 255         statements => [
 256           q/SELECT foo FROM bar WHERE a = 1 AND b = 1 OR c = 1/,
 257           q/SELECT foo FROM bar WHERE (a = 1 AND b = 1) OR c = 1/,
 258           q/SELECT foo FROM bar WHERE a = 1 AND (b = 1 OR c = 1)/,
 259         ]
 260       },
 261       {
 262         equal => 0,
 263         statements => [
 264           q/SELECT foo FROM bar WHERE a = 1 OR b = 1 AND c = 1/,
 265           q/SELECT foo FROM bar WHERE (a = 1 OR b = 1) AND c = 1/,
 266           q/SELECT foo FROM bar WHERE a = 1 OR (b = 1 AND c = 1)/,
 267         ]
 268       },
 269       {
 270         equal => 0,
 271         parenthesis_significant => 1,
 272         statements => [
 273           q/SELECT foo FROM bar WHERE a IN (1,2,3)/,
 274           q/SELECT foo FROM bar WHERE a IN (1,3,2)/,
 275           q/SELECT foo FROM bar WHERE a IN ((1,2,3))/,
 276         ]
 277       },
 278       {
 279         equal => 0,
 280         statements => [
 281           # BETWEEN with/without parenthesis around itself/RHS is a sticky business
 282           # if I made a mistake here, simply rewrite the special BETWEEN handling in
 283           # _recurse_parse()
 284           #
 285           # by RIBASUSHI
 286           q/SELECT foo FROM bar WHERE ( completion_date BETWEEN ? AND ? AND status = ? )/,
 287           q/SELECT foo FROM bar WHERE completion_date BETWEEN (? AND ?) AND status = ?/,
 288           q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ?) ) AND status = ? )/,
 289           q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ? AND status = ?) ) )/,
 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/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 1/,
 546           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 2/,
 547           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE (a = 3)/,
 548           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE a = 4/,
 549           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE (a = 5)/,
 550           q/SELECT * FROM (SELECT * FROM bar WHERE b = 2) AS foo WHERE a = 1/,
 551           q/SELECT * FROM (SELECT * FROM bar WHERE b = 3) AS foo WHERE (a = 1)/,
 552           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 4)) AS foo WHERE a = 1/,
 553           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 5)) AS foo WHERE (a = 1)/,
 554         ]
 555       },
 556       {
 557         equal => 0,
 558         statements => [
 559           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 1/,
 560           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 1/,
 561           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 1/,
 562           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 1/,
 563           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 1/,
 564
 565           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 1)/,
 566           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 1)/,
 567           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 1)/,
 568           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 1)/,
 569           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 1)/,
 570
 571           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 2/,
 572           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 2/,
 573           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 2/,
 574           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 2/,
 575           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 2/,
 576
 577           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 2)/,
 578           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 2)/,
 579           q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 2)/,
 580           q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 2)/,
 581           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 2)/,
 582         ]
 583       },
 584 );
 585
 586 my @bind_tests = (
 587   # scalar - equal
 588   {
 589     equal => 1,
 590     bindvals => [
 591       undef,
 592       undef,
 593     ]
 594   },
 595   {
 596     equal => 1,
 597     bindvals => [
 598       'foo',
 599       'foo',
 600     ]
 601   },
 602   {
 603     equal => 1,
 604     bindvals => [
 605       42,
 606       42,
 607       '42',
 608     ]
 609   },
 610
 611   # scalarref - equal
 612   {
 613     equal => 1,
 614     bindvals => [
 615       \'foo',
 616       \'foo',
 617     ]
 618   },
 619   {
 620     equal => 1,
 621     bindvals => [
 622       \42,
 623       \42,
 624       \'42',
 625     ]
 626   },
 627
 628   # arrayref - equal
 629   {
 630     equal => 1,
 631     bindvals => [
 632       [],
 633       []
 634     ]
 635   },
 636   {
 637     equal => 1,
 638     bindvals => [
 639       [42],
 640       [42],
 641       ['42'],
 642     ]
 643   },
 644   {
 645     equal => 1,
 646     bindvals => [
 647       [1, 42],
 648       [1, 42],
 649       ['1', 42],
 650       [1, '42'],
 651       ['1', '42'],
 652     ]
 653   },
 654
 655   # hashref - equal
 656   {
 657     equal => 1,
 658     bindvals => [
 659       { foo => 42 },
 660       { foo => 42 },
 661       { foo => '42' },
 662     ]
 663   },
 664   {
 665     equal => 1,
 666     bindvals => [
 667       { foo => 42, bar => 1 },
 668       { foo => 42, bar => 1 },
 669       { foo => '42', bar => 1 },
 670     ]
 671   },
 672
 673   # blessed object - equal
 674   {
 675     equal => 1,
 676     bindvals => [
 677       bless(\(local $_ = 42), 'Life::Universe::Everything'),
 678       bless(\(local $_ = 42), 'Life::Universe::Everything'),
 679     ]
 680   },
 681   {
 682     equal => 1,
 683     bindvals => [
 684       bless([42], 'Life::Universe::Everything'),
 685       bless([42], 'Life::Universe::Everything'),
 686     ]
 687   },
 688   {
 689     equal => 1,
 690     bindvals => [
 691       bless({ answer => 42 }, 'Life::Universe::Everything'),
 692       bless({ answer => 42 }, 'Life::Universe::Everything'),
 693     ]
 694   },
 695
 696   # complex data structure - equal
 697   {
 698     equal => 1,
 699     bindvals => [
 700       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 701       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 702     ]
 703   },
 704
 705
 706   # scalar - different
 707   {
 708     equal => 0,
 709     bindvals => [
 710       undef,
 711       'foo',
 712       42,
 713     ]
 714   },
 715
 716   # scalarref - different
 717   {
 718     equal => 0,
 719     bindvals => [
 720       \undef,
 721       \'foo',
 722       \42,
 723     ]
 724   },
 725
 726   # arrayref - different
 727   {
 728     equal => 0,
 729     bindvals => [
 730       [undef],
 731       ['foo'],
 732       [42],
 733     ]
 734   },
 735
 736   # hashref - different
 737   {
 738     equal => 0,
 739     bindvals => [
 740       { foo => undef },
 741       { foo => 'bar' },
 742       { foo => 42 },
 743     ]
 744   },
 745
 746   # different types
 747   {
 748     equal => 0,
 749     bindvals => [
 750       'foo',
 751       \'foo',
 752       ['foo'],
 753       { foo => 'bar' },
 754     ]
 755   },
 756
 757   # complex data structure - different
 758   {
 759     equal => 0,
 760     bindvals => [
 761       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 762       [43, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 763       [42, { foo => 'baz', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 764       [42, { bar => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 765       [42, { foo => 'bar', quuux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 766       [42, { foo => 'bar', quux => [0, 1, 2, \3, { quux => [4, 5] } ] }, 8 ],
 767       [42, { foo => 'bar', quux => [1, 2, 3, { quux => [4, 5] } ] }, 8 ],
 768       [42, { foo => 'bar', quux => [1, 2, \4, { quux => [4, 5] } ] }, 8 ],
 769       [42, { foo => 'bar', quux => [1, 2, \3, { quuux => [4, 5] } ] }, 8 ],
 770       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5, 6] } ] }, 8 ],
 771       [42, { foo => 'bar', quux => [1, 2, \3, { quux => 4 } ] }, 8 ],
 772       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5], quuux => 1 } ] }, 8 ],
 773       [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8, 9 ],
 774     ]
 775   },
 776 );
 777
 778 plan tests => 1 +
 779   sum(
 780     map { $_ * ($_ - 1) / 2 }
 781       map { scalar @{$_->{statements}} }
 782         @sql_tests
 783   ) +
 784   sum(
 785     map { $_ * ($_ - 1) / 2 }
 786       map { scalar @{$_->{bindvals}} }
 787         @bind_tests
 788   ) +
 789   3;
 790
 791 use_ok('SQL::Abstract::Test', import => [qw(
 792   eq_sql_bind eq_sql eq_bind is_same_sql_bind
 793 )]);
 794
 795 for my $test (@sql_tests) {
 796   my $statements = $test->{statements};
 797   while (@$statements) {
 798     my $sql1 = shift @$statements;
 799     foreach my $sql2 (@$statements) {
 800
 801       no warnings qw/once/; # perl 5.10 is dumb
 802       local $SQL::Abstract::Test::parenthesis_significant = $test->{parenthesis_significant}
 803         if $test->{parenthesis_significant};
 804       my $equal = eq_sql($sql1, $sql2);
 805
 806       TODO: {
 807         local $TODO = $test->{todo} if $test->{todo};
 808
 809         if ($test->{equal}) {
 810           ok($equal, "equal SQL expressions should have been considered equal");
 811         } else {
 812           ok(!$equal, "different SQL expressions should have been considered not equal");
 813         }
 814
 815         if ($equal ^ $test->{equal}) {
 816           diag("sql1: $sql1");
 817           diag("sql2: $sql2");
 818         }
 819       }
 820     }
 821   }
 822 }
 823
 824 for my $test (@bind_tests) {
 825   my $bindvals = $test->{bindvals};
 826   while (@$bindvals) {
 827     my $bind1 = shift @$bindvals;
 828     foreach my $bind2 (@$bindvals) {
 829       my $equal = eq_bind($bind1, $bind2);
 830       if ($test->{equal}) {
 831         ok($equal, "equal bind values considered equal");
 832       } else {
 833         ok(!$equal, "different bind values considered not equal");
 834       }
 835
 836       if ($equal ^ $test->{equal}) {
 837         diag("bind1: " . Dumper($bind1));
 838         diag("bind2: " . Dumper($bind2));
 839       }
 840     }
 841   }
 842 }
 843
 844 ok(eq_sql_bind(
 845     "SELECT * FROM foo WHERE id = ?", [42],
 846     "SELECT * FROM foo WHERE (id = ?)", [42],
 847   ),
 848   "eq_sql_bind considers equal SQL expressions and bind values equal"
 849 );
 850
 851
 852 ok(!eq_sql_bind(
 853     "SELECT * FROM foo WHERE id = ?", [42],
 854     "SELECT * FROM foo WHERE (id = ?)", [0],
 855   ),
 856   "eq_sql_bind considers equal SQL expressions and different bind values different"
 857 );
 858
 859 ok(!eq_sql_bind(
 860     "SELECT * FROM foo WHERE id = ?", [42],
 861     "SELECT * FROM bar WHERE (id = ?)", [42],
 862   ),
 863   "eq_sql_bind considers different SQL expressions and equal bind values different"
 864 );