From: John Napiorkowski <jjn1056@yahoo.com>
Date: Wed, 20 Oct 2010 17:49:40 +0000 (+0000)
Subject: added test for the html profile destroyed placeholder problem
X-Git-Tag: v1.70~39
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4794c973563571575e83ad35e8a07d5522fdcae;p=dbsrgits%2FSQL-Abstract.git

added test for the html profile destroyed placeholder problem
---

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;