Sync high-scores tests

exercises/practice/high-scores/.meta/tests.toml

@@ -38,3 +38,9 @@ description = "Top 3 scores -> Latest score after personal top scores"
 
 [809c4058-7eb1-4206-b01e-79238b9b71bc]
 description = "Top 3 scores -> Scores after personal top scores"
+
+[ddb0efc0-9a86-4f82-bc30-21ae0bdc6418]
+description = "Top 3 scores -> Latest score after personal best"
+
+[6a0fd2d1-4cc4-46b9-a5bb-2fb667ca2364]
+description = "Top 3 scores -> Scores after personal best"

exercises/practice/high-scores/HighScoresTests.vb

@@ -1,5 +1,6 @@
 Imports System.Collections.Generic
 Imports Xunit
+
 Public Class HighScoresTest
     <Fact>
     Public Sub ListOfScores()
@@ -112,4 +113,73 @@ Public Class HighScoresTest
             40
         }, sut.PersonalTopThree())
     End Sub
-End Class
+
+    <Fact(Skip:="Remove this Skip property to run this test")>
+    Public Sub LatestScoreAfterPersonalTopScores()
+        Dim sut = New HighScores(New List(Of Integer) From {
+            70,
+            50,
+            20,
+            30
+        })
+        Assert.Equal(new List(Of Integer) From {
+            70,
+            50,
+            30
+        } , sut.PersonalTopThree())
+        Assert.Equal(30, sut.Latest())
+    End Sub
+
+    <Fact(Skip:="Remove this Skip property to run this test")>
+    Public Sub ScoresAfterPersonalTopScores()
+        Dim sut = New HighScores(New List(Of Integer) From {
+            30,
+            50,
+            20,
+            70
+        })
+        Assert.Equal(New List(Of Integer) From {
+            70,
+            50,
+            30
+        }, sut.PersonalTopThree())
+        Assert.Equal(New List(Of Integer) From {
+            30,
+            50,
+            20,
+            70
+        }, sut.Scores())
+    End Sub
+
+    <Fact(Skip:="Remove this Skip property to run this test")>
+    Public Sub LatestScoreAfterPersonalBest()
+        Dim sut = New HighScores(New List(Of Integer) From {
+            20,
+            70,
+            15,
+            25,
+            30
+        })
+        Assert.Equal(70, sut.PersonalBest())
+        Assert.Equal(30, sut.Latest())
+    End Sub
+
+    <Fact(Skip:="Remove this Skip property to run this test")>
+    Public Sub ScoresAfterPersonalBest()
+        Dim sut = New HighScores(New List(Of Integer) From {
+            20,
+            70,
+            15,
+            25,
+            30
+        })
+        Assert.Equal(70, sut.PersonalBest())
+        Assert.Equal(New List(Of Integer) From {
+            20,
+            70,
+            15,
+            25,
+            30
+        }, sut.Scores())
+    End Sub
+End Class