From 921287b296ff781051c7bff45bb9adb04ee3a6a7 Mon Sep 17 00:00:00 2001
From: Andreas Abel <andreas.abel@ifi.lmu.de>
Date: Sat, 15 Mar 2025 12:43:12 +0100
Subject: [PATCH] Fix #108: make test that failed with ICU 76 more robust

This removes the timezone string which apparently has changed from
"GMT+1" (ICU < 76) to "MEZ" (ICU 76) (German rendering).

I anyway do not understand why the timezone is printed in the
`LongFormatStyle`, because the ICU documentation suggests it should
only be printed in the `FullFormatStyle`.

https://github.com/unicode-org/icu/blob/72406ed78a95eec2be3d19ef7e7ce2c2cca7dd5e/icu4c/source/i18n/unicode/udat.h#L128-L130

 *   <li>   UDAT_LONG is longer, such as January 12, 1952 or 3:30:32pm
 *   <li>   UDAT_FULL is pretty completely specified, such as
 *          Tuesday, April 12, 1952 AD or 3:30:42pm PST.

Anyway switching to `MediumFormatStyle` solves the problem at hand.
---
 tests/Properties.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

Index: b/tests/Properties.hs
===================================================================
--- a/tests/Properties.hs
+++ b/tests/Properties.hs
@@ -190,12 +190,12 @@ testCases =
      (12.5 :: Double) ~?= "12.50 US dollars"
 
   ,do
-     dfDe <- I.standardDateFormatter I.LongFormatStyle I.LongFormatStyle
+     dfDe <- I.standardDateFormatter I.MediumFormatStyle I.LongFormatStyle
        (Locale "de_DE") ""
      c <- cal "CET" 2000 00 01 02 03 00
      return $ I.formatCalendar dfDe (Cal.add c [(Cal.Hour, 25), (Cal.Second, 65)])
    `ioEq`
-    "2. Januar 2000 um 03:04:05 GMT+1"
+    "2. Januar 2000 um 03:04:05"
 
   ,do
      dfAt <- I.standardDateFormatter I.LongFormatStyle I.LongFormatStyle
