use strict;
use warnings;
use Test::More;
use SQL::Abstract::Tree;
ok my $placeholders = [100,'xxx'];
ok my $sqlat = SQL::Abstract::Tree->new({profile=>'html'});
ok my $out = $sqlat->format('SELECT * FROM bar WHERE x = ?', $placeholders);
is scalar(@$placeholders), 2,
  'correct number of placeholders';
is $placeholders->[0], 100,
  'did not mess up a placeholder';
is $placeholders->[1], 'xxx',
  'did not mess up a placeholder';
done_testing;