Browse Source

no message

florian 20 years ago
parent
commit
a6549318c7
2 changed files with 19 additions and 0 deletions
  1. 10 0
      tests/tbf/tb0170.pp
  2. 9 0
      tests/tbs/tb0482.pp

+ 10 - 0
tests/tbf/tb0170.pp

@@ -0,0 +1,10 @@
+{ %fail }
+{$mode objfpc}
+uses
+  sysutils;
+
+resourcestring sMyNewErrorMessage = 'Illegal value: %d';
+
+begin
+  sMyNewErrorMessage:='';
+end.

+ 9 - 0
tests/tbs/tb0482.pp

@@ -0,0 +1,9 @@
+{$mode objfpc}
+uses
+  sysutils;
+
+resourcestring sMyNewErrorMessage = 'Illegal value: %d';
+
+begin
+  raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]);
+end.