mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2025-03-14 09:45:42 +00:00
621b291da1
* core: member mentions, types and rfc * update * update rfc * save/get mentions (WIP) * markdown * store received mentions and userMention flag * sent mentions * update message with mentions * db queries * CLI mentions, test passes * use maps for mentions * tests * comment * save mentions on sent messages * postresql schema * refactor * M.empty * include both displayName and localAlias into MentionedMemberInfo * fix saving sent mentions * include mentions in previews * update plans
40 lines
1.6 KiB
Haskell
40 lines
1.6 KiB
Haskell
module ValidNames where
|
|
|
|
import Simplex.Chat.Library.Commands
|
|
import Test.Hspec
|
|
|
|
validNameTests :: Spec
|
|
validNameTests = describe "valid chat names" $ do
|
|
it "should keep valid and fix invalid names" testMkValidName
|
|
|
|
testMkValidName :: IO ()
|
|
testMkValidName = do
|
|
mkValidName "alice" `shouldBe` "alice"
|
|
mkValidName "алиса" `shouldBe` "алиса"
|
|
mkValidName "John Doe" `shouldBe` "John Doe"
|
|
mkValidName "J.Doe" `shouldBe` "J.Doe"
|
|
mkValidName "J. Doe" `shouldBe` "J. Doe"
|
|
mkValidName "J..Doe" `shouldBe` "J..Doe"
|
|
mkValidName "J ..Doe" `shouldBe` "J ..Doe"
|
|
mkValidName "J ... Doe" `shouldBe` "J ... Doe"
|
|
mkValidName "J .... Doe" `shouldBe` "J ... Doe"
|
|
mkValidName "J . . Doe" `shouldBe` "J . Doe"
|
|
mkValidName "@alice" `shouldBe` "alice"
|
|
mkValidName "#alice" `shouldBe` "alice"
|
|
mkValidName "'alice" `shouldBe` "alice"
|
|
mkValidName " alice" `shouldBe` "alice"
|
|
mkValidName "alice " `shouldBe` "alice"
|
|
mkValidName "John Doe" `shouldBe` "John Doe"
|
|
mkValidName "'John Doe'" `shouldBe` "John Doe"
|
|
mkValidName "\"John Doe\"" `shouldBe` "John Doe\""
|
|
mkValidName "`John Doe`" `shouldBe` "`John Doe`"
|
|
mkValidName "John \"Doe\"" `shouldBe` "John \"Doe\""
|
|
mkValidName "John `Doe`" `shouldBe` "John `Doe`"
|
|
mkValidName "alice/bob" `shouldBe` "alice/bob"
|
|
mkValidName "alice / bob" `shouldBe` "alice / bob"
|
|
mkValidName "alice /// bob" `shouldBe` "alice /// bob"
|
|
mkValidName "alice //// bob" `shouldBe` "alice /// bob"
|
|
mkValidName "alice >>= bob" `shouldBe` "alice >>= bob"
|
|
mkValidName "alice@example.com" `shouldBe` "alice@example.com"
|
|
mkValidName "alice <> bob" `shouldBe` "alice <> bob"
|
|
mkValidName "alice -> bob" `shouldBe` "alice -> bob"
|