+5

test/dune

reviewed

··· 1 1 + (test 2 2 + (name test) 3 3 + (libraries yamlrw alcotest) 4 4 + (enabled_if 5 5 + (= %{context_name} "default")))

+5

test/eio/dune

reviewed

··· 1 1 + (test 2 2 + (name test) 3 3 + (libraries yamlrw yamlrw-eio alcotest eio_main) 4 4 + (enabled_if 5 5 + (= %{context_name} "default")))

+1

test/eio/test.ml

reviewed

··· 1 1 + let () = Alcotest.run "yamlrw_eio" [ Test_yamlrw_eio.suite ]

+1

test/eio/test_yamlrw_eio.ml

reviewed

··· 1 1 + let suite = ("yamlrw_eio", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/eio/test_yamlrw_eio.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the yamlrw_eio module. *)

+28

test/test.ml

reviewed

··· 1 1 + let () = 2 2 + Alcotest.run "yamlrw" 3 3 + [ 4 4 + Test_char_class.suite; 5 5 + Test_chomping.suite; 6 6 + Test_document.suite; 7 7 + Test_emitter.suite; 8 8 + Test_encoding.suite; 9 9 + Test_error.suite; 10 10 + Test_event.suite; 11 11 + Test_input.suite; 12 12 + Test_layout_style.suite; 13 13 + Test_loader.suite; 14 14 + Test_mapping.suite; 15 15 + Test_parser.suite; 16 16 + Test_position.suite; 17 17 + Test_quoting.suite; 18 18 + Test_scalar.suite; 19 19 + Test_scalar_style.suite; 20 20 + Test_scanner.suite; 21 21 + Test_sequence.suite; 22 22 + Test_serialize.suite; 23 23 + Test_span.suite; 24 24 + Test_tag.suite; 25 25 + Test_token.suite; 26 26 + Test_value.suite; 27 27 + Test_yaml.suite; 28 28 + ]

+1

test/test_char_class.ml

reviewed

··· 1 1 + let suite = ("char_class", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_char_class.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the char_class module. *)

+1

test/test_chomping.ml

reviewed

··· 1 1 + let suite = ("chomping", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_chomping.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the chomping module. *)

+1

test/test_document.ml

reviewed

··· 1 1 + let suite = ("document", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_document.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the document module. *)

+1

test/test_emitter.ml

reviewed

··· 1 1 + let suite = ("emitter", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_emitter.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the emitter module. *)

+1

test/test_encoding.ml

reviewed

··· 1 1 + let suite = ("encoding", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_encoding.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the encoding module. *)

+1

test/test_error.ml

reviewed

··· 1 1 + let suite = ("error", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_error.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the error module. *)

+1

test/test_event.ml

reviewed

··· 1 1 + let suite = ("event", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_event.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the event module. *)

+1

test/test_input.ml

reviewed

··· 1 1 + let suite = ("input", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_input.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the input module. *)

+1

test/test_layout_style.ml

reviewed

··· 1 1 + let suite = ("layout_style", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_layout_style.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the layout_style module. *)

+1

test/test_loader.ml

reviewed

··· 1 1 + let suite = ("loader", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_loader.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the loader module. *)

+1

test/test_mapping.ml

reviewed

··· 1 1 + let suite = ("mapping", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_mapping.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the mapping module. *)

+1

test/test_parser.ml

reviewed

··· 1 1 + let suite = ("parser", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_parser.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the parser module. *)

+1

test/test_position.ml

reviewed

··· 1 1 + let suite = ("position", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_position.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the position module. *)

+1

test/test_quoting.ml

reviewed

··· 1 1 + let suite = ("quoting", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_quoting.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the quoting module. *)

+1

test/test_scalar.ml

reviewed

··· 1 1 + let suite = ("scalar", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_scalar.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the scalar module. *)

+1

test/test_scalar_style.ml

reviewed

··· 1 1 + let suite = ("scalar_style", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_scalar_style.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the scalar_style module. *)

+1

test/test_scanner.ml

reviewed

··· 1 1 + let suite = ("scanner", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_scanner.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the scanner module. *)

+1

test/test_sequence.ml

reviewed

··· 1 1 + let suite = ("sequence", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_sequence.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the sequence module. *)

+1

test/test_serialize.ml

reviewed

··· 1 1 + let suite = ("serialize", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_serialize.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the serialize module. *)

+1

test/test_span.ml

reviewed

··· 1 1 + let suite = ("span", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_span.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the span module. *)

+1

test/test_tag.ml

reviewed

··· 1 1 + let suite = ("tag", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_tag.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the tag module. *)

+1

test/test_token.ml

reviewed

··· 1 1 + let suite = ("token", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_token.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the token module. *)

+1

test/test_value.ml

reviewed

··· 1 1 + let suite = ("value", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_value.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the value module. *)

+1

test/test_yaml.ml

reviewed

··· 1 1 + let suite = ("yaml", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/test_yaml.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the yaml module. *)

+5

test/unix/dune

reviewed

··· 1 1 + (test 2 2 + (name test) 3 3 + (libraries yamlrw yamlrw-unix alcotest) 4 4 + (enabled_if 5 5 + (= %{context_name} "default")))

+1

test/unix/test.ml

reviewed

··· 1 1 + let () = Alcotest.run "yamlrw_unix" [ Test_yamlrw_unix.suite ]

+1

test/unix/test_yamlrw_unix.ml

reviewed

··· 1 1 + let suite = ("yamlrw_unix", [ Alcotest.test_case "noop" `Quick ignore ])

+2

test/unix/test_yamlrw_unix.mli

reviewed

··· 1 1 + val suite : string * unit Alcotest.test_case list 2 2 + (** [suite] is the test suite for the yamlrw_unix module. *)

+6

tests/test.ml

reviewed

··· 1 1 + (*--------------------------------------------------------------------------- 2 2 + Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>. All rights reserved. 3 3 + SPDX-License-Identifier: ISC 4 4 + ---------------------------------------------------------------------------*) 5 5 + 6 6 + let () = Alcotest.run "yamlrw" [ Test_yamlrw.suite ]

+11

tests/test_suite_lib/json_compare.mli

reviewed

··· 1 1 + (*--------------------------------------------------------------------------- 2 2 + Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>. All rights reserved. 3 3 + SPDX-License-Identifier: ISC 4 4 + ---------------------------------------------------------------------------*) 5 5 + 6 6 + (** JSON string comparison utilities for test suite validation. *) 7 7 + 8 8 + val compare_json_strings : string -> string -> bool 9 9 + (** [compare_json_strings expected actual] compares two JSON strings for 10 10 + semantic equality, ignoring object key ordering. Returns [true] if the 11 11 + parsed JSON structures are equal. *)

+13

tests/test_suite_lib/json_format.mli

reviewed

··· 1 1 + (*--------------------------------------------------------------------------- 2 2 + Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>. All rights reserved. 3 3 + SPDX-License-Identifier: ISC 4 4 + ---------------------------------------------------------------------------*) 5 5 + 6 6 + (** JSON formatting utilities for YAML value output. *) 7 7 + 8 8 + val to_json : Yamlrw.Value.t -> string 9 9 + (** [to_json v] formats a YAML value as a JSON string. *) 10 10 + 11 11 + val documents_to_json : Yamlrw.Value.t list -> string 12 12 + (** [documents_to_json docs] formats multiple YAML documents as JSON strings 13 13 + separated by newlines. *)

+10

tests/test_suite_lib/tree_format.mli

reviewed

··· 1 1 + (*--------------------------------------------------------------------------- 2 2 + Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>. All rights reserved. 3 3 + SPDX-License-Identifier: ISC 4 4 + ---------------------------------------------------------------------------*) 5 5 + 6 6 + (** Event tree formatting for yaml-test-suite compatibility. *) 7 7 + 8 8 + val of_spanned_events : Yamlrw.Event.spanned list -> string 9 9 + (** [of_spanned_events events] formats a list of spanned parser events as a tree 10 10 + notation string compatible with the yaml-test-suite format. *)

+7

tests/test_yamlrw.mli

reviewed

··· 1 1 + (*--------------------------------------------------------------------------- 2 2 + Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>. All rights reserved. 3 3 + SPDX-License-Identifier: ISC 4 4 + ---------------------------------------------------------------------------*) 5 5 + 6 6 + val suite : string * unit Alcotest.test_case list 7 7 + (** [suite] is the test suite for the Yamlrw library. *)