Imports System Imports Xunit Public Class MinesweeperTests Public Sub No_rows() Dim minefield = Array.Empty(Of String)() Dim expected = Array.Empty(Of String)() Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub No_columns() Dim minefield = {""} Dim expected = {""} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub No_mines() Dim minefield = {" ", " ", " "} Dim expected = {" ", " ", " "} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Minefield_with_only_mines() Dim minefield = {"***", "***", "***"} Dim expected = {"***", "***", "***"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Mine_surrounded_by_spaces() Dim minefield = {" ", " * ", " "} Dim expected = {"111", "1*1", "111"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Space_surrounded_by_mines() Dim minefield = {"***", "* *", "***"} Dim expected = {"***", "*8*", "***"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Horizontal_line() Dim minefield = {" * * "} Dim expected = {"1*2*1"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Horizontal_line_mines_at_edges() Dim minefield = {"* *"} Dim expected = {"*1 1*"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Vertical_line() Dim minefield = {" ", "*", " ", "*", " "} Dim expected = {"1", "*", "2", "*", "1"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Vertical_line_mines_at_edges() Dim minefield = {"*", " ", " ", " ", "*"} Dim expected = {"*", "1", " ", "1", "*"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Cross() Dim minefield = {" * ", " * ", "*****", " * ", " * "} Dim expected = {" 2*2 ", "25*52", "*****", "25*52", " 2*2 "} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub Public Sub Large_minefield() Dim minefield = {" * * ", " * ", " * ", " * *", " * * ", " "} Dim expected = {"1*22*1", "12*322", " 123*2", "112*4*", "1*22*2", "111111"} Dim result as IEnumerable(Of String) = Minesweeper.Annotate(minefield) Assert.Equal(expected, result) End Sub End Class