Skip to content

Commit a1552af

Browse files
committed
Add test for inserting after quotes
1 parent b4a65e0 commit a1552af

File tree

1 file changed

+17
-6
lines changed

1 file changed

+17
-6
lines changed

elisp/shm-tests.el

Lines changed: 17 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -64,6 +64,17 @@ foo = do
6464

6565
(defvar shm-tests
6666
(list
67+
(list :name "inserting after '"
68+
:start-buffer-content "x = [foo'
69+
,()]
70+
"
71+
:start-cursor 6
72+
:finish-cursor 22
73+
:current-node-overlay '(19 24)
74+
:end-buffer-content "x = [foo' []
75+
,('[])]
76+
"
77+
:kbd "[,('[")
6778
(list :name "don't re-indent dependent rhs"
6879
:start-buffer-content "foo bar baz =
6980
bar + baz
@@ -444,14 +455,14 @@ zot")
444455
"
445456
:kbd "\341\362\341\362")
446457
(list :name "splice"
447-
:start-buffer-content "main = foo (bar)
458+
:start-buffer-content "main = foo (bar)
448459
"
449-
:start-cursor 13
450-
:finish-cursor 12
451-
:current-node-overlay '(12 15)
452-
:end-buffer-content "main = foo bar
460+
:start-cursor 13
461+
:finish-cursor 12
462+
:current-node-overlay '(12 15)
463+
:end-buffer-content "main = foo bar
453464
"
454-
:kbd "\363")
465+
:kbd "\363")
455466
(list :name "kill-line"
456467
:start-buffer-content "main = do foo
457468
bar

0 commit comments

Comments
 (0)