From: John Napiorkowski <jjn1056@yahoo.com>
Date: Wed, 20 Oct 2010 18:01:23 +0000 (+0000)
Subject: examined placeholder status a bit more carefully
X-Git-Tag: v1.70~38
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ca990077d0be0e59bbb5ada93602f4668a0dbf0;p=dbsrgits%2FSQL-Abstract.git

examined placeholder status a bit more carefully
---

diff --git a/t/16no_sideeffects.t b/t/16no_sideeffects.t
index 5b145d4..e6566c3 100644
--- a/t/16no_sideeffects.t
+++ b/t/16no_sideeffects.t
@@ -8,7 +8,13 @@ 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 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;