diff options
Diffstat (limited to 'test/lisp/emacs-lisp/subr-x-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/subr-x-tests.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el index 2e16cd0f30b..52b48095149 100644 --- a/test/lisp/emacs-lisp/subr-x-tests.el +++ b/test/lisp/emacs-lisp/subr-x-tests.el @@ -595,9 +595,10 @@ (ert-deftest subr-string-limit () (should (equal (string-limit "foo" 10) "foo")) (should (equal (string-limit "foo" 2) "fo")) - (should (equal (string-limit "foo" -2) "oo")) - (should (equal (string-limit "abc" -10) "abc")) - (should (equal (string-limit "foo" 0) ""))) + (should (equal (string-limit "foo" 2 t) "oo")) + (should (equal (string-limit "abc" 10 t) "abc")) + (should (equal (string-limit "foo" 0) "")) + (should-error (string-limit "foo" -1))) (ert-deftest subr-string-lines () (should (equal (string-lines "foo") '("foo"))) |