From: John Napiorkowski 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;