anchor.diff:      formatSourceString false """
   type BaseClass = class
       val string1 : string
  -    new (str) = { string1 = str }
  -    new () = { string1 = "" }
  +    new(str) = { string1 = str }
  +    new() = { string1 = "" }
   end
   
   type DerivedClass =
  
positive.code:     member this.PrintMessage() = printf "Creating MyClass2 with Data %d" data"""
  
  [<Test>]
  let ``recursive classes``() =
      formatSourceString false """
  type Folder(pathIn: string) =
  
negative.code:     class
          inherit DGMLClass()
          let functions = System.Collections.Generic.Dictionary<string, IState>()
      end"""
  