anchor.diff:          let files = pf'.SourceFiles.AllFiles()
           TestContext.WriteLine (sprintf "%A" files)
           pf'.SourceFiles.AllFiles()
  -        |> Seq.map (fun s -> s.Contains("RenameDirectory"))
  +        |> Seq.map (fun s -> s.Contains("renamedirectory"))
           |> Seq.contains true
  -        |> should equal true
  +        |> should be (equal true)
   
       [<Test>]
       let ``parse - list references``() =
           let pf = FsProject.parse astInput
           let refs = FsProject.listReferences pf
  -        refs.Length |> should equal 5
  +        refs.Length |> should be (equal 5)
   
       [<Test>]
       let ``parse - list files``() =
           let pf = FsProject.parse astInput
           let files = FsProject.listSourceFiles pf
  -        files.Length |> should equal 3
  +        files.Length |> should be (equal 3)
   
   // PathHelper is internal - no direct testing available
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.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 be (equal true)
  
      [<Test>]
      let ``parse - rename dir``() =
  