21 lines
886 B
Haskell
21 lines
886 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
||
module Main (main) where
|
||
import MyLib
|
||
import Test.Hspec
|
||
|
||
|
||
main :: IO ()
|
||
main = hspec $ do
|
||
describe "MyLib.cjksym(cjk)" $ do
|
||
it "converts symbols to fullwidth" $ do
|
||
applyRules myRules "你 : 好" `shouldBe` "你：好"
|
||
applyRules myRules "你.好" `shouldBe` "你。好"
|
||
applyRules myRules "你:好:他" `shouldBe` "你：好：他"
|
||
applyRules myRules "你 ? 好" `shouldBe` "你？好"
|
||
applyRules myRules "你…好" `shouldBe` "你… 好"
|
||
applyRules myRules "你...好" `shouldBe` "你... 好"
|
||
applyRules myRules "你:0" `shouldBe` "你：0"
|
||
applyRules myRules "我说:\" 他说:\'你好\'\"" `shouldBe` "我说：\"他说：\'你好\'\""
|
||
it "adds spaces" $ do
|
||
applyRules myRules "\'你好\'" `shouldBe` "\'你好\'"
|
||
applyRules myRules "你\'hello\'" `shouldBe` "你 \'hello\'" |