anchor.diff:  
           // Wait for the process to complete.
           while not toolProcess.HasExited && DateTime.Now - toolProcess.StartTime < testTimeout do
  -            Thread.Sleep (TimeSpan.FromSeconds 5.0)
  +            Thread.Sleep (TimeSpan.FromSeconds 1.0)
   
           // If the process has not completed yet, it's considered to be "timed out" so kill it.
           if not toolProcess.HasExited then
  
positive.code: [<AutoOpen>]
  module private TestCaseHelpers =
      //
      let private startOverlap (str1 : string) (str2 : string) : string =
          notImpl "TestCaseHelpers.startOverlap"
  
      /// The absolute path to the fsharpyacc executable to test.
      let toolPath =
          notImpl "TestCaseHelpers.toolPath"
          ""
  
      //
      let repositoryRoot =
          notImpl "TestCaseHelpers.repositoryRoot"
          ""
  
      //
      let testCases () =
          // TODO : Implement this so it searches the TestCases directory and
          // it's children instead of hard-coding the return values.
          seq {
              yield TestCaseData (
                  [| box @"C:\Users\Jack\Documents\Code Libraries\fsharp-tools\TestCases\fslex.fsy";          // Input (specification)
                     box @"C:\Users\Jack\Documents\Code Libraries\fsharp-tools\TestCases\fslex-parser.fs";    // Output (F# source)
                     box true;                                                                                // Generate an internal module?
                     box "Parser";                                                                            // The name of the generated module.
                     |])
              yield TestCaseData (
                  [| box @"C:\Users\Jack\Documents\Code Libraries\fsharp-tools\TestCases\fsyacc.fsy";          // Input (specification)
                     box @"C:\Users\Jack\Documents\Code Libraries\fsharp-tools\TestCases\fsyacc-parser.fs";    // Output (F# source)
                     box true;                                                                                 // Generate an internal module?
                     box "Parser";                                                                             // The name of the generated module.
                     |])
              }
  
  
  //
  type RepositoryTestCases () =
      //
      member __.Items
          with get () =
              testCases () :> System.Collections.IEnumerable
  
  
  /// Run fsharpyacc against the test cases in the repository.
  
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
  