Move version pprint into Version module

This commit is contained in:
Bryan Bennett 2024-06-18 06:54:12 -04:00
parent 33aa9228e2
commit 081ed58524
No known key found for this signature in database
GPG key ID: EE149E4215408DE9
2 changed files with 5 additions and 12 deletions

View file

@ -1,18 +1,7 @@
open Lib;
let pprint = (pp_fmt, version) => {
Versions.(
Fmt.pf(
pp_fmt,
"{ major: %d, minor: %d, point: %d }",
version.major,
version.minor,
version.point,
)
);
};
let testable_version =
Alcotest.testable(pprint, (a, b) => Versions.compare(a, b) == 0);
Alcotest.testable(Versions.pprint, (a, b) => Versions.compare(a, b) == 0);
let check_version =
Alcotest.(check(Alcotest.result(testable_version, string)));