[dbsrgits/SQL-Abstract.git] / t / 16no_sideeffects.t

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 $placeholders->[0], 100,
  'did not mess up a placeholder';

done_testing;
Commit	Line	Data
c4794c97	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use SQL::Abstract::Tree;
	6
	7	ok my $placeholders = [100,'xxx'];
	8	ok my $sqlat = SQL::Abstract::Tree->new({profile=>'html'});
	9	ok my $out = $sqlat->format('SELECT * FROM bar WHERE x = ?', $placeholders);
	10
	11	is $placeholders->[0], 100,
	12	'did not mess up a placeholder';
	13
	14	done_testing;