anchor.diff:      member this.PrintMessage() = printf "Creating MyClass2 with Data %d" data"""
   
   [<Test>]
  +let ``classes and private implicit constructors``() =
  +    formatSourceString false """
  +    type MyClass2 private (dataIn) as self =
  +       let data = dataIn
  +       do self.PrintMessage()
  +       member this.PrintMessage() =
  +           printf "Creating MyClass2 with Data %d" data""" config
  +    |> prepend newline
  +    |> should equal """
  +type MyClass2 private (dataIn) as self = 
  +    let data = dataIn
  +    do self.PrintMessage()
  +    member this.PrintMessage() = printf "Creating MyClass2 with Data %d" data"""
  +
  +[<Test>]
   let ``recursive classes``() =
       formatSourceString false """
   type Folder(pathIn: string) =
  
positive.code:     formatSourceString false """
  type BaseClass = class
      val string1 : string
      new (str) = { string1 = str }
      new () = { string1 = "" }
  end
  
  type DerivedClass =
  
negative.code:     class
          inherit DGMLClass()
          let functions = System.Collections.Generic.Dictionary<string, IState>()
      end"""
  