anchor.diff:  procedure TSmartMobileStudioExternalCompiler.PipedExecutionExitHandler(Sender: TObject; ExitCode: Cardinal);
   begin
     FPipedExecution := nil;
  +  FExitCode := ExitCode;
   end;
   
   procedure TSmartMobileStudioExternalCompiler.PipedExecutionNewLineHandler(Sender: TObject; const Text: string);
  
positive.code: begin
    inherited;
  
    FPipedExecution := TPipedExecution.Create('smsc.exe -unit-path=.\RTL\ ' +
      ScriptFileName, '.', PipedExecutionNewLineHandler, PipedExecutionExitHandler);
  end;
  
negative.code:   TSmartMobileStudioExternalCompiler = class(TSmartMobileStudioCustomScriptTest)
    strict private
      FPipedExecution: TPipedExecution;
      FExitCode: Integer;
      procedure PipedExecutionExitHandler(Sender: TObject; ExitCode: Cardinal);
      procedure PipedExecutionNewLineHandler(Sender: TObject; const Text: string);
    protected
  