From 4257255de2a8e88d3f6c825591420a65e1fcfe4d Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Tue, 11 Nov 2025 17:51:50 +0000 Subject: [PATCH] fix test --- tests/NtfWPTests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/NtfWPTests.hs b/tests/NtfWPTests.hs index 482126661..8a5fcf180 100644 --- a/tests/NtfWPTests.hs +++ b/tests/NtfWPTests.hs @@ -81,7 +81,7 @@ testPNEncoding = do pnMess = pnM "MyMessage" enc pnCheck `shouldBe` "{\"checkMessages\":true}" enc pnVerif `shouldBe` "{\"verification\":\"YWJjZA==\"}" - enc pnMess `shouldBe` "{\"message\":\"smp://AAAA@l/AAAA 1761827386 bm9uY2UAAAAAAAAAAAAAAAAAAAAAAAAA TXlNZXNzYWdl\"}" + enc pnMess `shouldBe` "{\"checkMessages\":true}" where enc p = BL.toStrict $ encodeWPN p pnM :: B.ByteString -> PushNotification