bram/plantuml-mode
1
0
Fork 0
Code Activity

minor code formatting stuff

Browse source
This commit is contained in:
Carlo Sciolla 2019-01-07 22:05:14 +01:00
parent ae97b806bc
commit 6c0b9634bd
No known key found for this signature in database
GPG key ID: BA5D71E6F3C580C1
1 changed files with 12 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
test/plantuml-indentation-test.el
View file

@ -38,8 +38,7 @@ activate p1
foo foo
deactivate p2 deactivate p2
deactivate p1 deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_0 () (ert-deftest plantuml-test-current-block-depth_0 ()
"Test `plantuml-current-block-depth' level 0 at beginning of first line." "Test `plantuml-current-block-depth' level 0 at beginning of first line."
@ -52,8 +51,7 @@ deactivate p1
foo foo
deactivate p2 deactivate p2
deactivate p1 deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_1 () (ert-deftest plantuml-test-current-block-depth_1 ()
"Test `plantuml-current-block-depth' level 0 at middle of first line." "Test `plantuml-current-block-depth' level 0 at middle of first line."
@ -66,8 +64,7 @@ acti|vate p1
foo foo
deactivate p2 deactivate p2
deactivate p1 deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_2 () (ert-deftest plantuml-test-current-block-depth_2 ()
"Test `plantuml-current-block-depth' level 0 at end of first line" "Test `plantuml-current-block-depth' level 0 at end of first line"
@ -80,8 +77,7 @@ activate p1|
foo foo
deactivate p2 deactivate p2
deactivate p1 deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_3 () (ert-deftest plantuml-test-current-block-depth_3 ()
"Test `plantuml-current-block-depth' level 1 at beginning of 2nd line." "Test `plantuml-current-block-depth' level 1 at beginning of 2nd line."
@ -92,8 +88,7 @@ activate p1
foo foo
deactivate p2 deactivate p2
deactivate p1 deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_4 () (ert-deftest plantuml-test-current-block-depth_4 ()
"Test `plantuml-current-block-depth' level 2 at beginning of 3rd line." "Test `plantuml-current-block-depth' level 2 at beginning of 3rd line."
@ -104,8 +99,7 @@ activate p1
|foo |foo
deactivate p2 deactivate p2
deactivate p1 deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_5 () (ert-deftest plantuml-test-current-block-depth_5 ()
"Test `plantuml-current-block-depth' level 1 at beginning of 4th line." "Test `plantuml-current-block-depth' level 1 at beginning of 4th line."
@ -116,8 +110,7 @@ activate p1
foo foo
|deactivate p2 |deactivate p2
deactivate p1 deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_6 () (ert-deftest plantuml-test-current-block-depth_6 ()
"Test `plantuml-current-block-depth' level 0 at beginning of 5th line." "Test `plantuml-current-block-depth' level 0 at beginning of 5th line."
@ -128,8 +121,7 @@ activate p1
foo foo
deactivate p2 deactivate p2
|deactivate p1 |deactivate p1
") "))
)
(ert-deftest plantuml-test-current-block-depth_eob () (ert-deftest plantuml-test-current-block-depth_eob ()
"Test `plantuml-current-block-depth' level 0 at end of buffer." "Test `plantuml-current-block-depth' level 0 at end of buffer."
@ -140,8 +132,7 @@ activate p1
foo foo
deactivate p2 deactivate p2
deactivate p1 deactivate p1
|") |"))
)
(defun plantuml-test-indent-line (before after) (defun plantuml-test-indent-line (before after)
"The common code for the line indentation tests. "The common code for the line indentation tests.
@ -160,9 +151,8 @@ Finally,
2) the position of point in the indented line will be compared with 2) the position of point in the indented line will be compared with
the position of | in AFTER." the position of | in AFTER."
(let* ( (expected-cursor-pos (1+ (s-index-of "|" after))) (let* ((expected-cursor-pos (1+ (s-index-of "|" after)))
(expected-state (delete ?| after)) (expected-state (delete ?| after)))
)
(with-temp-buffer (with-temp-buffer
;; fix the JAR location prior to mode initialization ;; fix the JAR location prior to mode initialization
;; for some reason, plantuml-mode disregards the setq-local ;; for some reason, plantuml-mode disregards the setq-local
@ -290,8 +280,7 @@ Finally, the indented text in the buffer will be compared with AFTER."
(setq-local tab-width 2) (setq-local tab-width 2)
(indent-region (point-min) (point-max)) (indent-region (point-min) (point-max))
(should (equal (buffer-string) after)) (should (equal (buffer-string) after))))
))
(ert-deftest plantuml-test-block-indentation/package-empty () (ert-deftest plantuml-test-block-indentation/package-empty ()
"Test correct indentation of an empty package block." "Test correct indentation of an empty package block."