[Bast-commits] r9766 - SQL-Abstract/1.x/trunk/t

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2010-10-20 17:49:40 +0000 (Wed, 20 Oct 2010)
New Revision: 9766

Added:
   SQL-Abstract/1.x/trunk/t/16no_sideeffects.t
Log:
added test for the html profile destroyed placeholder problem

Added: SQL-Abstract/1.x/trunk/t/16no_sideeffects.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/16no_sideeffects.t	                        (rev 0)
+++ SQL-Abstract/1.x/trunk/t/16no_sideeffects.t	2010-10-20 17:49:40 UTC (rev 9766)
@@ -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;