core, mobile: correctly check whether date is recent (#2559)

tests/Test.hs

@@ -8,6 +8,7 @@ import ProtocolTests
 import SchemaDump
 import Test.Hspec
 import UnliftIO.Temporary (withTempDirectory)
+import ViewTests
 import WebRTCTests
 
 main :: IO ()
@@ -15,6 +16,7 @@ main = do
   setLogLevel LogError -- LogDebug
   withGlobalLogging logCfg . hspec $ do
     describe "SimpleX chat markdown" markdownTests
+    describe "SimpleX chat view" viewTests
     describe "SimpleX chat protocol" protocolTests
     describe "WebRTC encryption" webRTCTests
     describe "Schema dump" schemaDumpTest

tests/ViewTests.hs

@@ -0,0 +1,86 @@
+{-# LANGUAGE BlockArguments #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module ViewTests where
+
+import Data.Time
+import Simplex.Chat.View
+import Test.Hspec
+
+viewTests :: Spec
+viewTests = do
+  testRecent
+
+testRecent :: Spec
+testRecent = describe "recent" $ do
+  let tz = hoursToTimeZone 1
+      now1159 = UTCTime (fromGregorian 2023 6 7) (secondsToDiffTime $ 10 * 3600 + 59 * 60) -- 11:59 in tz
+      now1200 = UTCTime (fromGregorian 2023 6 7) (secondsToDiffTime $ 11 * 3600) -- 12:00 in tz
+      today0000 = UTCTime (fromGregorian 2023 6 6) (secondsToDiffTime $ 23 * 3600) -- 00:00 in tz
+      today0600 = UTCTime (fromGregorian 2023 6 7) (secondsToDiffTime $ 5 * 3600) -- 06:00 in tz
+      today1200 = UTCTime (fromGregorian 2023 6 7) (secondsToDiffTime $ 11 * 3600) -- 12:00 in tz
+      today1800 = UTCTime (fromGregorian 2023 6 7) (secondsToDiffTime $ 17 * 3600) -- 18:00 in tz
+      today2359 = UTCTime (fromGregorian 2023 6 7) (secondsToDiffTime $ 22 * 3600 + 59 * 60) -- 23:59 in tz
+      yesterday0000 = UTCTime (fromGregorian 2023 6 5) (secondsToDiffTime $ 23 * 3600) -- 00:00 in tz
+      yesterday1759 = UTCTime (fromGregorian 2023 6 6) (secondsToDiffTime $ 16 * 3600 + 59 * 60) -- 17:59 in tz
+      yesterday1800 = UTCTime (fromGregorian 2023 6 6) (secondsToDiffTime $ 17 * 3600) -- 18:00 in tz
+      yesterday2359 = UTCTime (fromGregorian 2023 6 6) (secondsToDiffTime $ 22 * 3600 + 59 * 60) -- 23:59 in tz
+      sameDayLastMonth1900 = UTCTime (fromGregorian 2023 5 7) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+      prevDayLastMonth1900 = UTCTime (fromGregorian 2023 5 6) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+      sameDayLastYear1900 = UTCTime (fromGregorian 2022 6 7) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+      prevDayLastYear1900 = UTCTime (fromGregorian 2022 6 6) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+      tomorrow0000 = UTCTime (fromGregorian 2023 6 7) (secondsToDiffTime $ 23 * 3600) -- 00:00 in tz
+      tomorrow1759 = UTCTime (fromGregorian 2023 6 8) (secondsToDiffTime $ 16 * 3600 + 59 * 60) -- 17:59 in tz
+      tomorrow1800 = UTCTime (fromGregorian 2023 6 8) (secondsToDiffTime $ 17 * 3600) -- 18:00 in tz
+      tomorrow2359 = UTCTime (fromGregorian 2023 6 8) (secondsToDiffTime $ 22 * 3600 + 59 * 60) -- 23:59 in tz
+      sameDayNextMonth1900 = UTCTime (fromGregorian 2023 7 7) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+      prevDayNextMonth1900 = UTCTime (fromGregorian 2023 7 6) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+      sameDayNextYear1900 = UTCTime (fromGregorian 2024 6 7) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+      prevDayNextYear1900 = UTCTime (fromGregorian 2024 6 6) (secondsToDiffTime $ 18 * 3600) -- 19:00 in tz
+  test tz now1159 today0000 True
+  test tz now1159 today0600 True
+  test tz now1159 today1200 True
+  test tz now1159 today1800 True
+  test tz now1159 today2359 True
+  test tz now1159 yesterday0000 False
+  test tz now1159 yesterday1759 False
+  test tz now1159 yesterday1800 True
+  test tz now1159 yesterday2359 True
+  test tz now1159 sameDayLastMonth1900 False
+  test tz now1159 prevDayLastMonth1900 False
+  test tz now1159 sameDayLastYear1900 False
+  test tz now1159 prevDayLastYear1900 False
+  test tz now1159 tomorrow0000 False
+  test tz now1159 tomorrow1759 False
+  test tz now1159 tomorrow1800 False
+  test tz now1159 tomorrow2359 False
+  test tz now1159 sameDayNextMonth1900 False
+  test tz now1159 prevDayNextMonth1900 False
+  test tz now1159 sameDayNextYear1900 False
+  test tz now1159 prevDayNextYear1900 False
+
+  test tz now1200 today0000 True
+  test tz now1200 today0600 True
+  test tz now1200 today1200 True
+  test tz now1200 today1800 True
+  test tz now1200 today2359 True
+  test tz now1200 yesterday0000 False
+  test tz now1200 yesterday1759 False
+  test tz now1200 yesterday1800 False
+  test tz now1200 yesterday2359 False
+  test tz now1200 sameDayLastMonth1900 False
+  test tz now1200 prevDayLastMonth1900 False
+  test tz now1200 sameDayLastYear1900 False
+  test tz now1200 prevDayLastYear1900 False
+  test tz now1200 tomorrow0000 False
+  test tz now1200 tomorrow1759 False
+  test tz now1200 tomorrow1800 False
+  test tz now1200 tomorrow2359 False
+  test tz now1200 sameDayNextMonth1900 False
+  test tz now1200 prevDayNextMonth1900 False
+  test tz now1200 sameDayNextYear1900 False
+  test tz now1200 prevDayNextYear1900 False
+  where
+    test tz now time expected =
+      it ("returns " <> show expected <> " for time " <> show time <> " when time zone is " <> show tz <> " and current time is " <> show now) $
+        recent now tz time `shouldBe` expected