anchor.diff:      <@ for i in (0 + 0)..(0 + 10) do sum := !sum + i @> |> eval
       test <@ !sum = Seq.sum {0..10} @>
   
  +type private PrivateUnion = A of int * string | B
  +
   [<Fact>]
   let ``UnionCaseTest`` () =
       testEval <@ match Some(3) with
                   | Some(_) -> true
                   | None -> false @>
  +             true
  +
  +[<Fact>]
  +let ``PrivateUnionCaseConstruction`` () =
  +    testEval <@ match A(2,"") with
  +                | A(2,_) -> true
  +                | _ -> false @>
                true
   
   [<Fact>]
  
positive.code: [<Fact>]
  let ``NewRecord with fields constructed out of order`` () =
      testEval <@ {Y=""; X=0} @> {X=0; Y=""}
  
  [<Fact>]
  let ``Sequential discards lhs and returns rhs`` () =
  
negative.code: 
  type RecordTest = {X:int; Y:string}
  
  type private PrivateRecordTest = {PX:int; PY:string}
  
  [<Fact>]
  let ``NewRecord with fields constructed in order`` () =
      testEval <@ {X=0; Y=""} @> {X=0; Y=""}
  