testing/lisp/test-org-exp.el

   1 (ert-deftest test-org-exp/stripping-commas ()
   2   "Test the stripping of commas from within blocks during export."
   3   (org-test-at-id "76d3a083-67fa-4506-a41d-837cc48158b5"
   4     ;; don't strip internal commas
   5     (org-narrow-to-subtree)
   6     (should (string-match
   7              ", 2"
   8              (org-export-as-ascii nil nil nil 'string)))))