mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-org-export/activate-smart-quotes: Update tests 

* testing/lisp/test-ox.el: Fix inner French quotes.  See f099f84.
This commit is contained in:
Ihor Radchenko 2023-08-05 16:16:31 +03:00
parent 87b4de9617
commit e4f1274378
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/lisp/test-ox.el
View File

@ -4147,7 +4147,7 @@ This test does not cover listings and custom environments."
info)))))
;; Inner quotes: standard test.
(should
(equal '("« outer « inner » outer »")
(equal '("« outer “inner” outer »")
(let ((org-export-default-language "fr"))
(org-test-with-parsed-data "\"outer 'inner' outer\""
(org-element-map tree 'plain-text
@ -4155,14 +4155,14 @@ This test does not cover listings and custom environments."
info)))))
;; Inner quotes: close to special symbols.
(should
(equal '("« outer (« inner ») outer »")
(equal '("« outer (“inner”) outer »")
(let ((org-export-default-language "fr"))
(org-test-with-parsed-data "\"outer ('inner') outer\""
(org-element-map tree 'plain-text
(lambda (s) (org-export-activate-smart-quotes s :utf-8 info))
info)))))
(should
(equal '("« « inner » »")
(equal '("« “inner” »")
(let ((org-export-default-language "fr"))
(org-test-with-parsed-data "\"'inner'\""
(org-element-map tree 'plain-text