anchor.diff:  
       let tryRunCasesAsync (testObject: TestClass) =
         let results =
  -        testObject.Cases
  +        testObject.Methods
           |> Seq.map
             (fun testCase ->
               async { return testObject |> tryRunCase testCase }
  
positive.code:   {
      Type                        : Type
      Create                      : unit -> TestInstance
      Cases                       : seq<TestMethod>
    }
  
  type TestSuite =
  
negative.code:       {
          Type                    = typ
          Create                  = typ |> instantiate
          Methods                 = typ |> testCases
        } |> Some
      else
        None
  