Commit | Line | Data |
51bd937f |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use DBIx::Class::Storage::Debug::PrettyPrint; |
6 | |
7 | my $cap; |
8 | open my $fh, '>', \$cap; |
9 | |
10 | my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({ |
11 | profile => 'none', |
66c2fcc3 |
12 | squash_repeats => 1, |
51bd937f |
13 | fill_in_placeholders => 1, |
14 | placeholder_surround => [qw(' ')], |
15 | show_progress => 0, |
16 | }); |
17 | |
18 | $pp->debugfh($fh); |
19 | |
20 | $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1')); |
21 | is( |
22 | $cap, |
23 | qq(SELECT * FROM frew WHERE id = '1'\n\n), |
24 | 'SQL Logged' |
25 | ); |
26 | |
27 | open $fh, '>', \$cap; |
28 | $pp->query_start('SELECT * FROM frew WHERE id = ?', q('2')); |
29 | is( |
30 | $cap, |
31 | qq(... : '2'\n\n), |
32 | 'Repeated SQL ellided' |
33 | ); |
34 | |
35 | open $fh, '>', \$cap; |
36 | $pp->query_start('SELECT * FROM frew WHERE id = ?', q('3')); |
37 | is( |
38 | $cap, |
39 | qq(... : '3'\n\n), |
40 | 'Repeated SQL ellided' |
41 | ); |
42 | |
43 | open $fh, '>', \$cap; |
44 | $pp->query_start('SELECT * FROM frew WHERE id = ?', q('4')); |
45 | is( |
46 | $cap, |
47 | qq(... : '4'\n\n), |
48 | 'Repeated SQL ellided' |
49 | ); |
50 | |
51 | open $fh, '>', \$cap; |
52 | $pp->query_start('SELECT * FROM bar WHERE id = ?', q('4')); |
53 | is( |
54 | $cap, |
55 | qq(SELECT * FROM bar WHERE id = '4'\n\n), |
56 | 'New SQL Logged' |
57 | ); |
58 | |
59 | open $fh, '>', \$cap; |
60 | $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1')); |
61 | is( |
62 | $cap, |
63 | qq(SELECT * FROM frew WHERE id = '1'\n\n), |
64 | 'New SQL Logged' |
65 | ); |
66 | |
67 | done_testing; |