tree-sitter-ocaml 0.16.0

OCaml grammar for the tree-sitter parsing library
Documentation 
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

(*
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

open OUnit2
open Lwt_test_utils

let tests =
  "LwtTimeout.with_timeout"
  >::: [
         ( "no_timeout" %>:: fun ctxt ->
           let on_timeout_called = ref false in
           let on_timeout () =
             on_timeout_called := true;
             Lwt.return_unit
           in
           let workload () = Lwt.return (Ok 5) in
           let%lwt result = LwtTimeout.with_timeout ~on_timeout 10.0 workload in
           assert_equal ~ctxt result (Ok 5);
           assert_equal ~ctxt !on_timeout_called false;
           Lwt.return_unit );
         ( "no_timeout_error" %>:: fun ctxt ->
           let on_timeout_called = ref false in
           let on_timeout () =
             on_timeout_called := true;
             Lwt.return_unit
           in
           let workload () = Lwt.return (Error "foo") in
           let%lwt result = LwtTimeout.with_timeout ~on_timeout 10.0 workload in
           assert_equal ~ctxt result (Error "foo");
           assert_equal ~ctxt !on_timeout_called false;
           Lwt.return_unit );
         ( "timeout" %>:: fun ctxt ->
           let on_timeout_called = ref false in
           let on_timeout () =
             on_timeout_called := true;
             Lwt.return_unit
           in
           let workload () =
             let%lwt () = Lwt_unix.sleep 10.0 in
             Lwt.return (Ok 5)
           in
           let%lwt result = LwtTimeout.with_timeout ~on_timeout 0.1 workload in
           assert_equal ~ctxt result (Error "Operation timed out");
           assert_equal ~ctxt !on_timeout_called true;
           Lwt.return_unit );
         ( "timeout_custom_msg" %>:: fun ctxt ->
           let timeout_msg = "Custom message" in
           let on_timeout_called = ref false in
           let on_timeout () =
             on_timeout_called := true;
             Lwt.return_unit
           in
           let workload () =
             let%lwt () = Lwt_unix.sleep 10.0 in
             Lwt.return (Ok 5)
           in
           let%lwt result = LwtTimeout.with_timeout ~timeout_msg ~on_timeout 0.1 workload in
           assert_equal ~ctxt result (Error timeout_msg);
           assert_equal ~ctxt !on_timeout_called true;
           Lwt.return_unit );
         ( "timeout_no_callback" %>:: fun ctxt ->
           let workload () =
             let%lwt () = Lwt_unix.sleep 10.0 in
             Lwt.return (Ok 5)
           in
           let%lwt result = LwtTimeout.with_timeout 0.1 workload in
           assert_equal ~ctxt result (Error "Operation timed out");
           Lwt.return_unit );
       ]