make error message case regex insensitive

This commit is contained in:
Colin Kuskie 2005-12-05 01:52:20 +00:00
parent ba142f3888
commit 6428bfd5d9

View file

@ -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;