Page Comparison

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