[elpa] externals/compat 96f1a41487 03/13: Restore tests

[ELPA Syncer]

branch: externals/compat
commit 96f1a41487206f6b9f4647e5ca53c8865c92c1ba
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Restore tests
---
 compat-tests.el | 146 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 73 insertions(+), 73 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 0d24c84bf0..92a5477a98 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -420,6 +420,79 @@
   (should-equal '(1 2 3 4) (flatten-tree '((1) nil 2 ((3 4)))))
   (should-equal '(1 2 3 4) (flatten-tree '(((1 nil)) 2 (((3 nil nil) 4))))))
 
+(ert-deftest delete-consecutive-dups ()
+  (should-equal '(1 2 3 4) (delete-consecutive-dups '(1 2 3 4)))
+  (should-equal '(1 2 3 4) (delete-consecutive-dups '(1 2 2 3 4 4)))
+  (should-equal '(1 2 3 2 4) (delete-consecutive-dups '(1 2 2 3 2 4 4))))
+
+(ert-deftest string-suffix-p ()
+  (should (string-suffix-p "a" "abba"))
+  (should (string-suffix-p "ba" "ba" "abba"))
+  (should (string-suffix-p "abba" "abba"))
+  (should-not (string-suffix-p "a" "ABBA"))
+  (should-not (string-suffix-p "bA" "ABBA"))
+  (should-not (string-suffix-p "aBBA" "ABBA"))
+  (should-not (string-suffix-p "c" "ABBA"))
+  (should-not (string-suffix-p "c" "abba"))
+  (should-not (string-suffix-p "cddc" "abba"))
+  (should-not (string-suffix-p "aabba" "abba")))
+
+(ert-deftest split-string ()
+  (should-equal '("a" "b" "c") (split-string "a b c"))
+  (should-equal '("..a.." "..b.." "..c..") (split-string "..a.. ..b.. ..c.."))
+  (should-equal '("a" "b" "c") (split-string "..a.. ..b.. ..c.." nil nil 
"\\.+")))
+
+(ert-deftest string-clean-whitespace ()
+  (should-equal "a b c" (string-clean-whitespace "a b c"))
+  (should-equal "a b c" (string-clean-whitespace "   a b c"))
+  (should-equal "a b c" (string-clean-whitespace "a b c   "))
+  (should-equal "a b c" (string-clean-whitespace "a    b c"))
+  (should-equal "a b c" (string-clean-whitespace "a b    c"))
+  (should-equal "a b c" (string-clean-whitespace "a    b    c"))
+  (should-equal "a b c" (string-clean-whitespace "   a    b    c"))
+  (should-equal "a b c" (string-clean-whitespace "a    b    c    "))
+  (should-equal "a b c" (string-clean-whitespace "   a    b    c    "))
+  (should-equal "aa bb cc" (string-clean-whitespace "aa bb cc"))
+  (should-equal "aa bb cc" (string-clean-whitespace "   aa bb cc"))
+  (should-equal "aa bb cc" (string-clean-whitespace "aa bb cc   "))
+  (should-equal "aa bb cc" (string-clean-whitespace "aa    bb cc"))
+  (should-equal "aa bb cc" (string-clean-whitespace "aa bb    cc"))
+  (should-equal "aa bb cc" (string-clean-whitespace "aa    bb    cc"))
+  (should-equal "aa bb cc" (string-clean-whitespace "   aa    bb    cc"))
+  (should-equal "aa bb cc" (string-clean-whitespace "aa    bb    cc    "))
+  (should-equal "aa bb cc" (string-clean-whitespace "   aa    bb    cc    ")))
+
+(ert-deftest string-fill ()
+  (should-equal "a a a a a" (string-fill "a a a a a" 9))
+  (should-equal "a a a a a" (string-fill "a a a a a" 10))
+  (should-equal "a a a a\na" (string-fill "a a a a a" 8))
+  (should-equal "a a a a\na" (string-fill "a  a  a  a  a" 8))
+  (should-equal "a a\na a\na" (string-fill "a a a a a" 4))
+  (should-equal "a\na\na\na\na" (string-fill "a a a a a" 2))
+  (should-equal "a\na\na\na\na" (string-fill "a a a a a" 1)))
+
+(ert-deftest string-lines ()
+  (should-equal '("a" "b" "c") (string-lines "a\nb\nc"))
+  (should-equal '("a" "b" "c" "") (string-lines "a\nb\nc\n"))
+  (should-equal '("a" "b" "c") (string-lines "a\nb\nc\n" t))
+  (should-equal '("abc" "bcd" "cde") (string-lines "abc\nbcd\ncde"))
+  (should-equal '(" abc" " bcd " "cde ") (string-lines " abc\n bcd \ncde ")))
+
+(ert-deftest string-pad ()
+  (should-equal "a   " (string-pad "a" 4))
+  (should-equal "aaaa" (string-pad "aaaa" 4))
+  (should-equal "aaaaaa" (string-pad "aaaaaa" 4))
+  (should-equal "a..." (string-pad "a" 4 ?.))
+  (should-equal "   a" (string-pad "a" 4 nil t))
+  (should-equal "...a" (string-pad "a" 4 ?. t)))
+
+(ert-deftest string-chop-newline ()
+  (should-equal "" (string-chop-newline ""))
+  (should-equal "" (string-chop-newline "\n"))
+  (should-equal "aaa" (string-chop-newline "aaa"))
+  (should-equal "aaa" (string-chop-newline "aaa\n"))
+  (should-equal "aaa\n" (string-chop-newline "aaa\n\n")))
+
 (ert-deftest string-empty-p ()
   (should (string-empty-p ""))
   (should-not (string-empty-p " "))
@@ -1194,79 +1267,6 @@
 ;;   (should-equal '[1 2 3] '[1 2 3] #'<)
 ;;   (should-equal '[1 2 3] '[3 2 1] #'<))
 
-;; (ert-deftest string-suffix-p
-;;   (should-equal t "a" "abba")
-;;   (should-equal t "ba" "abba")
-;;   (should-equal t "abba" "abba")
-;;   (should-equal nil "a" "ABBA")
-;;   (should-equal nil "bA" "ABBA")
-;;   (should-equal nil "aBBA" "ABBA")
-;;   (should-equal nil "c" "ABBA")
-;;   (should-equal nil "c" "abba")
-;;   (should-equal nil "cddc" "abba")
-;;   (should-equal nil "aabba" "abba"))
-
-;; (ert-deftest split-string
-;;   (should-equal '("a" "b" "c") "a b c")
-;;   (should-equal '("..a.." "..b.." "..c..") "..a.. ..b.. ..c..")
-;;   (should-equal '("a" "b" "c") "..a.. ..b.. ..c.." nil nil "\\.+"))
-
-;; (ert-deftest delete-consecutive-dups
-;;   (should-equal '(1 2 3 4) '(1 2 3 4))
-;;   (should-equal '(1 2 3 4) '(1 2 2 3 4 4))
-;;   (should-equal '(1 2 3 2 4) '(1 2 2 3 2 4 4)))
-
-;; (ert-deftest string-clean-whitespace
-;;   (should-equal "a b c" "a b c")
-;;   (should-equal "a b c" "   a b c")
-;;   (should-equal "a b c" "a b c   ")
-;;   (should-equal "a b c" "a    b c")
-;;   (should-equal "a b c" "a b    c")
-;;   (should-equal "a b c" "a    b    c")
-;;   (should-equal "a b c" "   a    b    c")
-;;   (should-equal "a b c" "a    b    c    ")
-;;   (should-equal "a b c" "   a    b    c    ")
-;;   (should-equal "aa bb cc" "aa bb cc")
-;;   (should-equal "aa bb cc" "   aa bb cc")
-;;   (should-equal "aa bb cc" "aa bb cc   ")
-;;   (should-equal "aa bb cc" "aa    bb cc")
-;;   (should-equal "aa bb cc" "aa bb    cc")
-;;   (should-equal "aa bb cc" "aa    bb    cc")
-;;   (should-equal "aa bb cc" "   aa    bb    cc")
-;;   (should-equal "aa bb cc" "aa    bb    cc    ")
-;;   (should-equal "aa bb cc" "   aa    bb    cc    "))
-
-;; (ert-deftest string-fill
-;;   (should-equal "a a a a a" "a a a a a" 9)
-;;   (should-equal "a a a a a" "a a a a a" 10)
-;;   (should-equal "a a a a\na" "a a a a a" 8)
-;;   (should-equal "a a a a\na" "a  a  a  a  a" 8)
-;;   (should-equal "a a\na a\na" "a a a a a" 4)
-;;   (should-equal "a\na\na\na\na" "a a a a a" 2)
-;;   (should-equal "a\na\na\na\na" "a a a a a" 1))
-
-;; (ert-deftest string-lines
-;;   (should-equal '("a" "b" "c") "a\nb\nc")
-;;   (should-equal '("a" "b" "c" "") "a\nb\nc\n")
-;;   (should-equal '("a" "b" "c") "a\nb\nc\n" t)
-;;   (should-equal '("abc" "bcd" "cde") "abc\nbcd\ncde")
-;;   (should-equal '(" abc" " bcd " "cde ") " abc\n bcd \ncde "))
-
-;; (ert-deftest string-pad
-;;   (should-equal "a   " "a" 4)
-;;   (should-equal "aaaa" "aaaa" 4)
-;;   (should-equal "aaaaaa" "aaaaaa" 4)
-;;   (should-equal "a..." "a" 4 ?.)
-;;   (should-equal "   a" "a" 4 nil t)
-;;   (should-equal "...a" "a" 4 ?. t))
-
-;; (ert-deftest string-chop-newline
-;;   (should-equal "" "")
-;;   (should-equal "" "\n")
-;;   (should-equal "aaa" "aaa")
-;;   (should-equal "aaa" "aaa\n")
-;;   (should-equal "aaa\n" "aaa\n\n"))
-
 ;; (ert-deftest macroexpand-1
 ;;   (should-equal '(if a b c) '(if a b c))
 ;;   (should-equal '(if a (progn b)) '(when a b))