Page Comparison

LOCAL
      case_name            : STRING := 'Case 01, testing xpxSpawnProcess';
      case_no              : INTEGER := 1;
      ok                   : LOGICAL := TRUE;
      mode                 : INTEGER;
      executableName       : STRING;
      commandLineArguments : SET OF STRING;
      environmentVariables : SET OF STRING;
      exitStatus           : INTEGER;
      rstat                : INTEGER;
    END_LOCAL;
 
    -- -----------------------------
    --  1a. Testing xpxSpawnProcess.
    -- -----------------------------
    trace(case_no, '1a. Testing xpxSpawnProcess');
    mode := XPX_P_WAIT;
 
    executableName := 'X:/terje/testParams.exe';
    commandLineArguments[0] := 'one';
    commandLineArguments[1] := 'two';
    commandLineArguments[2] := 'three';
    environmentVariables[0] := 'PATH=X:\terje';
 
    rstat := xpxSpawnProcess(mode, executableName, commandLineArguments, environmentVariables, exitStatus);
    trace_error(::CL::, rstat, ok);
    ok := CheckValueExists(exitStatus, ::CL::) AND ok;
    ok := (exitStatus = 0) AND ok;
    xpxPrintf('* exitStatus = %d\n', exitStatus);