X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16no_sideeffects.t;fp=t%2F16no_sideeffects.t;h=5b145d4492116f1d93f79575ab0a41dc485cf712;hb=c4794c973563571575e83ad35e8a07d5522fdcae;hp=0000000000000000000000000000000000000000;hpb=ad46269d24e7252a1b0bf635478c64ea522d57d1;p=scpubgit%2FQ-Branch.git

diff --git a/t/16no_sideeffects.t b/t/16no_sideeffects.t
new file mode 100644
index 0000000..5b145d4
--- /dev/null
+++ b/t/16no_sideeffects.t
@@ -0,0 +1,14 @@
+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;