59 lines
1.6 KiB
OCaml
59 lines
1.6 KiB
OCaml
|
open Stdune
|
||
|
|
module Persistent = Dune_util.Persistent
|
||
|
|
module Digest = Dune_digest
|
||
|
|
|
||
|
|
let test (type a) (module Persistent : Persistent.Desc with type t = a) (example : a) =
|
||
|
|
let digest = Digest.generic example |> Digest.to_string in
|
||
|
|
printfn "%s version %d\n%s\n---\n" Persistent.name Persistent.version digest
|
||
|
|
;;
|
||
|
|
|
||
|
|
let%expect_test "persistent digests" =
|
||
|
|
Persistent.test_examples ()
|
||
|
|
(* These digests are to make sure that we're bumping the version whenever we
|
||
|
|
change the format of the values stored with [Persistent].
|
||
|
|
|
||
|
|
The usual workflow goes something like this:
|
||
|
|
|
||
|
|
1. The format of [Persistent.t] changes
|
||
|
|
2. The new value is reflected by the value returned [test_example]
|
||
|
|
3. The digest in this test suite changes and the test therefore fails
|
||
|
|
|
||
|
|
To fix the test, the correct thing to do is to bump the appropriate
|
||
|
|
version number where the persistent module is defined *)
|
||
|
|
|> Stdlib.Seq.iter (fun (Persistent.T (desc, example)) -> test desc example);
|
||
|
|
[%expect
|
||
|
|
{|
|
||
|
|
PROMOTED-TO-DELETE version 3
|
||
|
|
65e543aaf5ccc8148d50a1305aa3622b
|
||
|
|
---
|
||
|
|
|
||
|
|
DIGEST-DB version 7
|
||
|
|
48031a13035ffa6b93b6b79ce277d39c
|
||
|
|
---
|
||
|
|
|
||
|
|
INSTALL-COOKIE version 2
|
||
|
|
da4ce847dd41df462849adecfe43f4eb
|
||
|
|
---
|
||
|
|
|
||
|
|
TO-PROMOTE version 3
|
||
|
|
f2d6070d92c27497a6c2d89782d81c99
|
||
|
|
---
|
||
|
|
|
||
|
|
COPY-LINE-DIRECTIVE-MAP version 2
|
||
|
|
72eb282c39bb084e69d6bd1615b8aaec
|
||
|
|
---
|
||
|
|
|
||
|
|
CRAM-RESULT version 1
|
||
|
|
65e543aaf5ccc8148d50a1305aa3622b
|
||
|
|
---
|
||
|
|
|
||
|
|
merlin-conf version 7
|
||
|
|
a14a4700929a15bb2030e36f71e66d20
|
||
|
|
---
|
||
|
|
|
||
|
|
INCREMENTAL-DB version 6
|
||
|
|
5d401c8cac2683cee736494457885f1f
|
||
|
|
---
|
||
|
|
|}]
|
||
|
|
;;
|