t/15placeholders.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use SQL::Abstract::Tree;
   6
   7 my $placeholders = ['station', 'lolz'];
   8
   9 {
  10    my $sqlat = SQL::Abstract::Tree->new({
  11       fill_in_placeholders => 1,
  12       placeholder_surround => [qw(; -)],
  13    });
  14
  15    is($sqlat->fill_in_placeholder($placeholders), q(';lolz-'),
  16       'placeholders are populated correctly'
  17    );
  18 }
  19
  20 {
  21    my $sqlat = SQL::Abstract::Tree->new({
  22       fill_in_placeholders => 1,
  23       placeholder_surround => [qw(< >)],
  24    });
  25
  26    is($sqlat->fill_in_placeholder($placeholders), q('<station>'),
  27       'placeholders are populated correctly and in order'
  28    );
  29 }
  30
  31 done_testing;