diff --git a/tests/tbf/tb0170.pp b/tests/tbf/tb0170.pp new file mode 100644 index 0000000000..e9f6454c8b --- /dev/null +++ b/tests/tbf/tb0170.pp @@ -0,0 +1,10 @@ +{ %fail } +{$mode objfpc} +uses + sysutils; + +resourcestring sMyNewErrorMessage = 'Illegal value: %d'; + +begin + sMyNewErrorMessage:=''; +end. diff --git a/tests/tbs/tb0482.pp b/tests/tbs/tb0482.pp new file mode 100644 index 0000000000..489126e501 --- /dev/null +++ b/tests/tbs/tb0482.pp @@ -0,0 +1,9 @@ +{$mode objfpc} +uses + sysutils; + +resourcestring sMyNewErrorMessage = 'Illegal value: %d'; + +begin + raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]); +end.