[elpa] externals/compat 95ad370956 2/2: compat-27: Add test for recenter

[ELPA Syncer]

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

    compat-27: Add test for recenter
---
 compat-27.el    | 2 +-
 compat-tests.el | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/compat-27.el b/compat-27.el
index c0b0202aa8..d2d414adb4 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -88,7 +88,7 @@ Letter-case is significant, but text properties are ignored."
 
 ;;;; Defined in window.c
 
-(compat-defun recenter (&optional arg redisplay) ;; <UNTESTED>
+(compat-defun recenter (&optional arg redisplay) ;; <OK>
   "Handle optional argument REDISPLAY."
   :explicit t
   (recenter arg)
diff --git a/compat-tests.el b/compat-tests.el
index 9fa7c0fa20..eb646b3b2f 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -109,6 +109,14 @@
       (should-equal (getenv A) B))
     (should-not (getenv A))))
 
+(ert-deftest recenter ()
+  (save-window-excursion
+    (set-window-buffer nil (current-buffer))
+    (compat-call recenter nil nil)
+    (compat-call recenter nil t)
+    (compat-call recenter 1 nil)
+    (compat-call recenter 1 t)))
+
 (ert-deftest get-display-property ()
   (with-temp-buffer
     (insert (propertize "foo" 'face 'bold 'display '(height 2.0)))