restore unary op functionality
[dbsrgits/SQL-Abstract.git] / t / 16no_sideeffects.t
CommitLineData
c4794c97 1use strict;
2use warnings;
3
4use Test::More;
5use SQL::Abstract::Tree;
6
7ok my $placeholders = [100,'xxx'];
8ok my $sqlat = SQL::Abstract::Tree->new({profile=>'html'});
9ok my $out = $sqlat->format('SELECT * FROM bar WHERE x = ?', $placeholders);
10
4ca99007 11is scalar(@$placeholders), 2,
12 'correct number of placeholders';
13
c4794c97 14is $placeholders->[0], 100,
15 'did not mess up a placeholder';
16
4ca99007 17is $placeholders->[1], 'xxx',
18 'did not mess up a placeholder';
19
c4794c97 20done_testing;