diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-09-06 21:58:51 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-09-06 21:58:51 -0600 |
commit | f1746a51185083b9368810d2d013e73332f90301 (patch) | |
tree | 09018d48eb0850cfbf8242c73bd30693520fdaac | |
parent | d0a3a3870f1d8e51d621890728c55ad9862371cb (diff) | |
download | org-mode-f1746a51185083b9368810d2d013e73332f90301.tar.gz |
test of comma stripping behavior
* testing/examples/org-exp.org: Example file for export tests.
* testing/lisp/test-org-exp.el (test-org-exp/stripping-commas): List
file for export tests.
-rw-r--r-- | testing/examples/org-exp.org | 14 | ||||
-rw-r--r-- | testing/lisp/test-org-exp.el | 8 |
2 files changed, 22 insertions, 0 deletions
diff --git a/testing/examples/org-exp.org b/testing/examples/org-exp.org new file mode 100644 index 0000000..e101335 --- /dev/null +++ b/testing/examples/org-exp.org @@ -0,0 +1,14 @@ +#+Title: a collection of examples for export tests +#+OPTIONS: ^:nil + +* stripping commas from within blocks on export + :PROPERTIES: + :ID: 76d3a083-67fa-4506-a41d-837cc48158b5 + :END: +The following commas should not be removed. + +#+begin_src r + a <- c(1 + , 2 + , 3) +#+end_src diff --git a/testing/lisp/test-org-exp.el b/testing/lisp/test-org-exp.el new file mode 100644 index 0000000..b7d7387 --- /dev/null +++ b/testing/lisp/test-org-exp.el @@ -0,0 +1,8 @@ +(ert-deftest test-org-exp/stripping-commas () + "Test the stripping of commas from within blocks during export." + (org-test-at-id "76d3a083-67fa-4506-a41d-837cc48158b5" + ;; don't strip internal commas + (org-narrow-to-subtree) + (should (string-match + ", 2" + (org-export-as-ascii nil nil nil 'string))))) |