Add very simple unreleased version

Author: tboby

src/Library.fs

@@ -137,6 +137,13 @@ type ParseChangeLogs() =
             this.UnreleasedChangelog <- unreleased.ToTaskItem()
             this.UnreleasedReleaseNotes <- unreleased.SubSectionCollection.ToMarkdown()
             Ok()
+    
+    member this.UpdateUnreleasedVersion(latestVersion : SemVersion) =
+        match this.UnreleasedChangelog with
+        | null -> ()
+        | _ ->
+            let newUnreleased = latestVersion.WithPrereleaseParsedFrom "alpha" |> _.WithPatch(latestVersion.Patch + 1)
+            this.UnreleasedChangelog.ItemSpec <- newUnreleased.ToString()
 
     member this.ProcessReleases(changelog: Changelog) =
         let releases =
@@ -161,7 +168,11 @@ type ParseChangeLogs() =
         this.CurrentReleaseChangelog <- mapped[0]
         this.AllReleasedChangelogs <- mapped
         this.LatestReleaseNotes <- latestRelease.collection.ToMarkdown()
+        
+        this.UpdateUnreleasedVersion(latestRelease.version)
+        
         Ok()
+    
 
     /// <summary>
     /// Helper method to log an error with the given log data.

tests/UnitTests.fs

@@ -134,26 +134,23 @@ type UnitTests() =
 - Updated the target framework"""
             )
 
+        %myTask.UnreleasedReleaseNotes
+            .Should()
+            .BeLineEndingEquivalent(
+                """### Removed
+
+- A test removal line
+- And another removal""")
     [<TestMethod>]
-    member this.``task adds pre-release when an unreleased section is present``() =
+    member this.``task produces correct versions``() =
         let myTask = ParseChangeLogs(ChangelogFile = Workspace.changelogs.``CHANGELOG.md``)
 
         myTask.BuildEngine <- this.context.BuildEngine.Object
 
         let success = myTask.Execute()
         %success.Should().BeTrue "Should have successfully parsed the changelog data"
-        
-        %myTask.CurrentReleaseChangelog
-
-        %myTask.LatestReleaseNotes
-            .Should()
-            .Be(
-                """### Added
 
-- Created the package
-
-### Changed
-
-- Changed something in the package
-- Updated the target framework"""
-            )
+        %myTask.CurrentReleaseChangelog.ItemSpec.Should().Be("0.1.0")
+        %myTask.UnreleasedChangelog.ItemSpec.Should().Be("0.1.1-alpha")
+        
+