+
+{
+ T{ raw-zone
+ { name "Pacific/Kiritimati" }
+ { gmt-offset "14:00" }
+ { rules/save "-" }
+ { format "+14" }
+ { until { } }
+ }
+} [
+ "Pacific/Kiritimati" timezone>rules last
+] unit-test
+
+! First and last timezones + 24 hours = length of day
+{ 50 } [
+ now midnight "Etc/GMT+12" find-zone gmt-offset>> hms>duration >>gmt-offset
+ now midnight "Etc/GMT-14" find-zone gmt-offset>> hms>duration >>gmt-offset
+ time- duration>hours 24 +
+] unit-test
+
+! Make sure we handle # in weird places, like in "Europe/Athens"
+{ } [
+ raw-zone-map values
+ [ [ gmt-offset>> ] map ] map concat members
+ [ hms>duration ] map
+ drop
+] unit-test
+