Sha256: 22316543912bc7249b71a513fbae17992f0e31a3c4fbb3c9d5f17fd384d50930

Contents?: true

Size: 1.74 KB

Versions: 150

Compression:

Stored size: 1.74 KB

Contents

(* Test/exercise version: "1.0.0" *)

open Core
open OUnit2
open Raindrops

let ae exp got _test_ctxt = assert_equal ~printer:Fn.id exp got

let tests = [
   "the sound for 1 is 1" >::
      ae "1" (raindrop 1);
   "the sound for 3 is Pling" >::
      ae "Pling" (raindrop 3);
   "the sound for 5 is Plang" >::
      ae "Plang" (raindrop 5);
   "the sound for 7 is Plong" >::
      ae "Plong" (raindrop 7);
   "the sound for 6 is Pling as it has a factor 3" >::
      ae "Pling" (raindrop 6);
   "2 to the power 3 does not make a raindrop sound as 3 is the exponent not the base" >::
      ae "8" (raindrop 8);
   "the sound for 9 is Pling as it has a factor 3" >::
      ae "Pling" (raindrop 9);
   "the sound for 10 is Plang as it has a factor 5" >::
      ae "Plang" (raindrop 10);
   "the sound for 14 is Plong as it has a factor of 7" >::
      ae "Plong" (raindrop 14);
   "the sound for 15 is PlingPlang as it has factors 3 and 5" >::
      ae "PlingPlang" (raindrop 15);
   "the sound for 21 is PlingPlong as it has factors 3 and 7" >::
      ae "PlingPlong" (raindrop 21);
   "the sound for 25 is Plang as it has a factor 5" >::
      ae "Plang" (raindrop 25);
   "the sound for 27 is Pling as it has a factor 3" >::
      ae "Pling" (raindrop 27);
   "the sound for 35 is PlangPlong as it has factors 5 and 7" >::
      ae "PlangPlong" (raindrop 35);
   "the sound for 49 is Plong as it has a factor 7" >::
      ae "Plong" (raindrop 49);
   "the sound for 52 is 52" >::
      ae "52" (raindrop 52);
   "the sound for 105 is PlingPlangPlong as it has factors 3, 5 and 7" >::
      ae "PlingPlangPlong" (raindrop 105);
   "the sound for 3125 is Plang as it has a factor 5" >::
      ae "Plang" (raindrop 3125);
]

let () =
  run_test_tt_main ("raindrops tests" >::: tests)

Version data entries

150 entries across 150 versions & 1 rubygems

Version Path
trackler-2.2.1.69 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.68 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.67 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.66 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.65 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.64 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.63 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.62 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.61 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.60 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.59 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.58 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.57 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.56 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.55 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.54 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.53 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.52 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.51 tracks/ocaml/exercises/raindrops/test.ml
trackler-2.2.1.50 tracks/ocaml/exercises/raindrops/test.ml