anchor.diff:  
               // Set additional properties of the ProcessStartInfo.
               toolProcessStartInfo.CreateNoWindow <- true
  +            toolProcessStartInfo.WorkingDirectory <- Path.GetDirectoryName toolPath
  +            toolProcessStartInfo.UseShellExecute <- true
               toolProcessStartInfo
   
           (* TODO : Add additional code to capture output and error information
  
positive.code:     let private testTimeout = TimeSpan.FromSeconds 60.0
  
      //
      [<TestCaseSource(typeof<RepositoryTestCases>, "Items")>]
      let repository (inputFilename : string, outputFilename : string, internalModule : bool, parserModuleName : string) =
          //
          use toolProcess = new Process ()
          
          // Set the process' start info.
          toolProcess.StartInfo <-
              //
              let toolProcessStartInfo =
  
negative.code:                 // TODO : Provide a message with timing information.
                  Assert.Pass ()
              else
                  let msg = sprintf "The external tool process exited with code %i." toolProcess.ExitCode
                  Assert.Fail msg
  