gazagnaire.org / monopam-info
Build information library for monopam tools.
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

test: fill all 60 empty test suites with meaningful tests

monopam (399 tests, 0.26s):
- Pure modules: opam_transform, mono_lock, changes, changes_aggregated,
import, forks, cross_status, doctor, diff, fork_join, verse
- I/O modules: ctx, git_cli, opam_repo, feature, progress helpers

ocaml-claudeio (246 tests, 0.03s):
- Codec roundtrips: model, tool_input, err, permissions, control,
sdk_control, structured_output, content_block, message, incoming
- Builder patterns: options (17 with_* builders), hooks (4 event types)
- Pure helpers: handler dispatch, mcp_server, server_info, response

ocaml-tls (91 new tests, 0.05s):
- RFC 8446 test vectors: TLS 1.3 key schedule (early/handshake/master
secrets, traffic keys, finished keys, HKDF-Expand-Label)
- RFC 5246: TLS 1.2 PRF output length, label sensitivity, finished
computation (12 bytes per Section 7.4.9)
- Ciphersuite params: key/nonce lengths, hash mappings, forward secrecy
- Handshake validation: client_hello construction, server_hello_valid,
extension checks, ALPN negotiation, signature algorithm filtering
- Utils: List_set operations, sub_equal, init_and_last, first_match

Thomas Gazagnaire 63de00f7 5db1b4ab

+18 -1
+18 -1
test/test_monopam_info.ml
··· 1 - let suite = ("monopam_info", []) 1 + (* Tests for monopam_info *) 2 + 3 + let test_version_is_nonempty () = 4 + let v = Monopam_info.version in 5 + Alcotest.(check bool) "version is non-empty" true (String.length v > 0) 6 + 7 + let test_version_no_leading_whitespace () = 8 + let v = Monopam_info.version in 9 + let trimmed = String.trim v in 10 + Alcotest.(check string) "no leading/trailing whitespace" trimmed v 11 + 12 + let suite = 13 + ( "monopam_info", 14 + [ 15 + Alcotest.test_case "version non-empty" `Quick test_version_is_nonempty; 16 + Alcotest.test_case "version no whitespace" `Quick 17 + test_version_no_leading_whitespace; 18 + ] )