diff --git a/t/db_dependent/Reports_Guided.t b/t/db_dependent/Reports_Guided.t index ad34dbd2a8..6633c2fb53 100755 --- a/t/db_dependent/Reports_Guided.t +++ b/t/db_dependent/Reports_Guided.t @@ -5,7 +5,7 @@ use Modern::Perl; -use Test::More tests => 14; +use Test::More tests => 15; use C4::Context; @@ -85,6 +85,19 @@ is_deeply( 'running a query with a parameter returned the expected result' ); +# for next test, we want to let execute_query capture any SQL errors +$dbh->{RaiseError} = 0; +my $errors; +($sth, $errors) = execute_query( + 'SELECT surname FRM borrowers', # error in the query is intentional + 0, + 10, +); +ok( + defined($errors) && exists($errors->{queryerr}), + 'attempting to run a report with an SQL syntax error returns error message (Bug 12214)' +); + #End transaction $dbh->rollback;