anchor.diff:      inherit ITestable
       abstract DoIt : unit -> unit
       
  -let createNamedFormatTest testTemplate tw (impl: Implementations.Implementation<_,_,_,_,_>) =
  +let createParseCaptureFormatTest testTemplate tw (impl: Implementations.Implementation<_,_,_,_,_>) =
       let template = impl.initTemplate testTemplate
       let args = impl.initTemplateArgs testTemplate
       let state = impl.initOutput tw
  
positive.code: 
  module TestInputs =
      type Priority = { p1: string }
      let t1 = { Title = "you have priority {p1}"
                 TokenValues = [ Literal "you have priority "; NamedProperty("p1", "one"); Literal "\n" ]
                 DictionaryOfNamesAndValues = ["p1", box "one"] |> dict
                 ObjectWithNamedProps = { p1="one" } }
  
      type Person = { name: string }
      let t2 = { Title = "Hello, {name}"
                 TokenValues = [ Literal "hello, "; NamedProperty("name", "adam"); Literal "\n" ]
                 DictionaryOfNamesAndValues = ["name", box "adam"] |> dict
                 ObjectWithNamedProps = { name="adam" } }
  
  module Features =   
      /// Allows a tested implementation to configure it's output with the provided TextWriter
  
negative.code:     TestInputs.t1, createComparer TestInputs.t1
      TestInputs.t2, createComparer TestInputs.t2 ]
  
  comparers |> List.iter (fun (tt, c) -> c.Run(id="(cached) 100k x " + tt.Title, repeat=100000, testF=fun t -> t.DoIt()))
  
  #load "../packages/FSharp.Charting/FSharp.Charting.fsx"
  open FSharp.Charting
  