Imports Xunit Public Class SecretHandshakeTests Public Sub Wink_for_1() Dim expected = {"wink"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(1) Assert.Equal(expected, result) End Sub Public Sub Double_blink_for_10() Dim expected = {"double blink"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(2) Assert.Equal(expected, result) End Sub Public Sub Close_your_eyes_for_100() Dim expected = {"close your eyes"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(4) Assert.Equal(expected, result) End Sub Public Sub Jump_for_1000() Dim expected = {"jump"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(8) Assert.Equal(expected, result) End Sub Public Sub Combine_two_actions() Dim expected = {"wink", "double blink"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(3) Assert.Equal(expected, result) End Sub Public Sub Reverse_two_actions() Dim expected = {"double blink", "wink"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(19) Assert.Equal(expected, result) End Sub Public Sub Reversing_one_action_gives_the_same_action() Dim expected = {"jump"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(24) Assert.Equal(expected, result) End Sub Public Sub Reversing_no_actions_still_gives_no_actions() Assert.Empty(SecretHandshake.Commands(16)) End Sub Public Sub All_possible_actions() Dim expected = {"wink", "double blink", "close your eyes", "jump"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(15) Assert.Equal(expected, result) End Sub Public Sub Reverse_all_possible_actions() Dim expected = {"jump", "close your eyes", "double blink", "wink"} Dim result As IEnumerable(Of String) = SecretHandshake.Commands(31) Assert.Equal(expected, result) End Sub Public Sub Do_nothing_for_zero() Assert.Empty(SecretHandshake.Commands(0)) End Sub End Class