Imports Xunit Public Class ProteinTranslationTests Public Sub Empty_rna_sequence_results_in_no_proteins() Assert.Empty(Proteins("")) End Sub Public Sub Methionine_rna_sequence() Dim strand = "AUG" Dim expected = {"Methionine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Phenylalanine_rna_sequence_1() Dim strand = "UUU" Dim expected = {"Phenylalanine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Phenylalanine_rna_sequence_2() Dim strand = "UUC" Dim expected = {"Phenylalanine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Leucine_rna_sequence_1() Dim strand = "UUA" Dim expected = {"Leucine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Leucine_rna_sequence_2() Dim strand = "UUG" Dim expected = {"Leucine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Serine_rna_sequence_1() Dim strand = "UCU" Dim expected = {"Serine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Serine_rna_sequence_2() Dim strand = "UCC" Dim expected = {"Serine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Serine_rna_sequence_3() Dim strand = "UCA" Dim expected = {"Serine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Serine_rna_sequence_4() Dim strand = "UCG" Dim expected = {"Serine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Tyrosine_rna_sequence_1() Dim strand = "UAU" Dim expected = {"Tyrosine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Tyrosine_rna_sequence_2() Dim strand = "UAC" Dim expected = {"Tyrosine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Cysteine_rna_sequence_1() Dim strand = "UGU" Dim expected = {"Cysteine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Cysteine_rna_sequence_2() Dim strand = "UGC" Dim expected = {"Cysteine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Tryptophan_rna_sequence() Dim strand = "UGG" Dim expected = {"Tryptophan"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Stop_codon_rna_sequence_1() Assert.Empty(Proteins("UAA")) End Sub Public Sub Stop_codon_rna_sequence_2() Assert.Empty(Proteins("UAG")) End Sub Public Sub Stop_codon_rna_sequence_3() Assert.Empty(Proteins("UGA")) End Sub Public Sub Sequence_of_two_protein_codons_translates_into_proteins() Dim strand = "UUUUUU" Dim expected = {"Phenylalanine", "Phenylalanine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Sequence_of_two_different_protein_codons_translates_into_proteins() Dim strand = "UUAUUG" Dim expected = {"Leucine", "Leucine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Translate_rna_strand_into_correct_protein_list() Dim strand = "AUGUUUUGG" Dim expected = {"Methionine", "Phenylalanine", "Tryptophan"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Translation_stops_if_stop_codon_at_beginning_of_sequence() Assert.Empty(Proteins("UAGUGG")) End Sub Public Sub Translation_stops_if_stop_codon_at_end_of_two_codon_sequence() Dim strand = "UGGUAG" Dim expected = {"Tryptophan"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Translation_stops_if_stop_codon_at_end_of_three_codon_sequence() Dim strand = "AUGUUUUAA" Dim expected = {"Methionine", "Phenylalanine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Translation_stops_if_stop_codon_in_middle_of_three_codon_sequence() Dim strand = "UGGUAGUGG" Dim expected = {"Tryptophan"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Translation_stops_if_stop_codon_in_middle_of_six_codon_sequence() Dim strand = "UGGUGUUAUUAAUGGUUU" Dim expected = {"Tryptophan", "Cysteine", "Tyrosine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub Public Sub Sequence_of_two_non_stop_codons_does_not_translate_to_a_stop_codon() Dim strand = "AUGAUG" Dim expected = {"Methionine", "Methionine"} Dim result as IEnumerable(Of String) = Proteins(strand) Assert.Equal(expected, result) End Sub End Class