Release commit for 1.84

[dbsrgits/SQL-Abstract.git] / t / 15placeholders.t

diff --git a/t/15placeholders.t b/t/15placeholders.t
index bba9b66..55731a8 100644 (file)
--- a/t/15placeholders.t
+++ b/t/15placeholders.t
@@ -4,15 +4,13 @@ use warnings;
 use Test::More;
 use SQL::Abstract::Tree;
 
-my $placeholders = ['station', 'lolz'];
-
 {
    my $sqlat = SQL::Abstract::Tree->new({
       fill_in_placeholders => 1,
       placeholder_surround => [qw(; -)],
    });
 
-   is($sqlat->fill_in_placeholder($placeholders), q(';lolz-'),
+   is($sqlat->fill_in_placeholder(['lolz']), q(;lolz-),
       'placeholders are populated correctly'
    );
 }
@@ -23,9 +21,20 @@ my $placeholders = ['station', 'lolz'];
       placeholder_surround => [qw(< >)],
    });
 
-   is($sqlat->fill_in_placeholder($placeholders), q('<station>'),
+   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;