|
33 | 33 | (simple-paren-parentize 1)
|
34 | 34 | (should (eq (char-after) ?\)))))
|
35 | 35 |
|
36 |
| -(ert-deftest simple-paren--elisp-parentize-test-2 () |
37 |
| - (simple-paren-test-with-elisp-buffer |
38 |
| - "asdf" |
39 |
| - (set-mark (point)) |
40 |
| - (goto-char (point-min)) |
41 |
| - (simple-paren-parentize '(4)) |
42 |
| - (goto-char (point-max)) |
43 |
| - (should (eq (char-before) ?\))))) |
44 |
| - |
45 | 36 | (ert-deftest simple-paren--elisp-colon-test-1 ()
|
46 | 37 | (simple-paren-test-with-elisp-buffer
|
47 | 38 | "asdf"
|
|
67 | 58 | (should (eq (char-before) ?\"))
|
68 | 59 | (should (eq (char-after) ?\"))))
|
69 | 60 |
|
70 |
| -(ert-deftest simple-paren--elisp-doublequote-test-fk7ByP () |
71 |
| - (simple-paren-test-with-elisp-buffer |
72 |
| - " foo " |
73 |
| - (set-mark (point)) |
74 |
| - (goto-char (point-min)) |
75 |
| - (simple-paren-doublequote '(4)) |
76 |
| - (goto-char (point-max)) |
77 |
| - (sit-for 0.1) |
78 |
| - ;; (should (looking-back "\" foo \"" (line-beginning-position))) |
79 |
| - (should (eq (char-before) 34)) |
80 |
| - (should (eq 8 (point))) |
81 |
| - )) |
82 |
| - |
83 |
| -(ert-deftest simple-paren--elisp-doublequote-test-FivewW () |
84 |
| - (simple-paren-test-with-elisp-buffer |
85 |
| - " foo" |
86 |
| - (set-mark (point)) |
87 |
| - (goto-char (point-min)) |
88 |
| - (simple-paren-doublequote '(4)) |
89 |
| - (goto-char (point-max)) |
90 |
| - (sit-for 0.1) |
91 |
| - (should (eq (char-before) 34)) |
92 |
| - ;; (should (looking-back "\" foo \"" (line-beginning-position))) |
93 |
| - )) |
94 |
| - |
95 | 61 | (ert-deftest simple-paren--elisp-paren-test-1 ()
|
96 | 62 | (simple-paren-test-with-elisp-buffer
|
97 | 63 | "()"
|
|
121 | 87 | (simple-paren-parentize 1)
|
122 | 88 | (should (eq (char-after) ?\)))))
|
123 | 89 |
|
124 |
| - |
125 | 90 | (ert-deftest simple-paren--elisp-paren-test-5 ()
|
126 | 91 | (simple-paren-test-with-elisp-buffer
|
127 | 92 | "[]"
|
|
144 | 109 | (simple-paren-ogham-feather-mark 1)
|
145 | 110 | (should (eq (char-after) ?᚜))))
|
146 | 111 |
|
147 |
| - |
148 | 112 | (ert-deftest simple-paren--elisp-paren-test-8 ()
|
149 | 113 | (simple-paren-test-with-elisp-buffer
|
150 | 114 | "[asdf]"
|
|
0 commit comments