anchor.diff:                  // TODO : Provide a message with timing information.
                   Assert.Pass ()
               else
  -                let msg = sprintf "THe external tool process exited with code %i." toolProcess.ExitCode
  +                let msg = sprintf "The external tool process exited with code %i." toolProcess.ExitCode
                   Assert.Fail msg
  
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: [<AutoOpen>]
  module private TestCaseHelpers =
      //
      let rec private findRepoRoot (path : string) =
          // Get the directory containing the path.
          let dirPath = Path.GetDirectoryName path
  
          // Does this directory contain a directory called ".git"?
          if Directory.Exists <| Path.Combine (dirPath, ".git") then
              dirPath
          elif Path.GetPathRoot path = dirPath then
              // We've reach the root of a drive, so raise an exception.
              failwith "Unable to locate the root folder of the repository."
          else
              // Continue recursing upwards
              findRepoRoot dirPath
          
      /// The absolute path to the fsharpyacc executable to test.
      let toolPath =
          (System.Uri (typeof<FSharpYacc.FsyaccBackendOptions>.Assembly.CodeBase)).LocalPath
  
      type private Dummy () = class end
  
      //
      let repositoryRoot =
          (System.Uri (typeof<Dummy>.Assembly.CodeBase)).LocalPath
          |> findRepoRoot
  
      //
      let testCases () =
          Directory.EnumerateFiles (
              Path.Combine (repositoryRoot + Path.DirectorySeparatorChar.ToString (), "TestCases"),
              "*.fsy",
              SearchOption.AllDirectories)
          |> Seq.map (fun testCaseFile ->
              /// The output file name, which is based on the input filename.
              let outputFile =
                  Path.Combine (
                      Path.GetDirectoryName testCaseFile,
                      Path.GetFileNameWithoutExtension testCaseFile + "-parser.fs")
  
              TestCaseData (
                  [| box testCaseFile;    // Input (specification)
                     box outputFile;      // Output (F# source)
                     box true;            // Generate an internal module?
                     box "Parser";        // The name of the generated module.
                     |]))
  
  
  /// Run fsharpyacc against the test cases in the repository.
  