* removed interactiveness from the test

git-svn-id: trunk@30862 -

tests/webtbs/tw28089.pp

@@ -10,8 +10,7 @@ var
 
 begin
  Buf[0] := 'A';
- writeln(ord(Buf[0]));
  StrPLCopy(Buf, '', 0);
- writeln(ord(Buf[0]));
- readln;
+ if Buf[0]<>#0 then
+   halt(1);
 end.