Add support for inline src-block

DamienCassou · Mar 19, 2024 · 6781545 · 6781545
1 parent eab4732
commit 6781545
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/test/ox-linuxmag-fr-tests.el b/test/ox-linuxmag-fr-tests.el
@@ -48,7 +48,8 @@ Make the buffer containing the result current.
 
 OX-LINUXMAG-FR-FIGURE-FILES and OX-LINUXMAG-FR-OTHER-FILES are
 hashtables.  OX-LINUXMAG-FR-BASENAME is a string."
-  (let* ((xml-content (with-temp-buffer
+  (let* ((org-confirm-babel-evaluate nil)
+         (xml-content (with-temp-buffer
                         (unless (string-prefix-p "#+title:" string)
                           (insert ox-linuxmag-fr-tests-default-preamble)
                           (insert "\n"))
@@ -59,7 +60,8 @@ hashtables.  OX-LINUXMAG-FR-BASENAME is a string."
                                              :ox-linuxmag-fr-other-files
                                              ox-linuxmag-fr-other-files
                                              :ox-linuxmag-fr-basename
-                                             ox-linuxmag-fr-basename))))
+                                             ox-linuxmag-fr-basename
+                                             :with-latex 'verbatim))))
          (buffer (get-buffer-create "*ox-linuxmag-fr-test*")))
     (switch-to-buffer buffer)
     (erase-buffer)
@@ -116,6 +118,10 @@ hashtables.  OX-LINUXMAG-FR-BASENAME is a string."
   (ox-linuxmag-fr-tests-export "Test =foo=")
   (should (ox-linuxmag-fr-tests-contain "Test <text:span text:style-name=\"code_5f_par\">foo</text:span>")))
 
+(ert-deftest ox-linuxmag-fr-tests-inline-src-block ()
+  (ox-linuxmag-fr-tests-export "Test src_sh{echo foo}")
+  (should (ox-linuxmag-fr-tests-contain "Test <text:span text:style-name=\"code_5f_par\">foo</text:span>")))
+
 (ert-deftest ox-linuxmag-fr-tests-headline-numbered ()
   (ox-linuxmag-fr-tests-export "* Titre 1\n** Titre 1.1")
   (should (ox-linuxmag-fr-tests-contain "<text:h text:style-name=\"Heading_20_1\">1. Titre 1</text:h>"))