[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 3541e4a 3/4: Merge branch 'master' of hyperbo
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/hyperbole 3541e4a 3/4: Merge branch 'master' of hyperbole |
|
Date: |
Sat, 29 May 2021 12:57:11 -0400 (EDT) |
branch: externals/hyperbole
commit 3541e4a63b383ecfa6801e59fc10f835cc1a3b58
Merge: f271ade a6a25b8
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>
Merge branch 'master' of hyperbole
---
ChangeLog | 11 +++
test/kotl-mode-tests.el | 225 ++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 236 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 312613d..0186a9d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -20,6 +20,17 @@
small remainder when cells at level 1 have labels longer
than the allowed indent.
+2021-05-24 Mats Lidell <matsl@gnu.org>
+
+* test/kotl-mode-tests.el (kotl-mode-extension-open-buffer-in-kotl-mode)
+ (kotl-mode-set-view-with-kbd, kotl-mode-idstamp-saved-with-file)
+ (kotl-mode-demote-keeps-idstamp, kotl-mode-demote-change-label)
+ (kotl-mode-views, kotl-mode-move-cell-before-cell)
+ (kotl-mode-move-cell-after-cell, kotl-mode-copy-cell-after-cell)
+ (kotl-mode-copy-cell-before-cell, kotl-mode-jump-to-cell)
+ (kotl-mode-goto-child-and-parent, kotl-mode-kill-cell): Add kotl-mode
+ tests.
+
2021-05-23 Bob Weiner <rsw@gnu.org>
* kotl/kotl-mode.el (kotl-mode:beginning-of-buffer,
diff --git a/test/kotl-mode-tests.el b/test/kotl-mode-tests.el
index 36c0d39..28f43fc 100644
--- a/test/kotl-mode-tests.el
+++ b/test/kotl-mode-tests.el
@@ -82,6 +82,231 @@
;; Cleanup
(set-buffer-modified-p nil)))
+(ert-deftest kotl-mode-extension-open-buffer-in-kotl-mode ()
+ "When a file with kotl extension is created it enters kotl mode."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl" "hej")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (should (equal major-mode 'kotl-mode)))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-set-view-with-kbd ()
+ "When the view mode is changed the label is changed too."
+ (skip-unless (not noninteractive))
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (should (string= (kcell-view:label (point)) "1"))
+ (should (hact 'kbd-key "C-c C-v 0 RET"))
+ (hy-test-helpers:consume-input-events)
+ (should (eq (kview:label-type kview) 'id))
+ (should (string= (kcell-view:label (point)) "01")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-idstamp-saved-with-file ()
+ "The active view mode is saved with the buffer."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+
+ ;; Verify default label
+ (should (string= (kcell-view:label (point)) "1"))
+
+ ;; Verify idstamp label
+ (kvspec:activate "ben0")
+ (should (eq (kview:label-type kview) 'id))
+ (should (string= (kcell-view:idstamp) "01"))
+ (should (string= (kcell-view:label (point)) "01"))
+
+ ;; Verify idstamp view is active when file is visited next time.
+ (set-buffer-modified-p t)
+ (save-buffer)
+ (kill-buffer)
+ (find-file kotl-file)
+ (should (eq (kview:label-type kview) 'id))
+ (should (string= (kcell-view:idstamp) "01"))
+ (should (string= (kcell-view:label (point)) "01")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-demote-keeps-idstamp ()
+ "When tree is demoted the idstamp label is not changed."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (kotl-mode:add-cell)
+
+ ;; Verify default label
+ (should (string= (kcell-view:idstamp) "02"))
+ (should (string= (kcell-view:label (point)) "2"))
+
+ ;; Verify idstamp label
+ (kvspec:activate "ben0")
+ (should (string= (kcell-view:idstamp) "02"))
+ (should (string= (kcell-view:label (point)) "02"))
+
+ ;; Verify demote does not change idstamp label
+ (kotl-mode:demote-tree 0)
+ (should (string= (kcell-view:idstamp) "02"))
+ (should (string= (kcell-view:label (point)) "02")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-demote-change-label ()
+ "When tree is demoted the label is changed."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (kotl-mode:add-cell)
+
+ ;; Verify default label
+ (should (string= (kcell-view:label (point)) "2"))
+
+ ;; Verify demote change label
+ (kotl-mode:demote-tree 0)
+ (should (string= (kcell-view:label (point)) "1a")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-label-type-activation ()
+ "Kotl-mode test label type activation."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (kotl-mode:add-cell)
+ (kotl-mode:demote-tree 0)
+
+ (should (string= (kcell-view:label (point)) "1a"))
+
+ (kvspec:activate "ben.")
+ (should (string= (kcell-view:label (point)) "1.1"))
+
+ (kvspec:activate "ben0")
+ (should (string= (kcell-view:label (point)) "02")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-move-cell-before-cell ()
+ "Move cell before cell."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (insert "first")
+ (kotl-mode:add-cell)
+ (insert "second")
+
+ (kotl-mode:move-before "2" "1" nil)
+ (kotl-mode:beginning-of-buffer)
+
+ (should (string= (kcell-view:label (point)) "1"))
+ (should (looking-at-p "second")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-move-cell-after-cell ()
+ "Move cell after cell."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (insert "first")
+ (kotl-mode:add-cell)
+ (insert "second")
+
+ (kotl-mode:beginning-of-buffer)
+ (kotl-mode:move-after "1" "2" nil)
+
+ (should (string= (kcell-view:label (point)) "2"))
+ (should (looking-at-p "first")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-copy-cell-after-cell ()
+ "Copy cell after cell."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (insert "first")
+ (kotl-mode:add-cell)
+ (insert "second")
+
+ (kotl-mode:beginning-of-buffer)
+ (kotl-mode:copy-after "1" "2" nil)
+
+ (should (string= (kcell-view:label (point)) "3"))
+ (should (looking-at-p "first")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-copy-cell-before-cell ()
+ "Copy cell after cell."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (insert "first")
+ (kotl-mode:add-cell)
+ (insert "second")
+
+ (kotl-mode:copy-before "2" "1" nil)
+
+ (should (string= (kcell-view:label (point)) "1"))
+ (should (looking-at-p "second")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-jump-to-cell ()
+ "Kotl-mode jump to cell."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (kotl-mode:add-cell)
+
+ (kotl-mode:goto-cell "1")
+ (should (string= (kcell-view:label (point)) "1"))
+
+ (kotl-mode:goto-cell "2")
+ (should (string= (kcell-view:label (point)) "2")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-goto-child-and-parent ()
+ "Kotl-mode goto child and goto parent."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (kotl-mode:add-child)
+
+ (should (string= (kcell-view:label (point)) "1a"))
+
+ (kotl-mode:up-level 1)
+ (should (string= (kcell-view:label (point)) "1"))
+
+ (kotl-mode:down-level 1)
+ (should (string= (kcell-view:label (point)) "1a")))
+ (delete-file kotl-file))))
+
+(ert-deftest kotl-mode-kill-cell ()
+ "Kotl-mode kill a cell test."
+ (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+ (unwind-protect
+ (progn
+ (find-file kotl-file)
+ (insert "first")
+ (kotl-mode:add-child)
+ (should (string= (kcell-view:label (point)) "1a"))
+
+ (kotl-mode:kill-tree)
+ (should (string= (kcell-view:label (point)) "1"))
+ (kotl-mode:beginning-of-cell)
+ (should (looking-at-p "first"))
+
+ (kotl-mode:kill-tree)
+ (kotl-mode:beginning-of-cell)
+ (should (looking-at-p "$")))
+ (delete-file kotl-file))))
+
(provide 'kotl-mode-tests)
;;; kotl-mode-tests.el ends here