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

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2010-10-20 18:01:23 +0000 (Wed, 20 Oct 2010)
New Revision: 9767

Modified:
   SQL-Abstract/1.x/trunk/t/16no_sideeffects.t
Log:
examined placeholder status a bit more carefully

Modified: SQL-Abstract/1.x/trunk/t/16no_sideeffects.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/16no_sideeffects.t	2010-10-20 17:49:40 UTC (rev 9766)
+++ SQL-Abstract/1.x/trunk/t/16no_sideeffects.t	2010-10-20 18:01:23 UTC (rev 9767)
@@ -8,7 +8,13 @@
 ok my $sqlat = SQL::Abstract::Tree->new({profile=>'html'});
 ok my $out = $sqlat->format('SELECT * FROM bar WHERE x = ?', $placeholders);
 
+is scalar(@$placeholders), 2,
+  'correct number of placeholders';
+
 is $placeholders->[0], 100,
   'did not mess up a placeholder';
 
+is $placeholders->[1], 'xxx',
+  'did not mess up a placeholder';
+
 done_testing;