diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-12-21 20:42:17 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-12-21 20:42:17 +0100 |
| commit | fd9431dde443471f17ffeebf9628fd9aee154e1b (patch) | |
| tree | afe8067415dde3f1c96c91ff5e12cf947e7c3825 /test/lisp/emacs-lisp | |
| parent | cf2e8321850f81d9eb0ebc23a4887f12dc3dbfac (diff) | |
| download | emacs-fd9431dde443471f17ffeebf9628fd9aee154e1b.tar.gz emacs-fd9431dde443471f17ffeebf9628fd9aee154e1b.tar.bz2 emacs-fd9431dde443471f17ffeebf9628fd9aee154e1b.zip | |
Fix shorter-than-length case for string-limit
* lisp/emacs-lisp/subr-x.el (string-limit): Fix
shorter-than-length case.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/subr-x-tests.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el index 6ed06d4ce4f..c655fcf6ead 100644 --- a/test/lisp/emacs-lisp/subr-x-tests.el +++ b/test/lisp/emacs-lisp/subr-x-tests.el @@ -596,6 +596,7 @@ (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) ""))) (ert-deftest subr-string-lines () |