aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/ses-tests.el28
1 files changed, 14 insertions, 14 deletions
diff --git a/test/lisp/ses-tests.el b/test/lisp/ses-tests.el
index e34350ebf2a..bc26949d40b 100644
--- a/test/lisp/ses-tests.el
+++ b/test/lisp/ses-tests.el
@@ -202,23 +202,23 @@ to `ses--bar' and inserting a row, makes A2 value empty, and `ses--bar' equal to
202 202
203(ert-deftest ses-jump-B2-lowcase () 203(ert-deftest ses-jump-B2-lowcase ()
204 "Test jumping to cell B2 by use of lowercase cell name string" 204 "Test jumping to cell B2 by use of lowercase cell name string"
205 (let ((ses-initial-size '(3 . 3)) 205 (let ((ses-initial-size '(3 . 3))
206 ses-after-entry-functions) 206 ses-after-entry-functions)
207 (with-temp-buffer 207 (with-temp-buffer
208 (ses-mode) 208 (ses-mode)
209 (funcall-interactively 'ses-jump "b2") 209 (funcall-interactively 'ses-jump "b2")
210 (ses-command-hook) 210 (ses-command-hook)
211 (should (eq (ses--cell-at-pos (point)) 'B2))))) 211 (should (eq (ses--cell-at-pos (point)) 'B2)))))
212 212
213(ert-deftest ses-jump-B2-lowcase-keys () 213(ert-deftest ses-jump-B2-lowcase-keys ()
214 "Test jumping to cell B2 by use of lowercase cell name string with simulating keys" 214 "Test jumping to cell B2 by use of lowercase cell name string with simulating keys"
215 (let ((ses-initial-size '(3 . 3)) 215 (let ((ses-initial-size '(3 . 3))
216 ses-after-entry-functions) 216 ses-after-entry-functions)
217 (with-temp-buffer 217 (with-temp-buffer
218 (ses-mode) 218 (ses-mode)
219 (ert-simulate-keys [ ?b ?2 return] (ses-jump)) 219 (ert-simulate-keys [ ?b ?2 return] (ses-jump))
220 (ses-command-hook) 220 (ses-command-hook)
221 (should (eq (ses--cell-at-pos (point)) 'B2))))) 221 (should (eq (ses--cell-at-pos (point)) 'B2)))))
222 222
223(ert-deftest ses-jump-B2-symbol () 223(ert-deftest ses-jump-B2-symbol ()
224 "Test jumping to cell B2 by use of cell name symbol" 224 "Test jumping to cell B2 by use of cell name symbol"