Restored uninstall functionality

src/Paket.Core/ProjectFile.fs

@@ -177,6 +177,19 @@ type ProjectFile =
                 | None  ->
                     let firstNode = fileItemsInSameDir |> Seq.head 
                     firstNode.ParentNode.InsertBefore(libReferenceNode, firstNode) |> ignore
+
+        let paketNodes = 
+            this.FindPaketNodes("Compile")
+            @ this.FindPaketNodes("Content")
+
+        //remove uneeded files
+        for paketNode in paketNodes do
+            match getAttribute "Include" paketNode with
+            | Some path ->
+                if not(fileItems |> List.exists (fun fi -> fi.Include = path))
+                then paketNode.ParentNode.RemoveChild(paketNode) |> ignore
+                else ()
+            | _ -> ()
 
         this.DeleteIfEmpty("PropertyGroup")
         this.DeleteIfEmpty("ItemGroup")

src/Paket/Paket.fsproj

@@ -30,7 +30,7 @@
     <StartArguments>update</StartArguments>
     <StartAction>Project</StartAction>
     <StartProgram>paket.exe</StartProgram>
-    <StartWorkingDirectory>c:\code\Paket09x</StartWorkingDirectory>
+    <StartWorkingDirectory>D:\Appdev\officeprovider\</StartWorkingDirectory>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <DebugType>pdbonly</DebugType>

tests/Paket.Tests/ProjectFile/OutputSpecs.fs

@@ -99,4 +99,40 @@ let ``should maintain order when updating project file items`` () =
          "WordProvider.fs"
          "ProviderEntryPoint.fs"
         ]
+    CollectionAssert.AreEqual(expected, actual)
+
+[<Test>]
+let ``should remove missing files that exist in the project`` () = 
+
+    let projFile =  ProjectFile.Load("./ProjectFile/TestData/MaintainsOrdering.fsprojtest").Value
+    let fileItems = [
+        { BuildAction = "Compile"; Include = "DebugProvidedTypes.fs"; Link = None }
+        { BuildAction = "Compile"; Include = "ProvidedTypes.fs"; Link = None }
+        { BuildAction = "Content"; Include = "ProvidedTypes.fsi"; Link = None }
+    ]
+    projFile.UpdateFileItems(fileItems, false)
+
+    let rec nodes node = 
+        seq {
+            for node in node |> Seq.cast<XmlNode> do
+                if node.Name = "Compile" || node.Name = "Content"
+                then yield Paket.Xml.getAttribute "Include" node
+                yield! nodes node 
+        }
+
+    let actual = 
+        nodes projFile.Document  
+        |> Seq.choose id  
+        |> Seq.toList
+    let expected = 
+        [
+         "ProvidedTypes.fsi"
+         "ProvidedTypes.fs"
+         "DebugProvidedTypes.fs"
+         "QuotationHelpers.fs"
+         "CommonTypes.fs"
+         "ExcelProvider.fs"
+         "WordProvider.fs"
+         "ProviderEntryPoint.fs"
+        ]
     CollectionAssert.AreEqual(expected, actual)