浏览代码

Avoid readln in test source

Pierre Muller 1 月之前
父节点
当前提交
1df2acf119
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      tests/webtbs/tw41487.pp

+ 2 - 2
tests/webtbs/tw41487.pp

@@ -45,6 +45,6 @@ const
 
 
 begin
-
-  readln;
+  writeln('RECORD_FIRSTFIELD_OFFSET=',RECORD_FIRSTFIELD_OFFSET);
+  writeln('RECORD_SECONDFIELD_OFFSET=',RECORD_SECONDFIELD_OFFSET);
 end.