diff options
author | Achim Gratz <Stromeko@Stromeko.DE> | 2013-04-07 11:28:57 +0200 |
---|---|---|
committer | Achim Gratz <Stromeko@Stromeko.DE> | 2013-04-07 11:28:57 +0200 |
commit | 3aa78cf4bd55f97e80fad7664ab4b7270f8b28aa (patch) | |
tree | 0531a676a4dfd715005930b45bb2c3dbbc10b918 | |
parent | 8ea49676434574e94b0ab3b28cc2c1c8941808fc (diff) | |
download | org-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.el | 12 |
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) |