make error message case regex insensitive
This commit is contained in:
parent
ba142f3888
commit
6428bfd5d9
1 changed files with 1 additions and 1 deletions
2
t/SQL.t
2
t/SQL.t
|
|
@ -53,7 +53,7 @@ ok(my $sth = WebGUI::SQL->unconditionalRead("select * from tableThatDoesntExist"
|
|||
is($sth->errorCode, "1146" ,"errorCode()");
|
||||
|
||||
# errorMessage
|
||||
like ($sth->errorMessage, qr/Table [^.]*\.tableThatDoesntExist' doesn't exist/ , "errorMessage()");
|
||||
like ($sth->errorMessage, qr/Table [^.]*\.tableThatDoesntExist' doesn't exist/i , "errorMessage()");
|
||||
|
||||
$sth->finish;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue