From 562d67797d6b09d01f5330d6ce6332543b200e93 Mon Sep 17 00:00:00 2001 From: Takafumi Arakaki Date: Sun, 2 Sep 2012 04:17:49 +0200 Subject: [PATCH] Add more tests on ein:list-move-left/right --- tests/test-ein-utils.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/test-ein-utils.el b/tests/test-ein-utils.el index 565bd39..6ec51da 100644 --- a/tests/test-ein-utils.el +++ b/tests/test-ein-utils.el @@ -103,7 +103,8 @@ def func(): (should (equal (ein:list-move-left '(a b c d) 'a) '(b c d a))) (should (equal (ein:list-move-left '(a b c d) 'b) '(b a c d))) (should (equal (ein:list-move-left '(a b c d) 'c) '(a c b d))) - (should (equal (ein:list-move-left '(a b c d) 'd) '(a b d c)))) + (should (equal (ein:list-move-left '(a b c d) 'd) '(a b d c))) + (should-error (ein:list-move-left '(a b c d) 'X))) (ert-deftest ein:list-move-right () (should (equal (ein:list-move-right '(a) 'a) '(a))) @@ -112,4 +113,5 @@ def func(): (should (equal (ein:list-move-right '(a b c d) 'a) '(b a c d))) (should (equal (ein:list-move-right '(a b c d) 'b) '(a c b d))) (should (equal (ein:list-move-right '(a b c d) 'c) '(a b d c))) - (should (equal (ein:list-move-right '(a b c d) 'd) '(d a b c)))) + (should (equal (ein:list-move-right '(a b c d) 'd) '(d a b c))) + (should-error (ein:list-move-right '(a b c d) 'X)))