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);