diff options
Diffstat (limited to 'test/lisp/subr-tests.el')
| -rw-r--r-- | test/lisp/subr-tests.el | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 6b80c743a05..52b61d9fb97 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -281,24 +281,6 @@ indirectly `mapbacktrace'." (should (equal (string-match-p "\\`[[:blank:]]\\'" "\u3000") 0)) (should-not (string-match-p "\\`[[:blank:]]\\'" "\N{LINE SEPARATOR}"))) -(ert-deftest subr-tests--string-distance () - "Test `string-distance' behavior." - ;; ASCII characters are always fine - (should (equal 1 (string-distance "heelo" "hello"))) - (should (equal 2 (string-distance "aeelo" "hello"))) - (should (equal 0 (string-distance "ab" "ab" t))) - (should (equal 1 (string-distance "ab" "abc" t))) - - ;; string containing hanzi character, compare by byte - (should (equal 6 (string-distance "ab" "ab我她" t))) - (should (equal 3 (string-distance "ab" "a我b" t))) - (should (equal 3 (string-distance "我" "她" t))) - - ;; string containing hanzi character, compare by character - (should (equal 2 (string-distance "ab" "ab我她"))) - (should (equal 1 (string-distance "ab" "a我b"))) - (should (equal 1 (string-distance "我" "她")))) - (ert-deftest subr-tests--dolist--wrong-number-of-args () "Test that `dolist' doesn't accept wrong types or length of SPEC, cf. Bug#25477." |