anchor.diff:  
   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=""}
  
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:     <@ 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>]
  