tools.editors.emacs.tests.items.el Maven / Gradle / Ivy
;; Tests for operations on list items
(add-to-list 'load-path ".")
(load "ert-support" nil t)
(ert-deftest rst-convert-bullets-to-enumeration ()
"Tests `rst-convert-bullets-to-enumeration'."
(should (equal buf-point-char "\0"))
(should (equal buf-mark-char "\177"))
(should (equal-buffer
'(rst-convert-bullets-to-enumeration)
"\0Normal paragraph.
* A bullet
* Another bullet
Another normal paragraph.
\177"
"\0Normal paragraph.
1. A bullet
2. Another bullet
Another normal paragraph.
\177" t))
(should (equal-buffer
'(rst-convert-bullets-to-enumeration)
"Normal paragraph.
\177* A bullet
* Another bullet
\0Another normal paragraph.
"
"Normal paragraph.
\1771. A bullet
2. Another bullet
\0Another normal paragraph.
" t))
(should (equal-buffer
'(rst-convert-bullets-to-enumeration)
"Normal paragraph.
\177* A bullet
* Another bullet
1. A bullet
2. Another bullet
\0Another normal paragraph.
"
"Normal paragraph.
\1771. A bullet
2. Another bullet
3. A bullet
4. Another bullet
\0Another normal paragraph.
" t))
)
(ert-deftest rst-convert-bullets-to-enumeration-BUGS ()
"Exposes bugs in `rst-convert-bullets-to-enumeration'."
:expected-result :failed ;; These are bugs
(should (equal-buffer
'(rst-convert-bullets-to-enumeration)
"\0Normal paragraph.
* A bullet
* Another bullet
* A bullet
* Another bullet
Another normal paragraph.
\177"
"\0Normal paragraph.
1. A bullet
2. Another bullet
* A bullet
* Another bullet
Another normal paragraph.
\177" t))
)
(ert-deftest rst-insert-list-continue ()
"Tests `rst-insert-list' when continuing a list."
(should (equal buf-point-char "\0"))
(should (equal-buffer
'(rst-insert-list)
"* Some text\0\n"
"* Some text
* \0\n"))
(should (equal-buffer
'(rst-insert-list)
"* Some \0text\n"
"* Some text
* \0\n"))
(should (equal-buffer
'(rst-insert-list)
"* \0Some text\n"
"* Some text
* \0\n"))
(should (equal-buffer
'(rst-insert-list)
"* Some text
- A deeper hyphen bullet\0\n"
"* Some text
- A deeper hyphen bullet
- \0\n"))
(should (equal-buffer
'(rst-insert-list)
"* Some text
- \0Some text\n"
"* Some text
- Some text
- \0\n"))
(should (equal-buffer
'(rst-insert-list)
"1. Some text\0\n"
"1. Some text
2. \0\n"))
(should (equal-buffer
'(rst-insert-list)
"2. Some text\0\n"
"2. Some text
3. \0\n"))
(should (equal-buffer
'(rst-insert-list)
"a) Some text\0\n"
"a) Some text
b) \0\n"))
(should (equal-buffer
'(rst-insert-list)
"(A) Some text\0\n"
"(A) Some text
\(B) \0\n"))
(should (equal-buffer
'(rst-insert-list)
"(I) Some text\0\n"
"(I) Some text
\(J) \0\n"))
(should (equal-buffer
'(rst-insert-list)
"(I) Some text\0\n"
"(I) Some text
\(J) \0\n"))
(should (equal-buffer
'(rst-insert-list)
"(h) Some text
\(i) Some text\0\n"
"(h) Some text
\(i) Some text
\(j) \0\n"))
(should (equal-buffer
'(rst-insert-list t)
"(i) Some text\0\n"
"(i) Some text
\(ii) \0\n"))
(should (equal-buffer
'(rst-insert-list)
"(iv) Some text
\(v) Some text\0\n"
"(iv) Some text
\(v) Some text
\(vi) \0\n"))
)
(ert-deftest rst-insert-list-continue-BUGS ()
"Exposes bugs in `rst-insert-list-continue'."
:expected-result :failed ;; These are bugs
(should (equal-buffer
'(rst-insert-list)
"(iv) Some text
\(v) Some text\0\n"
"(iv) Some text
\(v) Some text
\(vi) \0\n")))
(ert-deftest rst-insert-list-new ()
"Tests `rst-insert-list' when inserting a new list."
(should (equal buf-point-char "\0"))
(should (equal-buffer
'(rst-insert-list)
"\0\n"
"* \0\n" '("*")))
(should (equal-buffer
'(rst-insert-list)
"\0\n"
"- \0\n" '("-")))
(should (equal-buffer
'(rst-insert-list)
"\0\n"
"#. \0\n" '("#.")))
(should (equal-buffer
'(rst-insert-list)
"\0\n"
"5) \0\n" '("1)" 5)))
(should (equal-buffer
'(rst-insert-list)
"\0\n"
"(i) \0\n" '("(i)" "")))
(should (equal-buffer
'(rst-insert-list)
"\0\n"
"IV. \0\n" '("I." 4)))
(should (equal-buffer
'(rst-insert-list)
"Some line\0\n"
"Some line
IV. \0\n" '("I." 4)))
(should (equal-buffer
'(rst-insert-list)
"Some line
\0\n"
"Some line
IV. \0\n" '("I." 4)))
(should (equal-buffer
'(rst-insert-list)
"Some line
\0\n"
"Some line
IV. \0\n" '("I." 4)))
)