Add Nuget.CommandLine if auto restore was used

docs/content/convert-from-nuget.md

@@ -42,3 +42,5 @@ Options:
   `--force`: Forces the conversion, even if a [`paket.dependencies` file](dependencies-file.html) or [`paket.references`](references-files.html) files are present.
 
   `--no-install`: Skips [`paket install --hard`](paket-install.html) process afterward generation of dependencies / references files.
+
+  `--dependencies-file`: Use the specified file instead of [`paket.dependencies`](dependencies-file.html).

src/Paket/DependenciesFile.fs

@@ -170,12 +170,14 @@ type DependenciesFile(fileName,strictMode,packages : UnresolvedPackage list, rem
     let dependencyMap = Map.ofSeq (packages |> Seq.map (fun p -> p.Name, p.VersionRequirement))
     member __.DirectDependencies = dependencyMap
     member __.Packages = packages
+    member __.HasPackage (name : string) = packages |> List.exists (fun p -> p.Name.ToLower() = name.ToLower())
     member __.RemoteFiles = remoteFiles
     member __.Strict = strictMode
     member __.FileName = fileName
     member this.Resolve(force) = this.Resolve(Nuget.GetVersions,Nuget.GetPackageDetails force)
     member __.Resolve(getVersionF, getPackageDetailsF) = PackageResolver.Resolve(getVersionF, getPackageDetailsF, packages)
-    member __.Add(packageName,version:string) =
+    member this.Add(packageName,version:string) =
+        if this.HasPackage packageName then failwithf "%s has already package %s" Constants.DependenciesFile packageName
         let versionRange = DependenciesFileParser.parseVersionRequirement (version.Trim '!')
         let sources = 
             match packages |> List.rev with

src/Paket/NugetConvert.fs

@@ -12,6 +12,11 @@ let private readPackageSources(configFile : FileInfo) =
     doc.Load configFile.FullName
     [for node in doc.SelectNodes("//packageSources/add[@value]") -> node.Attributes.["value"].Value]
 
+let removeFileIfExists file = 
+    if File.Exists file then 
+        File.Delete file
+        tracefn "Deleted %s" file
+
 let private convertNugetsToDepFile(nugetPackagesConfigs) =
     let allVersions =
         nugetPackagesConfigs
@@ -47,7 +52,7 @@ let private convertNugetsToDepFile(nugetPackagesConfigs) =
                 match FindAllFiles(".", "nuget.config") |> Seq.firstOrDefault with
                 | Some configFile -> 
                     let sources = readPackageSources(configFile) 
-                    File.Delete(configFile.FullName)
+                    removeFileIfExists configFile.FullName
                     sources @ [Constants.DefaultNugetStream]
                 | None -> [Constants.DefaultNugetStream]
                 |> Set.ofList
@@ -88,7 +93,7 @@ let private convertNugetToRefFile(nugetPackagesConfig) =
     else tracefn "%s is up to date" refFile
 
 /// Converts all projects from NuGet to Paket
-let ConvertFromNuget(force, installAfter) =
+let ConvertFromNuget(force, installAfter, dependenciesFileName) =
     if File.Exists Constants.DependenciesFile && not force then failwithf "%s already exists, use --force to overwrite" Constants.DependenciesFile
 
     let nugetPackagesConfigs = FindAllFiles(".", "packages.config") |> Seq.map Nuget.ReadPackagesConfig
@@ -113,14 +118,17 @@ let ConvertFromNuget(force, installAfter) =
         project.Save()
 
     for packagesConfigFile in nugetPackagesConfigs |> Seq.map (fun f -> f.File) do
-        File.Delete(packagesConfigFile.FullName)
+        removeFileIfExists packagesConfigFile.FullName
 
     match Directory.EnumerateDirectories(".", ".nuget", SearchOption.AllDirectories) |> Seq.firstOrDefault with
     | Some nugetDir ->
         let nugetTargets = Path.Combine(nugetDir, "nuget.targets")
         if File.Exists nugetTargets then
-            File.Delete(nugetTargets)
-            tracefn "Deleted %s" nugetTargets
+            let nugetExe = Path.Combine(nugetDir, "nuget.exe")
+            removeFileIfExists nugetExe
+            removeFileIfExists nugetTargets
+            let depFile = DependenciesFile.ReadFromFile(dependenciesFileName)
+            if not <| depFile.HasPackage("Nuget.CommandLine") then depFile.Add("Nuget.CommandLine", "").Save()
             VSIntegration.InitAutoRestore()
 
         if Directory.EnumerateFileSystemEntries(nugetDir) |> Seq.isEmpty 

src/Paket/Program.fs

@@ -108,7 +108,7 @@ try
         | Command.Update -> UpdateProcess.Update(dependenciesFileName,true,force,hard)
         | Command.Outdated -> FindOutdated.ListOutdated(dependenciesFileName)
         | Command.InitAutoRestore -> VSIntegration.InitAutoRestore()
-        | Command.ConvertFromNuget -> NuGetConvert.ConvertFromNuget(force,noInstall |> not)
+        | Command.ConvertFromNuget -> NuGetConvert.ConvertFromNuget(force,noInstall |> not,dependenciesFileName)
         | Command.Simplify -> Simplifier.Simplify(dependenciesFileName)
         | _ -> traceErrorfn "no command given.%s" (parser.Usage())
 

src/Paket/SolutionFile.fs

@@ -18,12 +18,11 @@ module SolutionFile =
     let RemoveNugetEntries(solutionName: string) =
         let slnContent = ResizeArray( File.ReadAllLines solutionName )
         let mutable modified = false
-        match slnContent |> Seq.tryFindIndex (fun line -> line.Contains(".nuget\\nuget.targets")) with
-        | Some(index) -> slnContent.RemoveAt(index); modified <- true
-        | None -> ()        
-        match slnContent |> Seq.tryFindIndex (fun line -> line.Contains(".nuget\\packages.config")) with
-        | Some(index) -> slnContent.RemoveAt(index); modified <- true
-        | None -> ()
 
+        for file in ["nuget.targets";"packages.config";"nuget.exe"] do
+            match slnContent |> Seq.tryFindIndex (fun line -> line.ToLower().Contains(sprintf ".nuget\\%s" file)) with
+            | Some(index) -> slnContent.RemoveAt(index); modified <- true
+            | None -> ()            
+
         removeNugetSlnFolderIfEmpty(slnContent)
         if modified then File.WriteAllLines(solutionName, slnContent)

tests/Paket.Tests/DependenciesFile/AddPackageSpecs.fs

@@ -116,4 +116,36 @@ let ``should add new packages with nuget package resolution strategy``() =
 nuget FAKE !~> 1.2"""
 
     cfg.ToString()
-    |> shouldEqual (normalizeLineEndings expected)
+    |> shouldEqual (normalizeLineEndings expected)
+
+
+[<Test>]
+let ``should fail if package already exists``() = 
+    let config = """source http://nuget.org/api/v2
+
+nuget Castle.Windsor-log4net ~> 3.2
+nuget Rx-Main ~> 2.0
+nuget FAKE = 1.1
+nuget SignalR = 3.3.2"""
+
+    try
+        DependenciesFile.FromCode(noSha1,config).Add("FAKE","") |> ignore
+        failwith "adding the same package did not throw"
+    with e -> 
+        e.Message |> shouldEqual <| sprintf "%s has already package %s" Constants.DependenciesFile "FAKE"
+
+
+[<Test>]
+let ``should fail if package already exists - case insensitive``() = 
+    let config = """source http://nuget.org/api/v2
+
+nuget Castle.Windsor-log4net ~> 3.2
+nuget Rx-Main ~> 2.0
+nuget FAKE = 1.1
+nuget SignalR = 3.3.2"""
+
+    try
+        DependenciesFile.FromCode(noSha1,config).Add("fAKe","") |> ignore
+        failwith "adding the same package did not throw"
+    with e -> 
+        e.Message |> shouldEqual <| sprintf "%s has already package %s" Constants.DependenciesFile "fAKe"