From e4f1274378fc4928d7802e1bfba2a944f502c35c Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 5 Aug 2023 16:16:31 +0300 Subject: [PATCH] test-org-export/activate-smart-quotes: Update tests * testing/lisp/test-ox.el: Fix inner French quotes. See f099f84. --- testing/lisp/test-ox.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index 99f5c0f0f..9e747751a 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -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