1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use strict;
use warnings;
use Test::More;
use SQL::Abstract::Tree;
{
my $sqlat = SQL::Abstract::Tree->new({
fill_in_placeholders => 1,
placeholder_surround => [qw(; -)],
});
is($sqlat->fill_in_placeholder(['lolz']), q(;lolz-),
'placeholders are populated correctly'
);
}
{
my $sqlat = SQL::Abstract::Tree->new({
fill_in_placeholders => 1,
placeholder_surround => [qw(< >)],
});
is($sqlat->fill_in_placeholder(['station']), q(<station>),
'placeholders are populated correctly and in order'
);
}
{
my $sqlat = SQL::Abstract::Tree->new({
fill_in_placeholders => 1,
placeholder_surround => [qw(' ')],
});
is $sqlat->format('SELECT ? AS x, ? AS y FROM Foo WHERE t > ? and z IN (?, ?, ?) ', [qw/frew ribasushi 2008-12-12 1 2 3/]),
q[SELECT 'frew' AS x, 'ribasushi' AS y FROM Foo WHERE t > '2008-12-12' AND z IN ( '1', '2', '3' )], 'Complex placeholders work';
}
done_testing;
|
