anchor.diff:      formatSourceString false """
       type MyClassBase1() =
          let mutable z = 0
  -       abstract member function1 : int -> int
  -       default u.function1(a : int) = z <- z + a; z
  +       abstract member Function1 : int -> int
  +       default u.Function1(a : int) = z <- z + a; z
   
       type MyClassDerived1() =
          inherit MyClassBase1()
  -       override u.function1(a: int) = a + 1""" config
  +       override u.Function1(a: int) = a + 1""" config
       |> prepend newline
       |> should equal """
   type MyClassBase1() = 
       let mutable z = 0
  -    abstract function1 : int -> int
  -    override u.function1(a : int) = 
  +    abstract Function1 : int -> int
  +    override u.Function1(a : int) = 
           z <- z + a
           z
   
   type MyClassDerived1() = 
       inherit MyClassBase1()
  -    override u.function1(a : int) = a + 1"""
  +    override u.Function1(a : int) = a + 1"""
   
   [<Test>]
   let ``intrinsic type extensions``() =
  
positive.code:     |> should equal """type Shell() = 
      static member private GetParams(cmd, ?args) = doStuff
      static member Exec(cmd, ?args) = 
          shellExec(Shell.GetParams(cmd, ?args = args))"""
  
  [<Test>]
  let ``should add space before argument on given config``() =
  
negative.code:     |> should equal """
  let f (x: int) = x
  
  type t(x: int) = 
      class
      end"""
  
  