Commit | Line | Data |
---|---|---|
c4794c97 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More; | |
5 | use SQL::Abstract::Tree; | |
6 | ||
7 | ok my $placeholders = [100,'xxx']; | |
8 | ok my $sqlat = SQL::Abstract::Tree->new({profile=>'html'}); | |
9 | ok my $out = $sqlat->format('SELECT * FROM bar WHERE x = ?', $placeholders); | |
10 | ||
11 | is $placeholders->[0], 100, | |
12 | 'did not mess up a placeholder'; | |
13 | ||
14 | done_testing; |