anchor.diff:  begin
     inherited;
   
  +  // peek command-line output
     while Assigned(FPipedExecution) do
       FPipedExecution.Peek;
   end;
  
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
  