浏览代码

* fix regressions after previous patch by correctly parsing output, which does not contain '##WASI-EXITCODE:'

Nikolay Nikolov 3 年之前
父节点
当前提交
0f4340e659
共有 1 个文件被更改,包括 10 次插入7 次删除
  1. 10 7
      tests/utils/dotest.pp

+ 10 - 7
tests/utils/dotest.pp

@@ -1042,13 +1042,16 @@ begin
      if is_wasi then
        begin
          i:=pos('##WASI-EXITCODE: ',s);
-         delete(s,1,i+17-1);
-         val(s,ExecuteResult,code);
-        if code>1 then
-           val(copy(s,1,code-1),ExecuteResult,code);
-         if code=0 then
-           CheckTestExitCode:=true;
-         break;
+         if i>0 then
+           begin
+             delete(s,1,i+17-1);
+             val(s,ExecuteResult,code);
+             if code>1 then
+               val(copy(s,1,code-1),ExecuteResult,code);
+             if code=0 then
+               CheckTestExitCode:=true;
+             break;
+           end;
        end
      else
        begin