mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix ses-test.el indentation.

Browse source
This commit is contained in:
Vincent Belaïche 2024-12-23 19:29:53 +01:00 • committed by Vincent Belaïche
parent 20bb4d708b
commit d07902e5ca
1 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

28
test/lisp/ses-tests.el
View file

@ -202,23 +202,23 @@ to `ses--bar' and inserting a row, makes A2 value empty, and `ses--bar' equal to
(ert-deftest ses-jump-B2-lowcase ()
"Test jumping to cell B2 by use of lowercase cell name string"
(let ((ses-initial-size '(3 . 3))
ses-after-entry-functions)
(with-temp-buffer
(ses-mode)
(funcall-interactively 'ses-jump "b2")
(ses-command-hook)
(should (eq (ses--cell-at-pos (point)) 'B2)))))
(let ((ses-initial-size '(3 . 3))
ses-after-entry-functions)
(with-temp-buffer
(ses-mode)
(funcall-interactively 'ses-jump "b2")
(ses-command-hook)
(should (eq (ses--cell-at-pos (point)) 'B2)))))
(ert-deftest ses-jump-B2-lowcase-keys ()
"Test jumping to cell B2 by use of lowercase cell name string with simulating keys"
(let ((ses-initial-size '(3 . 3))
ses-after-entry-functions)
(with-temp-buffer
(ses-mode)
(ert-simulate-keys [ ?b ?2 return] (ses-jump))
(ses-command-hook)
(should (eq (ses--cell-at-pos (point)) 'B2)))))
(let ((ses-initial-size '(3 . 3))
ses-after-entry-functions)
(with-temp-buffer
(ses-mode)
(ert-simulate-keys [ ?b ?2 return] (ses-jump))
(ses-command-hook)
(should (eq (ses--cell-at-pos (point)) 'B2)))))
(ert-deftest ses-jump-B2-symbol ()
"Test jumping to cell B2 by use of cell name symbol"