From 97bbacd0a8a0e29e1c7787ac7f25982db6a54834 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 19 Jan 2005 23:33:13 +0000
Subject: [PATCH] no message

---
 tests/tbs/tb0482.pp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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.