5 use SQL::Abstract::Tree;
7 my $placeholders = ['station', 'lolz'];
10 my $sqlat = SQL::Abstract::Tree->new({
11 fill_in_placeholders => 1,
12 placeholder_surround => [qw(; -)],
15 is($sqlat->fill_in_placeholder($placeholders), q(;lolz-),
16 'placeholders are populated correctly'
21 my $sqlat = SQL::Abstract::Tree->new({
22 fill_in_placeholders => 1,
23 placeholder_surround => [qw(< >)],
26 is($sqlat->fill_in_placeholder($placeholders), q(<station>),
27 'placeholders are populated correctly and in order'
33 my $sqlat = SQL::Abstract::Tree->new({
34 fill_in_placeholders => 1,
35 placeholder_surround => [qw(' ')],
38 is $sqlat->format('SELECT ? as x, ? as y FROM Foo WHERE t > ? and z IN (?, ?, ?) ', ['frew', 'ribasushi', '2008-12-12', 1, 2, 3]),
39 q[SELECT 'frew' as x, 'ribasushi' as y FROM Foo WHERE t > '2008-12-12' AND z IN ('1', '2', '3')], 'Complex placeholders work';