diff options
| author | aagon <aymeric.agon@hotmail.fr> | 2023-01-28 07:43:35 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-01-28 07:43:35 +0100 |
| commit | 4806d28169fbb52bbdc5f9f841227003ddbc4a41 (patch) | |
| tree | 1878ef0f0d378ba85535ee0df58ebc9b7ae44b3a /compat-tests.el | |
| parent | 1e63bef4e03e20758be49af077e51351f4689410 (diff) | |
Guarantee START-POS arg of string-search to be a fixnum (#16)
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compat-tests.el b/compat-tests.el index c3e5a19..0f317c3 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -2036,7 +2036,7 @@ (should-equal 2 (string-search "a\U00010f98z" "a\U00010f98a\U00010f98z")) (should-error (string-search "a" "abc" -1) :type '(args-out-of-range -1)) (should-error (string-search "a" "abc" 4) :type '(args-out-of-range 4)) - (should-error (string-search "a" "abc" 100000000000) :type '(args-out-of-range 100000000000)) + (should-error (string-search "a" "abc" most-positive-fixnum) :type '(args-out-of-range most-positive-fixnum)) (should-not (string-search "a" "aaa" 3)) (should-not (string-search "aa" "aa" 1)) (should-not (string-search "\0" "")) |