anchor.diff:              let results = PerfTest.run tester tests
               () // TODO: handle saving of results
   
  -    let testPerfCompare = testPerfCompareWithConfig CompareConfig.Defaults
  +    let testPerfCompare<'a when 'a :> ITestable> name (subj : 'a) (alts : 'a list) (tests : 'a PerfTest list) =
  +        testPerfCompareWithConfig CompareConfig.Defaults name subj alts tests
   
       let testPerfHistoryWithConfig config name =
           ()
  
positive.code:     open Fuchu.Impl
  
      type PerfConfig =
          {  }
  
      type CompareConfig =
          { throwOnError : bool
  
negative.code:                 System.Threading.Thread.Sleep(20)
  
      let alts : Serialiser list = [ FastSerialiser(); FastSerialiserAlt() ]
      let subj = SlowSerialiser() :> Serialiser
  
      open Types
  
      let tests =
          testList "performance tests" [
              testPerfCompare "implementations of Serialiser" subj alts [
                  perfTest "serialising string" <| fun s ->
                      s.Serialise("wowowow")
                  perfTest "serialising record" <| fun s ->
                      s.Serialise { a = "hello world"; b = 42 }
                  ]
              ]
  
  (* EXAMPLES:
  
  