summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAchim Gratz <Stromeko@Stromeko.DE>2013-04-07 11:28:57 +0200
committerAchim Gratz <Stromeko@Stromeko.DE>2013-04-07 11:28:57 +0200
commit3aa78cf4bd55f97e80fad7664ab4b7270f8b28aa (patch)
tree0531a676a4dfd715005930b45bb2c3dbbc10b918
parent8ea49676434574e94b0ab3b28cc2c1c8941808fc (diff)
downloadorg-mode-3aa78cf4bd55f97e80fad7664ab4b7270f8b28aa.tar.gz
test-ob-perl: improve test coverage
testing/lisp/test-ob-perl.el (test-ob-perl/table-passthrough-colnames-nil), (test-ob-perl/table-passthrough-colnames-no): Make some table entries numbers for better test coverage.
-rw-r--r--testing/lisp/test-ob-perl.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/testing/lisp/test-ob-perl.el b/testing/lisp/test-ob-perl.el
index b77205c..a29d39a 100644
--- a/testing/lisp/test-ob-perl.el
+++ b/testing/lisp/test-ob-perl.el
@@ -47,30 +47,30 @@
(org-test-with-temp-text "#+name: eg
| col1 | col2 |
|------+------|
-| a | c |
-| b | d |
+| a | 1 |
+| b | 2.0 |
#+header: :colnames nil
#+header: :var x = eg
#+begin_src perl
#+end_src"
(org-babel-next-src-block)
- (should (equal '(("col1" "col2") hline ("a" "c") ("b" "d"))
+ (should (equal '(("col1" "col2") hline ("a" 1) ("b" 2.0))
(org-babel-execute-src-block)))))
(ert-deftest test-ob-perl/table-passthrough-colnames-no ()
(org-test-with-temp-text "#+name: eg
| col1 | col2 |
|------+------|
-| a | c |
-| b | d |
+| a | 1 |
+| b | 2.0 |
#+header: :colnames no
#+header: :var x = eg
#+begin_src perl
#+end_src"
(org-babel-next-src-block)
- (should (equal '(("col1" "col2") ("a" "c") ("b" "d"))
+ (should (equal '(("col1" "col2") ("a" 1) ("b" 2.0))
(org-babel-execute-src-block)))))
(provide 'test-ob-perl)