[elpa] externals/compat 3472e208d7 03/13: Remove duplicate string-search test block

[ELPA Syncer]

branch: externals/compat
commit 3472e208d7b0577d76e6458a02c0862dd5438cf9
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Remove duplicate string-search test block
---
 compat-tests.el | 115 --------------------------------------------------------
 1 file changed, 115 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index f6d9681e3c..42e1f9197a 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -120,121 +120,6 @@ being compared against."
 
 
 
-(compat-deftest string-search
-  ;; Find needle at the beginning of a haystack:
-  (ought 0 "a" "abb")
-  ;; Find needle at the begining of a haystack, with more potential
-  ;; needles that could be found:
-  (ought 0 "a" "abba")
-  ;; Find needle with more than one charachter at the beginning of
-  ;; a line:
-  (ought 0 "aa" "aabbb")
-  ;; Find a needle midstring:
-  (ought 1 "a" "bab")
-  ;; Find a needle at the end:
-  (ought 2 "a" "bba")
-  ;; Find a longer needle midstring:
-  (ought 1 "aa" "baab")
-  ;; Find a longer needle at the end:
-  (ought 2 "aa" "bbaa")
-  ;; Find a case-sensitive needle:
-  (ought 2 "a" "AAa")
-  ;; Find another case-sensitive needle:
-  (ought 2 "aa" "AAaa")
-  ;; Test regular expression quoting (1):
-  (ought 5 "." "abbbb.b")
-  ;; Test regular expression quoting (2):
-  (ought 5 ".*" "abbbb.*b")
-  ;; Attempt to find non-existent needle:
-  (ought nil "a" "bbb")
-  ;; Attempt to find non-existent needle that has the form of a
-  ;; regular expression:
-  (ought nil "." "bbb")
-  ;; Handle empty string as needle:
-  (ought 0 "" "abc")
-  ;; Handle empty string as haystack:
-  (ought nil "a" "")
-  ;; Handle empty string as needle and haystack:
-  (ought 0 "" "")
-  ;; Handle START argument:
-  (ought 3 "a" "abba" 1)
-  ;; Additional test copied from:
-  (ought 6 "zot" "foobarzot")
-  (ought 0 "foo" "foobarzot")
-  (ought nil "fooz" "foobarzot")
-  (ought nil "zot" "foobarzo")
-  (ought 0 "ab" "ab")
-  (ought nil "ab\0" "ab")
-  (ought 4 "ab" "abababab" 3)
-  (ought nil "ab" "ababac" 3)
-  (ought nil "aaa" "aa")
-  ;; The `make-string' calls with three arguments have been replaced
-  ;; here with the result of their evaluation, to avoid issues with
-  ;; older versions of Emacs that only support two arguments.
-  (ought 5
-                  (make-string 2 130)
-                  ;; Per (concat "helló" (make-string 5 130 t) "bár")
-                  "hell󂂂‚‚bár")
-  (ought 5
-                  (make-string 2 127)
-                  ;; Per (concat "helló" (make-string 5 127 t) "bár")
-                  "hellóbár")
-  (ought 1 "\377" "a\377ø")
-  (ought 1 "\377" "a\377a")
-  (ought nil (make-string 1 255) "a\377ø")
-  (ought nil (make-string 1 255) "a\377a")
-  (ought 3 "fóo" "zotfóo")
-  (ought nil "\303" "aøb")
-  (ought nil "\270" "aøb")
-  (ought nil "ø" "\303\270")
-  (ought nil "ø" (make-string 32 ?a))
-  (ought nil "ø" (string-to-multibyte (make-string 32 ?a)))
-  (ought 14 "o" (string-to-multibyte
-                          (apply #'string (number-sequence ?a ?z))))
-  (ought 2 "a\U00010f98z" "a\U00010f98a\U00010f98z")
-  (expect (args-out-of-range "abc" -1) "a" "abc" -1)
-  (expect (args-out-of-range "abc" 4) "a" "abc" 4)
-  (expect (args-out-of-range "abc" 100000000000)
-                 "a" "abc" 100000000000)
-  (ought nil "a" "aaa" 3)
-  (ought nil "aa" "aa" 1)
-  (ought nil "\0" "")
-  (ought 0 "" "")
-  (expect (args-out-of-range "" 1) "" "" 1)
-  (ought 0 "" "abc")
-  (ought 2 "" "abc" 2)
-  (ought 3 "" "abc" 3)
-  (expect (args-out-of-range "abc" 4) "" "abc" 4)
-  (expect (args-out-of-range "abc" -1) "" "abc" -1)
-  (ought nil "ø" "foo\303\270")
-  (ought nil "\303\270" "ø")
-  (ought nil "\370" "ø")
-  (ought nil (string-to-multibyte "\370") "ø")
-  (ought nil "ø" "\370")
-  (ought nil "ø" (string-to-multibyte "\370"))
-  (ought nil "\303\270" "\370")
-  (ought nil (string-to-multibyte "\303\270") "\370")
-  (ought nil "\303\270" (string-to-multibyte "\370"))
-  (ought nil
-                  (string-to-multibyte "\303\270")
-                  (string-to-multibyte "\370"))
-  (ought nil "\370" "\303\270")
-  (ought nil (string-to-multibyte "\370") "\303\270")
-  (ought nil "\370" (string-to-multibyte "\303\270"))
-  (ought nil
-                  (string-to-multibyte "\370")
-                  (string-to-multibyte "\303\270"))
-  (ought 3 "\303\270" "foo\303\270")
-  (when (version<= "27" emacs-version)
-    ;; FIXME The commit a1f76adfb03c23bb4242928e8efe6193c301f0c1 in
-    ;; emacs.git fixes the behaviour of regular expressions matching
-    ;; raw bytes.  The compatibility functions should updated to
-    ;; backport this behaviour.
-    (ought 2 (string-to-multibyte "\377") "ab\377c")
-    (ought 2
-                    (string-to-multibyte "o\303\270")
-                    "foo\303\270")))
-
 (compat-deftest string-search
   ;; Find needle at the beginning of a haystack:
   (ought 0 "a" "abb")