diff --git a/tests/tbs/tb0482.pp b/tests/tbs/tb0482.pp index 489126e501..875ceb842d 100644 --- a/tests/tbs/tb0482.pp +++ b/tests/tbs/tb0482.pp @@ -5,5 +5,18 @@ uses resourcestring sMyNewErrorMessage = 'Illegal value: %d'; begin - raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]); + try + raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]); + except + on e : exception do + begin + if e.message='Illegal value: -1' then + halt(0) + else + begin + writeln('error : ',e.message); + halt(1); + end; + end; + end; end.