anchor.diff:          let pf' = FsProject.moveDown "App.config" pf
           let files = pf'.SourceFiles.AllFiles()
           TestContext.WriteLine (sprintf "%A" files)
  -        pf'.SourceFiles.Files.Tail
  +        pf'.SourceFiles.Files
  +        |> List.rev
  +        |> List.tail
           |> should equal "App.config"
   
       [<Test>]
  
positive.code:         let files = pf'.SourceFiles.AllFiles()
          TestContext.WriteLine (sprintf "%A" files)
          pf'.SourceFiles.AllFiles()
          |> Seq.map (fun s -> s.Contains("RenameDirectory"))
          |> Seq.contains true
          |> should equal true
  
      [<Test>]
      let ``parse - list references``() =
          let pf = FsProject.parse astInput
          let refs = FsProject.listReferences pf
          refs.Length |> should equal 5
  
      [<Test>]
      let ``parse - list files``() =
          let pf = FsProject.parse astInput
          let files = FsProject.listSourceFiles pf
          files.Length |> should equal 3
  
  // PathHelper is internal - no direct testing available
negative.code:     [<Test>]
      let ``parse - move up``() =
          let pf = FsProject.parse astInput
          let pf' = FsProject.moveUp "App.config" pf
          let files = pf'.SourceFiles.AllFiles()
          TestContext.WriteLine (sprintf "%A" files)
          pf'.SourceFiles.AllFiles()
          |> Seq.head
          |> should equal "App.config"
          
      [<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 be (equal false)
  
      [<Test>]
      let ``parse - move down``() =
  