Minimal SQLite key-value store for OCaml
fix(E600): enforce test module conventions across packages
- ocaml-sqlite: merge generic_suite into suite, single export in .mli
- ocaml-tcpcl: add missing test_tcpcl.mli
- ocaml-tls: rename test_rng to mock_rng (helper, not test module)
- ocaml-tls: restructure test_tls_eio/unix stubs with test.ml runners
- ocaml-tomlt: restructure test_tomlt_{bytesrw,eio,unix} stubs with
test.ml runners and .mli files
+22
-22
+1
-1
test/test.ml
+1
-1
test/test.ml
+21
-20
test/test_sqlite.ml
+21
-20
test/test_sqlite.ml
···
711
711
Alcotest.(check int64) "sum of values" 60L sum;
712
712
Sqlite.close t
713
713
714
-
let generic_suite =
715
-
( "generic",
716
-
[
717
-
Alcotest.test_case "parse simple" `Quick test_parse_simple;
718
-
Alcotest.test_case "parse integer pk" `Quick
719
-
test_parse_integer_primary_key;
720
-
Alcotest.test_case "parse if not exists" `Quick test_parse_if_not_exists;
721
-
Alcotest.test_case "parse nested parens" `Quick test_parse_nested_parens;
722
-
Alcotest.test_case "parse table constraints" `Quick
723
-
test_parse_table_constraints;
724
-
Alcotest.test_case "parse no type" `Quick test_parse_no_type;
725
-
Alcotest.test_case "parse autoincrement" `Quick test_parse_autoincrement;
726
-
Alcotest.test_case "parse invalid" `Quick test_parse_invalid;
727
-
Alcotest.test_case "open no kv" `Quick test_open_no_kv;
728
-
Alcotest.test_case "read generic table" `Quick test_read_generic_table;
729
-
Alcotest.test_case "integer primary key" `Quick test_integer_primary_key;
730
-
Alcotest.test_case "tables lists all" `Quick test_tables_lists_all;
731
-
Alcotest.test_case "fold table" `Quick test_fold_table;
732
-
] )
733
-
734
714
let suite =
735
715
( "sqlite",
736
716
List.concat
···
793
773
Alcotest.test_case "overflow key length" `Quick test_cve_key_overflow;
794
774
Alcotest.test_case "boundary conditions" `Quick
795
775
test_cve_like_boundary_conditions;
776
+
];
777
+
[
778
+
Alcotest.test_case "parse simple" `Quick test_parse_simple;
779
+
Alcotest.test_case "parse integer pk" `Quick
780
+
test_parse_integer_primary_key;
781
+
Alcotest.test_case "parse if not exists" `Quick
782
+
test_parse_if_not_exists;
783
+
Alcotest.test_case "parse nested parens" `Quick
784
+
test_parse_nested_parens;
785
+
Alcotest.test_case "parse table constraints" `Quick
786
+
test_parse_table_constraints;
787
+
Alcotest.test_case "parse no type" `Quick test_parse_no_type;
788
+
Alcotest.test_case "parse autoincrement" `Quick
789
+
test_parse_autoincrement;
790
+
Alcotest.test_case "parse invalid" `Quick test_parse_invalid;
791
+
Alcotest.test_case "open no kv" `Quick test_open_no_kv;
792
+
Alcotest.test_case "read generic table" `Quick test_read_generic_table;
793
+
Alcotest.test_case "integer primary key" `Quick
794
+
test_integer_primary_key;
795
+
Alcotest.test_case "tables lists all" `Quick test_tables_lists_all;
796
+
Alcotest.test_case "fold table" `Quick test_fold_table;
796
797
];
797
798
] )