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

quotes

Browse Source
This commit is contained in:
Yu Cong
2026-01-03 03:01:25 +08:00
parent a2ea14dde2
commit 792bbc80c6
2 changed files with 23 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test/Main.hs
View File

@@ -15,6 +15,7 @@ main = hspec $ do
applyRules myRules "你…好" `shouldBe` "你… 好"
applyRules myRules "你...好" `shouldBe` "你... 好"
applyRules myRules "你:0" `shouldBe` "你：0"
-- applyRules myRules "我说:\" 他说:\'你好\'\"" `shouldBe` "我说：“他说：‘你好’”"
applyRules myRules "我说:\" 他说:\'你好\'\"" `shouldBe` "我说：\"他说：\'你好\'\""
it "adds spaces" $ do
applyRules myRules "\'你好\'" `shouldBe` "\' 你好 \'"
applyRules myRules "\'你好\'" `shouldBe` "\'你好\'"
applyRules myRules "你\'hello\'" `shouldBe` "你 \'hello\'"