Fix DBD::Mock::Session->verify_bound_params to check for state exhaus…

…tion
wu-lee · Mar 30, 2011 · 179e83a · 179e83a
1 parent 3a1d41b
commit 179e83a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/DBD/Mock.pm b/lib/DBD/Mock.pm
@@ -1246,6 +1246,9 @@ sub verify_statement {
 sub verify_bound_params {
     my ($self, $dbh, $params) = @_;
 
+    ($self->has_states_left)
+        || die "Session states exhausted, only '" . scalar(@{$self->{states}}) . "' in DBD::Mock::Session (" . $self->{name} . ")";
+
     my $current_state = $self->current_state;
     if (exists ${$current_state}{bound_params}) {
         my $expected = $current_state->{bound_params};