anchor.diff:                  System.Threading.Thread.Sleep(20)
   
       let alts : Serialiser list = [ FastSerialiser(); FastSerialiserAlt() ]
  +    let subj = SlowSerialiser() :> Serialiser
   
  -    testList "performance tests" [
  -        testPerfCompare "implementations of Serialiser" (SlowSerialiser()) alts [
  -            perfTest "serialising string" <| fun s ->
  -                s.Serialise("wowowow")
  +    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 }
  +                ]
               ]
  -        ]
  -
  -type FsCheck =
  -    static member PerfCompare(name, _ : TODO) =
  -        ()
   
   (* EXAMPLES:
   
  
positive.code:     open Fuchu.Impl
  
      type PerfConfig =
          {  }
  
      type CompareConfig =
          { throwOnError : bool
  
negative.code:             let results = PerfTest.run tester tests
              () // TODO: handle saving of results
  
      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 =
          ()
  