From 6428bfd5d9db55dd852c0a7c2fad51a3c321d406 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 5 Dec 2005 01:52:20 +0000 Subject: [PATCH] make error message case regex insensitive --- t/SQL.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/SQL.t b/t/SQL.t index 878041900..fd9077203 100644 --- a/t/SQL.t +++ b/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;