diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/test_names.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/test_names.ml b/test/test_names.ml index 809d1c0..cef7357 100644 --- a/test/test_names.ml +++ b/test/test_names.ml @@ -111,6 +111,20 @@ let test_celebration () = let sexp = Cel.sexp_of_t sexp_of_demo_rank c in Alcotest.(check bool) "sexp roundtrip" true (Cel.t_of_sexp demo_rank_of_sexp sexp = c) +let test_celebration_status () = + let c = + Cel.make ~slug:(S.of_string_exn "telesphorus") ~rank:High ~colour:Col.Red + ~subject:Sub.Saint ~layer:"tridentine" () + in + Alcotest.(check bool) "defaults to Feast" true (c.Cel.status = Cel.Feast); + let k = + Cel.make ~slug:(S.of_string_exn "hyginus") ~rank:High ~colour:Col.Red + ~status:Cel.Commemoration_only ~subject:Sub.Saint ~layer:"tridentine" () + in + Alcotest.(check bool) "explicit status" true (k.Cel.status = Cel.Commemoration_only); + let sexp = Cel.sexp_of_t sexp_of_demo_rank k in + Alcotest.(check bool) "sexp roundtrip" true (Cel.t_of_sexp demo_rank_of_sexp sexp = k) + module Rec = Colitur_kernel.Record module Voc = Colitur_kernel.Vocab module Tmp = Colitur_kernel.Temporal @@ -174,4 +188,5 @@ let suite = Alcotest.test_case "date_spec sexp roundtrip" `Quick test_date_spec_sexp_roundtrip; Alcotest.test_case "date_spec sexp validates" `Quick test_date_spec_sexp_validates; Alcotest.test_case "celebration" `Quick test_celebration; + Alcotest.test_case "celebration status" `Quick test_celebration_status; Alcotest.test_case "record" `Quick test_record ] ) |