make sure extraclauses doesn't kill already extant overrides for from

[scpubgit/Q-Branch.git] / t / 16no_sideeffects.t

diff --git a/t/16no_sideeffects.t b/t/16no_sideeffects.t
index 5b145d4..e6566c3 100644 (file)
--- 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;