From c771215d79d046f267530ab432320564366cbb5b Mon Sep 17 00:00:00 2001 From: Erik Schierboom Date: Fri, 31 Mar 2023 19:01:51 +0200 Subject: [PATCH] rna-transcription: fix tests (#202) See https://github.com/exercism/prolog/issues/81 --- .../rna-transcription/rna_transcription_tests.plt | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/exercises/practice/rna-transcription/rna_transcription_tests.plt b/exercises/practice/rna-transcription/rna_transcription_tests.plt index 7db43679..0751fc90 100644 --- a/exercises/practice/rna-transcription/rna_transcription_tests.plt +++ b/exercises/practice/rna-transcription/rna_transcription_tests.plt @@ -8,19 +8,23 @@ pending :- test(rna_complement_of_cytosine_is_guanine, condition(true)) :- rna_transcription("C", Result), - Result == "G". + Result == "G". test(rna_complement_of_guanine_is_cytosine, condition(pending)) :- - rna_transcription("G", "C"). + rna_transcription("G", Result), + Result == "C". test(rna_complement_of_thymine_is_adenine, condition(pending)) :- - rna_transcription("T", "A"). + rna_transcription("T", Result), + Result == "A". test(rna_complement_of_adenine_is_uracil, condition(pending)) :- - rna_transcription("A", "U"). + rna_transcription("A", Result), + Result == "U". test(rna_complement, condition(pending)) :- - rna_transcription("ACGTGGTCTTAA", "UGCACCAGAAUU"). + rna_transcription("ACGTGGTCTTAA", Result), + Result == "UGCACCAGAAUU". test(dna_correctly_handles_invalid_input, [fail, condition(pending)]) :- rna_transcription("U", _).