diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-13 12:27:23 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-13 12:27:23 -0800 |
| commit | 028a605bf80fbdd54ed22cab56b2ce88cde2d89c (patch) | |
| tree | a0e18777fc831a0089b0f112ea76cd23f568c076 /tests/Tests | |
| parent | 03ea42058999f121cd39410a7d25376481653bce (diff) | |
| parent | 220f3d12b804a8baa188e9c7174707d3cb0316e1 (diff) | |
Merge pull request #2525 from tarleb/org-smart-fixes
Org reader: Fix emphasis rules for smart parsing
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 05d206d85..02d2fb696 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -1246,6 +1246,7 @@ tests = ] in codeBlockWith ( "", classes, params) "code body\n" ] + , testGroup "Smart punctuation" [ test orgSmart "quote before ellipses" ("'...hi'" @@ -1266,5 +1267,13 @@ tests = , test orgSmart "Dashes are allowed at the borders of emphasis'" ("/foo---/" =?> para (emph "foo—")) + + , test orgSmart "Single quotes can be followed by emphasized text" + ("Singles on the '/meat market/'" =?> + para ("Singles on the " <> (singleQuoted $ emph "meat market"))) + + , test orgSmart "Double quotes can be followed by emphasized text" + ("Double income, no kids: \"/DINK/\"" =?> + para ("Double income, no kids: " <> (doubleQuoted $ emph "DINK"))) ] ] |