paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 10:38:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Change test to test resourcestring correctness.

Browse Source 
git-svn-id: trunk@5645 -
This commit is contained in:
daniel 2006-12-19 08:58:01 +00:00
parent d5cf9af69f
commit 787ed7e230
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/webtbs/tw3492.pp
View File

@ -1,8 +1,17 @@
{$mode fpc} {$mode fpc}
{ Resourcestrings are pre-initialized }
resourcestring resourcestring
s = 'OK'; s = 'OK';
var t:ansistring;
begin begin
t:=s;
if t<>'OK' then
begin
writeln('Resourcestring error!');
halt(1);
end
else
writeln(s); writeln(s);
end. end.