From e4b8b1f6f2c2e441602573c1e371500833b11f87 Mon Sep 17 00:00:00 2001 From: slotThe Date: Tue, 10 Aug 2021 10:25:17 +0200 Subject: [PATCH] Tests: Add tests for OrgMode regressions Add regression tests to make sure we keep the behaviour fixed by 97aeaf11c10a0f38b4cd1df4726a10bb9188f4ca. Related: https://github.com/xmonad/xmonad-contrib/issues/584 --- tests/OrgMode.hs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tests/OrgMode.hs b/tests/OrgMode.hs index b4dbe0fa..6db8cad5 100644 --- a/tests/OrgMode.hs +++ b/tests/OrgMode.hs @@ -22,6 +22,14 @@ spec = do prop "prop_encodeLinearity" prop_encodeLinearity prop "prop_decodeLinearity" prop_decodeLinearity + -- Checking for regressions + context "+d +d f" $ do + it "encode" $ prop_encodeLinearity (OrgMsg "+d +d f") + it "decode" $ prop_decodeLinearity (Deadline "+d" (Time {date = Next Friday, tod = Nothing})) + context "+d f 1 +d f" $ do + it "encode" $ prop_encodeLinearity (OrgMsg "+d f 1 +d f") + it "decode" $ prop_decodeLinearity (Deadline "+d f 1" (Time {date = Next Friday, tod = Nothing})) + -- | Printing omits no information from output. prop_encodeLinearity :: OrgMsg -> Property prop_encodeLinearity (OrgMsg s) = Just s === (ppNote <$> pInput s)