Commit | Line | Data |
fda8a675 |
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', |
12 | fill_in_placeholders => 1, |
13 | placeholder_surround => [qw(' ')], |
14 | show_progress => 0, |
15 | }); |
16 | |
17 | $pp->debugfh($fh); |
18 | |
19 | $pp->query_start('INSERT INTO self_ref_alias (alias, self_ref) VALUES ( ?, ? )', qw('__BULK_INSERT__' '1')); |
20 | is( |
21 | $cap, |
22 | qq{INSERT INTO self_ref_alias (alias, self_ref) VALUES (?, ?) : '__BULK_INSERT__', '1'\n}, |
23 | 'SQL Logged' |
24 | ); |
25 | |
26 | done_testing; |