components/library/guile/patches/regexp-test-localename.patch

   1 From 342502cc25d5893c7dd1dcd064f90b57f75cc326 Mon Sep 17 00:00:00 2001
   2 From: Richard Lowe <richlowe@richlowe.net>
   3 Date: Fri, 23 Aug 2019 19:27:29 -0400
   4 Subject: [PATCH] guile-2.2.6: Need to give a valid UTF-8 locale name to the
   5  regexp tests
   6
   7 ---
   8  .../guile/patches/regexp-test-localename.patch | 18 ++++++++++++++++++
   9  1 file changed, 18 insertions(+)
  10  create mode 100644 components/library/guile/patches/regexp-test-localename.patch
  11
  12 diff --git a/components/library/guile/patches/regexp-test-localename.patch b/components/library/guile/patches/regexp-test-localename.patch
  13 new file mode 100644
  14 index 0000000000..26b10efb80
  15 --- /dev/null
  16 +++ b/components/library/guile/patches/regexp-test-localename.patch
  17 @@ -0,0 +1,18 @@
  18 +--- guile-2.2.6/test-suite/tests/regexp.test.~1~       2019-08-23 19:24:28.420936713 +0000
  19 ++++ guile-2.2.6/test-suite/tests/regexp.test   2019-08-23 19:24:31.031011624 +0000
  20 +@@ -280,13 +280,13 @@
  21 +
  22 + (with-test-prefix "nonascii locales"
  23 +   (pass-if "match structures refer to char offsets"
  24 +-    (with-locale "en_US.utf8"
  25 ++    (with-locale "en_US.UTF-8"
  26 +       ;; bug #31650
  27 +       (equal? (match:substring (string-match ".*" "calçot") 0)
  28 +               "calçot")))
  29 +
  30 +   (pass-if "match structures refer to char offsets, non-ASCII pattern"
  31 +-    (with-locale "en_US.utf8"
  32 ++    (with-locale "en_US.UTF-8"
  33 +       ;; bug #31650
  34 +       (equal? (match:substring (string-match "λ: The Ultimate (.*)"
  35 +                                              "λ: The Ultimate GOTO")