projects / scpubgit/Q-Branch.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Omnipotent 'between'
[scpubgit/Q-Branch.git] / t / 10test.t
CommitLineData
32c34379 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use List::Util qw(sum);
32c34379 6
7use Test::More;
8
7823ae89 9# equivalent to $Module::Install::AUTHOR
10my $author = (
11 ( not -d './inc' )
12 or
13 ( -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author') )
14);
15
16if (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
32c34379 20
25823711 21my @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 },
56c0595d 111 {
112 equal => 1,
56c0595d 113 statements => [
114 q/SELECT foo FROM bar WHERE a = 1 AND b = 1 AND c = 1/,
e40f5df9 115 q/SELECT foo FROM bar WHERE (a = 1 AND b = 1 AND c = 1)/,
56c0595d 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)/,
1b17d1b0 118 q/SELECT foo FROM bar WHERE ((((a = 1))) AND (b = 1 AND c = 1))/,
56c0595d 119 ]
120 },
121 {
122 equal => 1,
56c0595d 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)/,
1b17d1b0 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) /,
56c0595d 136 ]
137 },
e40f5df9 138 {
9e8dab3f 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 {
277b5d3f 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 {
9e8dab3f 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 {
e40f5df9 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 },
25823711 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 },
56c0595d 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 },
b6c8b01b 269 {
270 equal => 0,
271 statements => [
01b64cb7 272 # BETWEEN with/without parenthesis around itself/RHS is a sticky business
273 # if I made a mistake here, simply rewrite the special BETWEEN handling in
274 # _recurse_parse()
275 #
276 # by RIBASUSHI
b6c8b01b 277 q/SELECT foo FROM bar WHERE ( completion_date BETWEEN ? AND ? AND status = ? )/,
01b64cb7 278 q/SELECT foo FROM bar WHERE completion_date BETWEEN (? AND ?) AND status = ?/,
279 q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ?) ) AND status = ? )/,
280 q/SELECT foo FROM bar WHERE ( (completion_date BETWEEN (? AND ? AND status = ?) ) )/,
b6c8b01b 281 ]
282 },
25823711 283
284 # JOIN condition - equal
285 {
286 equal => 1,
287 statements => [
288 q/SELECT foo FROM bar JOIN baz ON a = 1 WHERE x = 1/,
289 q/SELECT foo FROM bar JOIN baz ON a=1 WHERE x = 1/,
290 q/SELECT foo FROM bar JOIN baz ON (a = 1) WHERE x = 1/,
291 q/SELECT foo FROM bar JOIN baz ON (a=1) WHERE x = 1/,
292 q/SELECT foo FROM bar JOIN baz ON ( a = 1 ) WHERE x = 1/,
293 q/
294 SELECT
295 foo
296 FROM
297 bar
298 JOIN
299 baz
300 ON
301 a = 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 WHERE
315 x = 1
316 /,
317 q/
318 SELECT
319 foo
320 FROM
321 bar
322 JOIN
323 baz
324 ON
325 ( a = 1 )
326 WHERE
327 x = 1
328 /,
329 q/SELECT foo FROM bar JOIN baz ON ((a = 1)) WHERE x = 1/,
330 q/SELECT foo FROM bar JOIN baz ON ( (a = 1) ) WHERE x = 1/,
331 q/SELECT foo FROM bar JOIN baz ON ( ( a = 1 ) ) WHERE x = 1/,
332 ]
333 },
334 {
335 equal => 1,
336 statements => [
337 q/SELECT foo FROM bar JOIN baz ON a = 1 AND b = 1 WHERE x = 1/,
338 q/SELECT foo FROM bar JOIN baz ON (a = 1) AND (b = 1) WHERE x = 1/,
339 q/SELECT foo FROM bar JOIN baz ON ((a = 1) AND (b = 1)) WHERE x = 1/,
340 q/SELECT foo FROM bar JOIN baz ON (a = 1 AND b = 1) WHERE x = 1/,
341 q/SELECT foo FROM bar JOIN baz ON ((a = 1 AND b = 1)) WHERE x = 1/,
342 q/SELECT foo FROM bar JOIN baz ON (((a = 1) AND (b = 1))) WHERE x = 1/,
343 q/
344 SELECT
345 foo
346 FROM
347 bar
348 JOIN
349 baz
350 ON
351 a = 1
352 AND
353 b = 1
354 WHERE
355 x = 1
356 /,
357 q/
358 SELECT
359 foo
360 FROM
361 bar
362 JOIN
363 baz
364 ON
365 (a = 1
366 AND
367 b = 1)
368 WHERE
369 x = 1
370 /,
371 q/
372 SELECT
373 foo
374 FROM
375 bar
376 JOIN
377 baz
378 ON
379 (a = 1)
380 AND
381 (b = 1)
382 WHERE
383 x = 1
384 /,
385 q/
386 SELECT
387 foo
388 FROM
389 bar
390 JOIN
391 baz
392 ON
393 ((a = 1)
394 AND
395 (b = 1))
396 WHERE
397 x = 1
398 /,
399 ]
400 },
401
402 # JOIN condition - different
403 {
404 equal => 0,
405 statements => [
406 q/SELECT foo FROM bar JOIN quux ON a = 1 WHERE quuux/,
407 q/SELECT quux FROM bar JOIN quux ON a = 1 WHERE quuux/,
408 q/SELECT foo FROM quux JOIN quux ON a = 1 WHERE quuux/,
409 q/FOOBAR foo FROM bar JOIN quux ON a = 1 WHERE quuux/,
410
411 q/SELECT foo FROM bar JOIN quux ON a = 2 WHERE quuux/,
412 q/SELECT foo FROM bar JOIN quux ON a < 1 WHERE quuux/,
413 q/SELECT foo FROM bar JOIN quux ON b = 1 WHERE quuux/,
414 q/SELECT foo FROM bar JOIN quux ON (c = 1) WHERE quuux/,
415 q/SELECT foo FROM bar JOIN quux ON (d = 1) WHERE quuux/,
416
417 q/SELECT foo FROM bar JOIN quux ON a = 1 AND quuux/,
418 q/SELECT foo FROM bar JOIN quux ON a = 1 GROUP BY foo/,
419 q/SELECT foo FROM bar JOIN quux ON a = 1 ORDER BY foo/,
420 q/SELECT foo FROM bar JOIN quux ON a = 1 LIMIT 1/,
421 q/SELECT foo FROM bar JOIN quux ON a = 1 OFFSET 1/,
422 q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux/,
423 q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux ON a = 1/,
424 ]
425 },
426 {
427 equal => 0,
428 statements => [
429 q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
430 q/SELECT quux FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
431 q/SELECT foo FROM quux JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
432 q/FOOBAR foo FROM bar JOIN quux ON a = 1 AND b = 1 WHERE quuux/,
433
434 q/SELECT foo FROM bar JOIN quux ON a = 2 AND b = 1 WHERE quuux/,
435 q/SELECT foo FROM bar JOIN quux ON a = 3 AND (b = 1) WHERE quuux/,
436 q/SELECT foo FROM bar JOIN quux ON (a = 4) AND b = 1 WHERE quuux/,
437 q/SELECT foo FROM bar JOIN quux ON (a = 5) AND (b = 1) WHERE quuux/,
438 q/SELECT foo FROM bar JOIN quux ON ((a = 6) AND (b = 1)) WHERE quuux/,
439 q/SELECT foo FROM bar JOIN quux ON ((a = 7) AND (b = 1)) WHERE quuux/,
440
441 q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 2 WHERE quuux/,
442 q/SELECT foo FROM bar JOIN quux ON a = 1 AND (b = 3) WHERE quuux/,
443 q/SELECT foo FROM bar JOIN quux ON (a = 1) AND b = 4 WHERE quuux/,
444 q/SELECT foo FROM bar JOIN quux ON (a = 1) AND (b = 5) WHERE quuux/,
445 q/SELECT foo FROM bar JOIN quux ON ((a = 1) AND (b = 6)) WHERE quuux/,
446 q/SELECT foo FROM bar JOIN quux ON ((a = 1) AND (b = 7)) WHERE quuux/,
447
448 q/SELECT foo FROM bar JOIN quux ON a < 1 AND b = 1 WHERE quuux/,
449 q/SELECT foo FROM bar JOIN quux ON b = 1 AND b = 1 WHERE quuux/,
450 q/SELECT foo FROM bar JOIN quux ON (c = 1) AND b = 1 WHERE quuux/,
451 q/SELECT foo FROM bar JOIN quux ON (d = 1) AND b = 1 WHERE quuux/,
452
453 q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 AND quuux/,
454 q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 GROUP BY foo/,
455 q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 ORDER BY foo/,
456 q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 LIMIT 1/,
457 q/SELECT foo FROM bar JOIN quux ON a = 1 AND b = 1 OFFSET 1/,
458 q/SELECT foo FROM bar JOIN quux JOIN quuux ON a = 1 AND b = 1/,
459 q/SELECT foo FROM bar JOIN quux ON a = 1 JOIN quuux ON a = 1 AND b = 1/,
460 ]
461 },
462
463 # DISTINCT ON (...) not confused with JOIN ON (...)
464 {
465 equal => 1,
466 statements => [
467 q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE a = 1/,
468 q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE a=1/,
469 q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE (a = 1)/,
470 q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE (a=1)/,
471 q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( a = 1 )/,
472 q/
473 SELECT DISTINCT ON (foo, quux)
474 foo,
475 quux
476 FROM
477 bar
478 WHERE
479 a = 1
480 /,
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/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ((a = 1))/,
500 q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( (a = 1) )/,
501 q/SELECT DISTINCT ON (foo, quux) foo, quux FROM bar WHERE ( ( a = 1 ) )/,
502 ]
503 },
504
505 # subselects - equal
506 {
507 equal => 1,
508 statements => [
509 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 1/,
510 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE (a = 1)/,
511 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE a = 1/,
512 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE (a = 1)/,
513 ]
514 },
515 {
516 equal => 1,
517 statements => [
518 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 1/,
519 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 1)) AS foo WHERE a = 1/,
520 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 1) AS foo WHERE a = 1/,
521 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 1)) AS foo WHERE a = 1/,
522 q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 1))) AS foo WHERE a = 1/,
523
524 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE (a = 1)/,
525 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 1)) AS foo WHERE (a = 1)/,
526 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 1) AS foo WHERE (a = 1)/,
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 ]
530 },
531
532 # subselects - different
533 {
534 equal => 0,
535 statements => [
536 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 1/,
537 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE a = 2/,
538 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1) AS foo WHERE (a = 3)/,
539 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE a = 4/,
540 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1)) AS foo WHERE (a = 5)/,
541 q/SELECT * FROM (SELECT * FROM bar WHERE b = 2) AS foo WHERE a = 1/,
542 q/SELECT * FROM (SELECT * FROM bar WHERE b = 3) AS foo WHERE (a = 1)/,
543 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 4)) AS foo WHERE a = 1/,
544 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 5)) AS foo WHERE (a = 1)/,
545 ]
546 },
547 {
548 equal => 0,
549 statements => [
550 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 1/,
551 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 1/,
552 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 1/,
553 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 1/,
554 q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 1/,
555
556 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 1)/,
557 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 1)/,
558 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 1)/,
559 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 1)/,
560 q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 1)/,
561
562 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 1) AS foo WHERE a = 2/,
563 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 2) AS foo WHERE a = 2/,
564 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 3)) AS foo WHERE a = 2/,
565 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 4)) AS foo WHERE a = 2/,
566 q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 5))) AS foo WHERE a = 2/,
567
568 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND c = 6) AS foo WHERE (a = 2)/,
569 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND c = 7) AS foo WHERE (a = 2)/,
570 q/SELECT * FROM (SELECT * FROM bar WHERE b = 1 AND (c = 8)) AS foo WHERE (a = 2)/,
571 q/SELECT * FROM (SELECT * FROM bar WHERE (b = 1) AND (c = 9)) AS foo WHERE (a = 2)/,
572 q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 2)/,
573 ]
574 },
575);
576
32c34379 577my @bind_tests = (
578 # scalar - equal
579 {
580 equal => 1,
581 bindvals => [
582 undef,
583 undef,
584 ]
585 },
586 {
587 equal => 1,
588 bindvals => [
589 'foo',
590 'foo',
591 ]
592 },
593 {
594 equal => 1,
595 bindvals => [
596 42,
597 42,
598 '42',
599 ]
600 },
601
602 # scalarref - equal
603 {
604 equal => 1,
605 bindvals => [
606 \'foo',
607 \'foo',
608 ]
609 },
610 {
611 equal => 1,
612 bindvals => [
613 \42,
614 \42,
615 \'42',
616 ]
617 },
618
619 # arrayref - equal
620 {
621 equal => 1,
622 bindvals => [
623 [],
624 []
625 ]
626 },
627 {
628 equal => 1,
629 bindvals => [
630 [42],
631 [42],
632 ['42'],
633 ]
634 },
635 {
636 equal => 1,
637 bindvals => [
638 [1, 42],
639 [1, 42],
640 ['1', 42],
641 [1, '42'],
642 ['1', '42'],
643 ]
644 },
645
646 # hashref - equal
647 {
648 equal => 1,
649 bindvals => [
650 { foo => 42 },
651 { foo => 42 },
652 { foo => '42' },
653 ]
654 },
655 {
656 equal => 1,
657 bindvals => [
658 { foo => 42, bar => 1 },
659 { foo => 42, bar => 1 },
660 { foo => '42', bar => 1 },
661 ]
662 },
663
664 # blessed object - equal
665 {
666 equal => 1,
667 bindvals => [
668 bless(\(local $_ = 42), 'Life::Universe::Everything'),
669 bless(\(local $_ = 42), 'Life::Universe::Everything'),
670 ]
671 },
672 {
673 equal => 1,
674 bindvals => [
675 bless([42], 'Life::Universe::Everything'),
676 bless([42], 'Life::Universe::Everything'),
677 ]
678 },
679 {
680 equal => 1,
681 bindvals => [
682 bless({ answer => 42 }, 'Life::Universe::Everything'),
683 bless({ answer => 42 }, 'Life::Universe::Everything'),
684 ]
685 },
686
687 # complex data structure - equal
688 {
689 equal => 1,
690 bindvals => [
691 [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
692 [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
693 ]
694 },
695
696
697 # scalar - different
698 {
699 equal => 0,
700 bindvals => [
701 undef,
702 'foo',
703 42,
704 ]
705 },
706
707 # scalarref - different
708 {
709 equal => 0,
710 bindvals => [
711 \undef,
712 \'foo',
713 \42,
714 ]
715 },
716
717 # arrayref - different
718 {
719 equal => 0,
720 bindvals => [
721 [undef],
722 ['foo'],
723 [42],
724 ]
725 },
726
727 # hashref - different
728 {
729 equal => 0,
730 bindvals => [
731 { foo => undef },
732 { foo => 'bar' },
733 { foo => 42 },
734 ]
735 },
736
737 # different types
738 {
739 equal => 0,
740 bindvals => [
741 'foo',
742 \'foo',
743 ['foo'],
744 { foo => 'bar' },
745 ]
746 },
747
748 # complex data structure - different
749 {
750 equal => 0,
751 bindvals => [
752 [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
753 [43, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
754 [42, { foo => 'baz', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
755 [42, { bar => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
756 [42, { foo => 'bar', quuux => [1, 2, \3, { quux => [4, 5] } ] }, 8 ],
757 [42, { foo => 'bar', quux => [0, 1, 2, \3, { quux => [4, 5] } ] }, 8 ],
758 [42, { foo => 'bar', quux => [1, 2, 3, { quux => [4, 5] } ] }, 8 ],
759 [42, { foo => 'bar', quux => [1, 2, \4, { quux => [4, 5] } ] }, 8 ],
760 [42, { foo => 'bar', quux => [1, 2, \3, { quuux => [4, 5] } ] }, 8 ],
761 [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5, 6] } ] }, 8 ],
762 [42, { foo => 'bar', quux => [1, 2, \3, { quux => 4 } ] }, 8 ],
763 [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5], quuux => 1 } ] }, 8 ],
764 [42, { foo => 'bar', quux => [1, 2, \3, { quux => [4, 5] } ] }, 8, 9 ],
765 ]
766 },
767);
768
25823711 769plan tests => 1 +
770 sum(
771 map { $_ * ($_ - 1) / 2 }
772 map { scalar @{$_->{statements}} }
773 @sql_tests
774 ) +
775 sum(
776 map { $_ * ($_ - 1) / 2 }
777 map { scalar @{$_->{bindvals}} }
778 @bind_tests
e7827ba2 779 ) +
780 3;
32c34379 781
e7827ba2 782use_ok('SQL::Abstract::Test', import => [qw(
783 eq_sql_bind eq_sql eq_bind is_same_sql_bind
784)]);
32c34379 785
25823711 786for my $test (@sql_tests) {
787 my $statements = $test->{statements};
788 while (@$statements) {
789 my $sql1 = shift @$statements;
790 foreach my $sql2 (@$statements) {
e40f5df9 791
792 no warnings qw/once/; # perl 5.10 is dumb
793 local $SQL::Abstract::Test::parenthesis_significant = $test->{parenthesis_significant}
794 if $test->{parenthesis_significant};
25823711 795 my $equal = eq_sql($sql1, $sql2);
e40f5df9 796
56c0595d 797 TODO: {
798 local $TODO = $test->{todo} if $test->{todo};
799
800 if ($test->{equal}) {
801 ok($equal, "equal SQL expressions should have been considered equal");
802 } else {
803 ok(!$equal, "different SQL expressions should have been considered not equal");
804 }
805
806 if ($equal ^ $test->{equal}) {
807 diag("sql1: $sql1");
808 diag("sql2: $sql2");
809 }
25823711 810 }
811 }
812 }
813}
814
32c34379 815for my $test (@bind_tests) {
816 my $bindvals = $test->{bindvals};
817 while (@$bindvals) {
818 my $bind1 = shift @$bindvals;
819 foreach my $bind2 (@$bindvals) {
820 my $equal = eq_bind($bind1, $bind2);
821 if ($test->{equal}) {
822 ok($equal, "equal bind values considered equal");
823 } else {
824 ok(!$equal, "different bind values considered not equal");
825 }
826
827 if ($equal ^ $test->{equal}) {
828 diag("bind1: " . Dumper($bind1));
829 diag("bind2: " . Dumper($bind2));
830 }
831 }
832 }
833}
e7827ba2 834
835ok(eq_sql_bind(
836 "SELECT * FROM foo WHERE id = ?", [42],
837 "SELECT * FROM foo WHERE (id = ?)", [42],
838 ),
839 "eq_sql_bind considers equal SQL expressions and bind values equal"
840);
841
842
843ok(!eq_sql_bind(
844 "SELECT * FROM foo WHERE id = ?", [42],
845 "SELECT * FROM foo WHERE (id = ?)", [0],
846 ),
847 "eq_sql_bind considers equal SQL expressions and different bind values different"
848);
849
850ok(!eq_sql_bind(
851 "SELECT * FROM foo WHERE id = ?", [42],
852 "SELECT * FROM bar WHERE (id = ?)", [42],
853 ),
854 "eq_sql_bind considers different SQL expressions and equal bind values different"
855);
Unnamed repository; edit this file 'description' to name the repository.