From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 7 Sep 2014 08:24:44 +0000 (+0200)
Subject: * automated/fns-tests.el (fns-tests--collate-enabled-p): New function.
X-Git-Tag: emacs-25.0.90~2635^2~679^2~341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47ae4ce33d54643c8adb0a2f9791a4132e0eb306;p=emacs.git

* automated/fns-tests.el (fns-tests--collate-enabled-p): New function.
(fns-tests-collate-strings, fns-tests-collate-sort): Use it.
---

diff --git a/test/ChangeLog b/test/ChangeLog
index 28f6a918676..db3a35c3644 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-09-07  Michael Albinus  <michael.albinus@gmx.de>
+
+	* automated/fns-tests.el (fns-tests--collate-enabled-p): New function.
+	(fns-tests-collate-strings, fns-tests-collate-sort): Use it.
+
 2014-09-05  Michael Albinus  <michael.albinus@gmx.de>
 
 	* automated/fns-tests.el (fns-tests-compare-strings): In case
diff --git a/test/automated/fns-tests.el b/test/automated/fns-tests.el
index aa9f35f338e..1894b44bf42 100644
--- a/test/automated/fns-tests.el
+++ b/test/automated/fns-tests.el
@@ -101,10 +101,19 @@
   (should (= (compare-strings "んにちはｺﾝﾆﾁﾊこ" nil nil "こんにちはｺﾝﾆﾁﾊ" nil nil) 1))
   (should (= (compare-strings "こんにちはｺﾝﾆﾁﾊ" nil nil "んにちはｺﾝﾆﾁﾊこ" nil nil) -1)))
 
+(defun fns-tests--collate-enabled-p ()
+  "Check whether collation functions are enabled."
+  (and
+   ;; When there is no collation library, collation functions fall back
+   ;; to their lexicographic counterparts.  We don't need to test then.
+   (not (ignore-errors (string-collate-equalp "" "" t)))
+   ;; We use a locale, which might not be installed.  Check it.
+   (ignore-errors
+     (string-collate-equalp
+      "" "" (if (eq system-type 'windows-nt) "enu_USA" "en_US.UTF-8")))))
+
 (ert-deftest fns-tests-collate-strings ()
-  ;; When there is no collation library, collation functions fall back
-  ;; to their lexicographic counterparts.  We don't need to test then.
-  (skip-unless (not (ignore-errors (string-collate-equalp "" "" t))))
+  (skip-unless (fns-tests--collate-enabled-p))
 
   (should (string-collate-equalp "xyzzy" "xyzzy"))
   (should-not (string-collate-equalp "xyzzy" "XYZZY"))
@@ -146,6 +155,8 @@
 	    (9 . "aaa") (9 . "zzz") (9 . "ppp") (9 . "fff")])))
 
 (ert-deftest fns-tests-collate-sort ()
+  (skip-unless (fns-tests--collate-enabled-p))
+
   ;; Punctuation and whitespace characters are relevant for POSIX.
   (should
    (equal