sxlxc/pangu.hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

z

Browse Source
This commit is contained in:
Yu Cong
2026-01-02 22:25:32 +08:00
parent 0f8ce47fa1
commit a2ea14dde2
2 changed files with 76 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/Main.hs
View File

@@ -6,8 +6,15 @@ import Test.Hspec
main :: IO ()
main = hspec $ do
describe "MyLib.cjksymcjk" $ do
it "converts symbols between CJK characters to fullwidth" $ 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 "你...好" `shouldBe` "你... 好"
applyRules myRules "你:0" `shouldBe` "你：0"
-- applyRules myRules "我说:\" 他说:\'你好\'\"" `shouldBe` "我说：“他说：‘你好’”"
it "adds spaces" $ do
applyRules myRules "\'你好\'" `shouldBe` "\' 你好 \'"