* Change test to test resourcestring correctness.

git-svn-id: trunk@5645 -

tests/webtbs/tw3492.pp

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