mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2025-06-28 20:29:53 +00:00
28 lines
965 B
Haskell
28 lines
965 B
Haskell
|
module ValidNames where
|
||
|
|
|
||
|
|
import Simplex.Chat
|
||
|
|
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 "@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"
|