summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-09-06 21:58:51 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-09-06 21:58:51 -0600
commitf1746a51185083b9368810d2d013e73332f90301 (patch)
tree09018d48eb0850cfbf8242c73bd30693520fdaac
parentd0a3a3870f1d8e51d621890728c55ad9862371cb (diff)
downloadorg-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.org14
-rw-r--r--testing/lisp/test-org-exp.el8
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)))))