anchor.diff:  begin
     inherited;
   
  +  FExitCode := 0;
  +
     FPipedExecution := TPipedExecution.Create('smsc.exe -unit-path=.\RTL\ ' +
       ScriptFileName, '.', PipedExecutionNewLineHandler, PipedExecutionExitHandler);
   end;
  
positive.code:   // check if any command-line output is expected
    if FileExists(ScriptFileName + '.out') then
    begin
      Expected := LoadTextFromFile(ScriptFileName + '.out');
      Expected := StringReplace(Expected, #$A, '', [rfReplaceAll]);
  
      CheckEquals(Expected, FMessageOutput,
        'The compiler output does not match!');
    end;
  
    // check if any JS output is expected
    if FileExists(ScriptFileName + '.js') then
    begin
      // now check for the reference
      Check(FileExists(CompiledFileName));
  
      Expected := LoadTextFromFile(ScriptFileName + '.js');
      Output := LoadTextFromFile(CompiledFileName);
      CheckEquals(Expected, Output,
        'The error message does not match!');
    end
    else
    begin
  
negative.code: begin
    inherited;
  
    // peek command-line output
    while Assigned(FPipedExecution) do
      FPipedExecution.Peek;
  end;
  