Sha256: 92a482c6f03f1d72c143dea1e7d000a15d80c27d9535529540575fd167ac9d97
Contents?: true
Size: 1.71 KB
Versions: 68
Compression:
Stored size: 1.71 KB
Contents
(* Test/exercise version: "2.0.1" *)
open Base
open OUnit2
open Hamming
let printer = function
| None -> "None"
| Some x -> Int.to_string x
let ae exp got _test_ctxt = assert_equal ~printer exp got
let dna_of_string s =
let f = function
| 'A' -> A
| 'C' -> C
| 'G' -> G
| 'T' -> T
| _ -> failwith "Big news! New nucleotide discovered" in
String.to_list s |> List.map ~f
let hamdist a b = hamming_distance (dna_of_string a) (dna_of_string b)
let tests = [
"empty strands" >::
ae (Some 0) (hamdist "" "");
"identical strands" >::
ae (Some 0) (hamdist "A" "A");
"long identical strands" >::
ae (Some 0) (hamdist "GGACTGA" "GGACTGA");
"complete distance in single nucleotide strands" >::
ae (Some 1) (hamdist "A" "G");
"complete distance in small strands" >::
ae (Some 2) (hamdist "AG" "CT");
"small distance in small strands" >::
ae (Some 1) (hamdist "AT" "CT");
"small distance" >::
ae (Some 1) (hamdist "GGACG" "GGTCG");
"small distance in long strands" >::
ae (Some 2) (hamdist "ACCAGGG" "ACTATGG");
"non-unique character in first strand" >::
ae (Some 1) (hamdist "AAG" "AAA");
"non-unique character in second strand" >::
ae (Some 1) (hamdist "AAA" "AAG");
"same nucleotides in different positions" >::
ae (Some 2) (hamdist "TAG" "GAT");
"large distance" >::
ae (Some 4) (hamdist "GATACA" "GCATAA");
"large distance in off-by-one strand" >::
ae (Some 9) (hamdist "GGACGGATTCTG" "AGGACGGATTCT");
"disallow first strand longer" >::
ae None (hamdist "AATG" "AAA");
"disallow second strand longer" >::
ae None (hamdist "ATA" "AGTG");
]
let () =
run_test_tt_main ("hamming tests" >::: tests)
Version data entries
68 entries across 68 versions & 1 rubygems