X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16no_sideeffects.t;h=e6566c33225dcf9c3e4788f7823f567880616639;hb=fda0b270e45b2f419edf94e4f7e91d82d31c6f84;hp=5b145d4492116f1d93f79575ab0a41dc485cf712;hpb=c4794c973563571575e83ad35e8a07d5522fdcae;p=scpubgit%2FQ-Branch.git

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;