WIP

Author: tboby

src/Library.fs

@@ -85,6 +85,9 @@ type ParseChangeLogs() =
 
     [<Output>]
     member val UnreleasedChangelog: ITaskItem = null with get, set
+    
+    [<Output>]
+    member val UnreleasedReleaseNotes: string = null with get, set 
 
     [<Output>]
     member val CurrentReleaseChangelog: ITaskItem = null with get, set
@@ -132,6 +135,7 @@ type ParseChangeLogs() =
         | null -> Ok()
         | unreleased ->
             this.UnreleasedChangelog <- unreleased.ToTaskItem()
+            this.UnreleasedReleaseNotes <- unreleased.SubSectionCollection.ToMarkdown()
             Ok()
 
     member this.ProcessReleases(changelog: Changelog) =

tests/UnitTests.fs

@@ -130,6 +130,30 @@ type UnitTests() =
 
 ### Changed
 
+- Changed something in the package
+- Updated the target framework"""
+            )
+            
+    [<TestMethod>]
+    member this.``task adds pre-release when an unreleased section is present``() =
+        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"""
             )

tests/changelogs/CHANGELOG_unreleased.md

@@ -0,0 +1,19 @@
+# Changelog
+
+## [Unreleased]
+
+### Removed
+
+- A test removal line
+- And another removal
+
+## [0.1.0] - 2022-01-13
+
+### Added
+
+- Created the package
+
+### Changed
+
+- Changed something in the package
+- Updated the target framework