anchor.diff:          let pf' = FsProject.renameFile "a_file.fs" "a_renamed_file.fs" pf
           let files = pf'.SourceFiles.AllFiles()
           TestContext.WriteLine (sprintf "%A" files)
  -        pf'.SourceFiles.AllFiles() |> Seq.contains "a_renamed_file.fs" |> should equal true
  +        pf'.SourceFiles.AllFiles() |> Seq.contains "a_renamed_file.fs" |> should be (equal true)
   
       [<Test>]
       let ``parse - rename dir``() =
  
positive.code:     [<Test>]
      let ``parse - move up``() =
          let pf = FsProject.parse astInput
          let pf' = FsProject.moveUp "a_file.fs" pf
          let files = pf'.SourceFiles.AllFiles()
          TestContext.WriteLine (sprintf "%A" files)
          let files' = 
              pf'.SourceFiles.Files
              |> Seq.toArray
          files'.[1]
          |> should equal "a_file.fs"
          
      [<Test>]
      let ``parse - move up nonexistent file``() =
          let pf = FsProject.parse astInput
          let pf' = FsProject.moveUp "dont_exist.fs" pf
          pf'.SourceFiles.AllFiles() |> Seq.contains |> should equal false
  
      [<Test>]
      let ``parse - move down``() =
  
negative.code:         let pf' = FsProject.moveDown "App.config" pf
          let files = pf'.SourceFiles.AllFiles()
          TestContext.WriteLine (sprintf "%A" files)
          pf'.SourceFiles.Files
          |> List.rev
          |> List.tail
          |> should equal "App.config"
  
      [<Test>]
  