Contents

open Core
open OUnit2

module CMap = Char.Map

(* Assert Int Equals *)
let aie exp got _test_ctxt =
  let printer = Int.to_string in
  assert_equal exp got ~printer
(* Assert Map Equals *)
let ame exp got =
  let printer m = CMap.sexp_of_t Int.sexp_of_t m |> Sexp.to_string_hum ~indent:1 in
  assert_equal exp got ~cmp:(CMap.equal (=)) ~printer

let tests =
  ["empty dna string has no adenine">::
    aie 0 (Nucleotide_count.count "" 'A');
   "empty dna string has no nucleotides">:: (fun _ ->
    let exp = CMap.empty in
    ame exp (Nucleotide_count.nucleotide_counts ""));
   "repetitive cytosine gets counted">::
    aie 5 (Nucleotide_count.count "CCCCC" 'C');
   "repetitive sequence has only guanine">:: (fun _ ->
    let exp = CMap.singleton 'G' 8 in
    ame exp (Nucleotide_count.nucleotide_counts "GGGGGGGG"));
   "counts only thymine">::
    aie 1 (Nucleotide_count.count "GGGGGTAACCCGG" 'T');
   "dna has no uracil">::
    aie 0 (Nucleotide_count.count "GATTACA" 'U');
   "counts all nucleotides">:: (fun _ ->
    let s = "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC" in
    let exp = CMap.of_alist_exn [('A', 20); ('T', 21); ('C', 12); ('G', 17)] in
    ame exp (Nucleotide_count.nucleotide_counts s))
  ]

let () =
  run_test_tt_main ("nucleotide-counts tests" >::: tests)

Version data entries

151 entries across 151 versions & 1 rubygems

Version	Path
trackler-2.2.1.90	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.89	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.88	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.87	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.86	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.85	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.84	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.83	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.82	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.81	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.80	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.79	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.78	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.77	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.76	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.75	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.74	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.73	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.72	tracks/ocaml/exercises/nucleotide-count/test.ml
trackler-2.2.1.71	tracks/ocaml/exercises/nucleotide-count/test.ml