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

(*
 * 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

let tests =
  "semver"
  >::: [
         "satisfies"
         >::: [
                ( "greater_than_major" >:: fun ctxt ->
                  let cases =
                    [
                      (">2", "2", false);
                      (">2", "2.0", false);
                      (">2", "2.1", true);
                      (">2", "3", true);
                      (">2", "3.0", true);
                      (">2", "11.0", true);
                    ]
                  in
                  List.iter
                    (fun (range, version, satisfies) ->
                      assert_equal ~ctxt satisfies (Semver.satisfies range version))
                    cases );
              ];
         Semver_parser_test.tests;
         Semver_range_test.tests;
         Semver_version_test.tests;
       ]

let () = run_test_tt_main tests