1
exercism fetch ocaml acronym

test.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(* Test/exercise version: "1.1.0" *)

open Core
open OUnit2
open Acronym

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

let tests = [
  "basic" >::
    ae "PNG" (acronym "Portable Network Graphics");
  "lowercase words" >::
    ae "ROR" (acronym "Ruby on Rails");
  "punctuation" >::
    ae "FIFO" (acronym "First In, First Out");
  "all caps words" >::
    ae "PHP" (acronym "PHP: Hypertext Preprocessor");
  "non-acronym all caps word" >::
    ae "GIMP" (acronym "GNU Image Manipulation Program");
  "hyphenated" >::
    ae "CMOS" (acronym "Complementary metal-oxide semiconductor");
]

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