Haming test fix #81 (#93)

Co-authored-by: Erik Schierboom <[email protected]>
exercism · Mar 31, 2023 · 4de632b · 4de632b
1 parent bc84f03
commit 4de632b
Showing 1 changed file with 11 additions and 11 deletions.
diff --git a/exercises/practice/hamming/hamming_tests.plt b/exercises/practice/hamming/hamming_tests.plt
@@ -11,40 +11,40 @@ pending :-
             Result == 0.
 
     test(long_identical_strands, condition(pending)) :-
-        hamming_distance("GGACTGA", "GGACTGA", 0).
+        hamming_distance("GGACTGA", "GGACTGA", Result), Result == 0.
 
     test(complete_distance_in_single_nucleotide_strands, condition(pending)) :-
         hamming_distance("A", "G", 1).
 
     test(complete_distance_in_small_strands, condition(pending)) :-
-        hamming_distance("AG", "CT", 2).
+        hamming_distance("AG", "CT", Result), Result == 2.
 
     test(small_distance_in_small_strands, condition(pending)) :-
-        hamming_distance("AT", "CT", 1).
+        hamming_distance("AT", "CT", Result), Result == 1.
 
     test(small_distance, condition(pending)) :-
-        hamming_distance("GGACG", "GGTCG", 1).
+        hamming_distance("GGACG", "GGTCG", Result), Result == 1.
 
     test(small_distance_in_long_strands, condition(pending)) :-
-        hamming_distance("ACCAGGG", "ACTATGG", 2).
+        hamming_distance("ACCAGGG", "ACTATGG", Result), Result == 2.
 
     test(nonunique_character_in_first_strand, condition(pending)) :-
-        hamming_distance("AGA", "AGG", 1).
+        hamming_distance("AGA", "AGG", Result), Result == 1.
 
     test(nonunique_character_in_second_strand, condition(pending)) :-
-        hamming_distance("AGG", "AGA", 1).
+        hamming_distance("AGG", "AGA", Result), Result == 1.
 
     test(same_nucleotides_in_different_positions, condition(pending)) :-
-        hamming_distance("TAG", "GAT", 2).
+        hamming_distance("TAG", "GAT", Result), Result == 2.
 
     test(large_distance, condition(pending)) :-
-        hamming_distance("GATACA", "GCATAA", 4).
+        hamming_distance("GATACA", "GCATAA", Result), Result == 4.
 
     test(large_distance_in_offbyone_strand, condition(pending)) :-
-        hamming_distance("GGACGGATTCTG", "AGGACGGATTCT", 9).
+        hamming_distance("GGACGGATTCTG", "AGGACGGATTCT", Result), Result == 9.
 
     test(empty_strands, condition(pending)) :-
-        hamming_distance("", "", 0).
+        hamming_distance("", "", Result), Result == 0.
 
     test(disallow_first_strand_longer, [fail, condition(pending)]) :-
         hamming_distance("AATG", "AAA", _).