branch: elpa/smartparens
commit 1c6e4711ea3ad7a8ddf369ccb42b26de0190386a
Author: Matus Goljer <matus.gol...@gmail.com>
Commit: Matus Goljer <matus.gol...@gmail.com>
test(evil): fix evil tests by updating api
---
test/smartparens-evil-test.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/test/smartparens-evil-test.el b/test/smartparens-evil-test.el
index 2ffbb57c00..cf35b2e0e6 100644
--- a/test/smartparens-evil-test.el
+++ b/test/smartparens-evil-test.el
@@ -7,7 +7,7 @@
(evil-mode)
(sp-kill-sexp 1 t)
(evil-mode -1)
- (should (equal (buffer-string) (evil-get-register ?0)))))
+ (should (equal (buffer-string) (evil-get-register ?0 'no-error)))))
(ert-deftest sp-test-evil-disabled-copy-sexp ()
"When `evil-mode' is disabled, copying sexp doesn't modify 0 register."
@@ -15,7 +15,7 @@
(evil-set-register ?0 nil)
(evil-mode -1)
(sp-kill-sexp 1 t)
- (should (not (equal (buffer-string) (evil-get-register ?0))))))
+ (should (not (equal (buffer-string) (evil-get-register ?0 'no-error))))))
(ert-deftest sp-test-evil-enabled-copy-sexp-with-register ()
"When `evil-mode' is enabled, copying a sexp with register set will
@@ -25,7 +25,7 @@ copy the sexp into that register."
(setq evil-this-register ?a)
(sp-kill-sexp 1 t)
(evil-mode -1)
- (should (equal (buffer-string) (evil-get-register ?a)))))
+ (should (equal (buffer-string) (evil-get-register ?a 'no-error)))))
(ert-deftest sp-test-evil-disabled-copy-sexp-with-register ()
"When `evil-mode' is disabled, copying a sexp with register set will not
@@ -34,7 +34,7 @@ copy the sexp into that register."
(evil-mode -1)
(setq evil-this-register ?c)
(sp-kill-sexp 1 t)
- (should (not (equal (buffer-string) (evil-get-register ?c))))))
+ (should (not (equal (buffer-string) (evil-get-register ?c 'no-error))))))
(ert-deftest sp-test-evil-enabled-kill-sexp-with-register ()
"When `evil-mode' is enabled, killing a sexp with register set will
@@ -44,7 +44,7 @@ copy the sexp into that register."
(setq evil-this-register ?b)
(sp-kill-sexp 1 nil)
(evil-mode -1)
- (should (equal "(a b c)" (evil-get-register ?b)))))
+ (should (equal "(a b c)" (evil-get-register ?b 'no-error)))))
(ert-deftest sp-test-evil-disabled-kill-sexp-with-register ()
"When `evil-mode' is disabled, killing a sexp with register set will not
@@ -53,4 +53,4 @@ copy the sexp into that register."
(evil-mode -1)
(setq evil-this-register ?d)
(sp-kill-sexp 1 nil)
- (should (not (equal "(a b c)" (evil-get-register ?d))))))
+ (should (not (equal "(a b c)" (evil-get-register ?d 'no-error))))))
