OCaml implementation of the Mozilla Public Suffix service
Update README.md package index
+3
-3
+1
-1
test/cmd/test_publicsuffix_cmd.ml
+1
-1
test/cmd/test_publicsuffix_cmd.ml
···
46
46
let term = Publicsuffix_cmd.registrable_term psl in
47
47
match eval_term_with_domain term "com" with
48
48
| Some (Error Publicsuffix.Domain_is_public_suffix) -> ()
49
-
| Some (Ok v) -> fail (Fmt.str "expected error, got Ok %S" v)
49
+
| Some (Ok v) -> failf "expected error, got Ok %S" v
50
50
| Some (Error e) -> fail (Publicsuffix.error_to_string e)
51
51
| None -> fail "term evaluation failed"
52
52
+2
-2
test/test_publicsuffix.ml
+2
-2
test/test_publicsuffix.ml
···
26
26
27
27
let check_err msg expected_err f =
28
28
match f () with
29
-
| Ok v -> fail (Fmt.str "%s: expected error, got Ok %S" msg v)
29
+
| Ok v -> failf "%s: expected error, got Ok %S" msg v
30
30
| Error e ->
31
31
check string msg
32
32
(Publicsuffix.error_to_string expected_err)
···
34
34
35
35
let check_err_bool msg expected_err f =
36
36
match f () with
37
-
| Ok v -> fail (Fmt.str "%s: expected error, got Ok %b" msg v)
37
+
| Ok v -> failf "%s: expected error, got Ok %b" msg v
38
38
| Error e ->
39
39
check string msg
40
40
(Publicsuffix.error_to_string expected_err)