anchor.diff:          project.ReportDirectory <- param.ReportDirectory
       if param.ReportNameFormat <> null then
           project.ReportNameFormat <- param.ReportNameFormat
  +    match param.ReportArchive with
  +    | None -> ()
  +    | Some v -> 
  +        project.ReportArchive <- 
  +            match v with
  +            | Normal -> ReportArchive.Normal
  +            | Zip -> ReportArchive.Zip
  +
       project
   
   let private createExecutionOptions param = 
  
positive.code:       RuntimeVersion = null
        ReportDirectory = null 
        ReportNameFormat = null 
        Filters = null }
  
  let inline private addProperties properties propertyContainer =
      properties
  
negative.code:       /// The default format string is test-report-{0}-{1}.
        ReportNameFormat: string 
        /// Test filters (i.e. exclusion rules)
        Filters: string // TODO use a EDSL instead of string descriptors?
        ReportArchive: ReportArchiveMode option
        }
  
  let GallioDefaults = 
  