From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 7 Nov 2019 20:27:05 +0000 (+0100)
Subject: add comp-tests-string-trim
X-Git-Tag: emacs-28.0.90~2727^2~1033
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f97c03ebca440229ff953baee9e458a3ddcdaa70;p=emacs.git

add comp-tests-string-trim
---

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index e3fc0f26b58..6127d24e656 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -238,6 +238,9 @@
 (defmacro comp-tests-macro-m (x)
   x)
 
+(defun comp-tests-string-trim-f (url)
+  (string-trim url))
+
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
 ;;;;;;;;;;;;;;;;;;;;
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 9e0ca196871..6d714656ade 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -278,6 +278,9 @@
   "Just check we can define macros"
   (should (macrop (symbol-function 'comp-tests-macro-m))))
 
+(ert-deftest comp-tests-string-trim ()
+  (should (string= (comp-tests-string-trim-f "dsaf ") "dsaf")))
+
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
 ;;;;;;;;;;;;;;;;;;;;