EVOLUTION-MANAGER

Edit File: items.el

;; Tests for operations on list items (add-to-list 'load-path ".") (load "init" nil t) (init-rst-ert t) (ert-deftest items-asserts () "Check some assertions." (should (equal ert-Buf-point-char "\^@")) (should (equal ert-Buf-mark-char "\^?")) ) (ert-deftest rst-convert-bullets-to-enumeration () "Tests `rst-convert-bullets-to-enumeration'." (should (ert-equal-buffer (rst-convert-bullets-to-enumeration) "\^@Normal paragraph. * A bullet * Another bullet Another normal paragraph. \^?" "\^@Normal paragraph. 1. A bullet 2. Another bullet Another normal paragraph. \^?" t)) (should (ert-equal-buffer (rst-convert-bullets-to-enumeration) "Normal paragraph. \^?* A bullet * Another bullet \^@Another normal paragraph. " "Normal paragraph. \^?1. A bullet 2. Another bullet \^@Another normal paragraph. " t)) (should (ert-equal-buffer (rst-convert-bullets-to-enumeration) "Normal paragraph. \^?* A bullet * Another bullet 1. A bullet 2. Another bullet \^@Another normal paragraph. " "Normal paragraph. \^?1. A bullet 2. Another bullet 3. A bullet 4. Another bullet \^@Another 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 (ert-equal-buffer (rst-convert-bullets-to-enumeration) "\^@Normal paragraph. * A bullet * Another bullet * A bullet * Another bullet Another normal paragraph. \^?" "\^@Normal paragraph. 1. A bullet 2. Another bullet * A bullet * Another bullet Another normal paragraph. \^?" t)) ) (ert-deftest rst-insert-list-continue () "Tests `rst-insert-list' when continuing a list." (should (ert-equal-buffer (rst-insert-list) "* Some text\^@\n" "* Some text * \^@\n")) (should (ert-equal-buffer (rst-insert-list) "* Some \^@text\n" "* Some text * \^@\n")) (should (ert-equal-buffer (rst-insert-list) "* \^@Some text\n" "* Some text * \^@\n")) (should (ert-equal-buffer (rst-insert-list) "* Some text - A deeper hyphen bullet\^@\n" "* Some text - A deeper hyphen bullet - \^@\n")) (should (ert-equal-buffer (rst-insert-list) "* Some text - \^@Some text\n" "* Some text - Some text - \^@\n")) (should (ert-equal-buffer (rst-insert-list) "1. Some text\^@\n" "1. Some text 2. \^@\n")) (should (ert-equal-buffer (rst-insert-list) "2. Some text\^@\n" "2. Some text 3. \^@\n")) (should (ert-equal-buffer (rst-insert-list) "a) Some text\^@\n" "a) Some text b) \^@\n")) (should (ert-equal-buffer (rst-insert-list) "(A) Some text\^@\n" "(A) Some text \(B) \^@\n")) (should (ert-equal-buffer (rst-insert-list) "(I) Some text\^@\n" "(I) Some text \(J) \^@\n")) (should (ert-equal-buffer (rst-insert-list) "(I) Some text\^@\n" "(I) Some text \(J) \^@\n")) (should (ert-equal-buffer (rst-insert-list) "(h) Some text \(i) Some text\^@\n" "(h) Some text \(i) Some text \(j) \^@\n")) (should (ert-equal-buffer (rst-insert-list t) "(i) Some text\^@\n" "(i) Some text \(ii) \^@\n")) (should (ert-equal-buffer (rst-insert-list) "(iv) Some text \(v) Some text\^@\n" "(iv) Some text \(v) Some text \(vi) \^@\n")) ) (ert-deftest rst-insert-list-continue-BUGS () "Exposes bugs in `rst-insert-list-continue'." :expected-result :failed ;; These are bugs (should (ert-equal-buffer (rst-insert-list) "(iv) Some text \(v) Some text\^@\n" "(iv) Some text \(v) Some text \(vi) \^@\n"))) (ert-deftest rst-insert-list-new () "Tests `rst-insert-list' when inserting a new list." (should (ert-equal-buffer (rst-insert-list) "\^@\n" "* \^@\n" '("*"))) (should (ert-equal-buffer (rst-insert-list) "\^@\n" "- \^@\n" '("-"))) (should (ert-equal-buffer (rst-insert-list) "\^@\n" "#. \^@\n" '("#."))) (should (ert-equal-buffer (rst-insert-list) "\^@\n" "5) \^@\n" '("1)" 5))) (should (ert-equal-buffer (rst-insert-list) "\^@\n" "(i) \^@\n" '("(i)" ""))) (should (ert-equal-buffer (rst-insert-list) "\^@\n" "IV. \^@\n" '("I." 4))) (should (ert-equal-buffer (rst-insert-list) "Some line\^@\n" "Some line IV. \^@\n" '("I." 4))) (should (ert-equal-buffer (rst-insert-list) "Some line \^@\n" "Some line IV. \^@\n" '("I." 4))) (should (ert-equal-buffer (rst-insert-list) "Some line \^@\n" "Some line IV. \^@\n" '("I." 4))) )