quiet some warnings
This commit is contained in:
parent
79cbb85285
commit
bbdcb6475a
4 changed files with 16 additions and 6 deletions
6
t/SQL.t
6
t/SQL.t
|
|
@ -50,7 +50,11 @@ ok($sth->rows > 1, "rows()");
|
|||
ok($sth->finish, "finish()");
|
||||
|
||||
# unconditionalRead
|
||||
ok(my $sth = $session->db->unconditionalRead("select * from tableThatDoesntExist"), "unconditionalRead()");
|
||||
{
|
||||
# we know this will fail, so keep it quiet
|
||||
local $SIG{__WARN__} = sub {};
|
||||
ok(my $sth = $session->db->unconditionalRead("select * from tableThatDoesntExist"), "unconditionalRead()");
|
||||
}
|
||||
|
||||
# errorCode
|
||||
is($sth->errorCode, "1146" ,"errorCode()");
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue