anchor.diff:      | Union.Case1 -> failwith ""
       | Union.Case2 -> ()"""
   
  +
   [<Test; Ignore("Reactivate when capable of identifying combined clauses")>]
   let ``union match case generation with combined clauses`` () =
       """
  
positive.code: let f union =
      match union with
      | Case1
      | Case2 -> ()"""
  
  
  
negative.code:     Collection.assertEqual (srcToLineArray expectedSrc) (srcToLineArray actualSrc)
  
  [<Test>]
  let ``single union match case generation when the unique case is written`` () =
      """
  type Union = Case1
  
  let f union =
      match union with
      | Case1 -> ()"""
      |> insertCasesFromPos (Pos.fromZ 5 6)
      |> assertSrcAreEqual """
  type Union = Case1
  
  let f union =
      match union with
      | Case1 -> ()"""
  
  [<Test>]
  let ``union match case generation when all cases are written 1`` () =
      """
  type Union = Case1 | Case2
  
  