anchor.diff:  
   """
   
  -// Tests to add:
  -// TODO: handle C# optional parameters
  +[<Test; Ignore("activate when generic constraints are supported")>]
  +let ``handle generic constraints`` () =
  +    """type Arg<'T when 'T :> System.Runtime.Serialization.ISerializable and 'T :> System.ICloneable> =
  +    | Value of 'T
  +    """
  +    |> generateDefinitionFromPos (Pos.fromZ 1 5)
  +    |> assertSrcAreEqual """type Arg<'T when 'T :> System.Runtime.Serialization.ISerializable and 'T :> System.ICloneable> =
  +    | Value of 'T
  +    """
  +
  +// Tests to add/activate:
   // TODO: property/method attributes
   // TODO: method arguments attributes
   // TODO: xml comments
  
positive.code: // TODO: union type extension members?
  // TODO: record type fields attributes
  // TODO: record type extension members?
  // TODO: enum type attributes
  // TODO: handle inherited classes
  // TODO: generic member constraints
  // TODO: static member constraints
  //
  //type MyAbstractClass() =
  //    abstract member Method: int -> unit
  //    default this.Method(x) = ()
  //
  //type MyClass() =
  //    inherit MyAbstractClass()
  //    override this.Method(x) = ()
  //
  // ENHANCEMENT: special formatting for Events?
  // TODO: display static member getter/setter availability
  // TODO: syntax coloring is deactivated on generated metadata file
  
negative.code:     ]
  
  [<Test>]
  let ``handle optional parameters`` () =
      """
  open System.Runtime.InteropServices 
  type T() =
  