diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-09-08 13:11:25 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-09-08 13:14:55 +0200 |
commit | 17013d6f380bf4079d0416e006b7333195c75721 (patch) | |
tree | 055906ccc555c89be6bfe5a13bae5619963a054f | |
parent | 289539e119fa755077f223de27d6f2c7995d642c (diff) | |
download | org-mode-17013d6f380bf4079d0416e006b7333195c75721.tar.gz |
Remove duplicate test
* testing/lisp/test-org-table.el (test-org-table/align): Remove test.
-rw-r--r-- | testing/lisp/test-org-table.el | 55 |
1 files changed, 21 insertions, 34 deletions
diff --git a/testing/lisp/test-org-table.el b/testing/lisp/test-org-table.el index b29ed88..d43a97d 100644 --- a/testing/lisp/test-org-table.el +++ b/testing/lisp/test-org-table.el @@ -154,40 +154,6 @@ ;; Lisp formula "#+TBLFM: @>$1 = '(+ @I..@>>); N :: $2 = '(* 2 $1); N")) -(ert-deftest test-org-table/align () - "Align columns within Org buffer, depends on `org-table-number-regexp'." - (org-test-table-target-expect " -| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | -| ab | 12 | 12.2 | 2.4e-08 | 2x10^12 | 4.034+-0.02 | 2.7(10) | >3.5 | -| ab | ab | ab | ab | ab | ab | ab | ab | -") - (org-test-table-target-expect " -| 0 | 0 | 0 | 0 | 0 | 0 | -| <-0x0ab.cf | >-36#0vw.yz | nan | uinf | -inf | inf | -| ab | ab | ab | ab | ab | ab | -")) - -(ert-deftest test-org-table/align-buffer-tables () - "Align all tables when updating buffer." - (let ((before " -| a b | - -| c d | -") - (after " -| a b | - -| c d | -")) - (should (equal (org-test-with-temp-text before - (org-table-recalculate-buffer-tables) - (buffer-string)) - after)) - (should (equal (org-test-with-temp-text before - (org-table-iterate-buffer-tables) - (buffer-string)) - after)))) - (defconst references/target-normal " | 0 | 1 | replace | replace | replace | replace | replace | replace | | z | 1 | replace | replace | replace | replace | replace | replace | @@ -1692,6 +1658,27 @@ See also `test-org-table/copy-field'." (let ((org-table-number-fraction 0.5)) (org-table-align)) (buffer-string))))) +(ert-deftest test-org-table/align-buffer-tables () + "Align all tables when updating buffer." + (let ((before " +| a b | + +| c d | +") + (after " +| a b | + +| c d | +")) + (should (equal (org-test-with-temp-text before + (org-table-recalculate-buffer-tables) + (buffer-string)) + after)) + (should (equal (org-test-with-temp-text before + (org-table-iterate-buffer-tables) + (buffer-string)) + after)))) + ;;; Sorting |