From 758e2c1a9dc5995b16e45effda80925cb29c961b Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Thu, 8 May 2025 14:22:01 -0400
Subject: [PATCH] Add some more year-folding tests.

---
 tests/test.cmp     | 10 ++++++++++
 tests/yearfold.rem | 16 ++++++++++++++++
 2 files changed, 26 insertions(+)

diff --git a/tests/test.cmp b/tests/test.cmp
index 106ce7ad..de44f4e4 100644
--- a/tests/test.cmp
+++ b/tests/test.cmp
@@ -38265,4 +38265,14 @@ trigger(2050-05-26@12:33, 1) => "26 May 2050 AT 08:33"
 trigger(2050-05-26@12:33, 1) => "26 May 2050 AT 08:33"
 trigger(2060-08-01@23:55, 1) => "1 August 2060 AT 19:55"
 trigger(2060-08-01@23:55, 1) => "1 August 2060 AT 19:55"
+utctolocal(2050-01-01@01:00) => 2049-12-31@20:00
+localtoutc(2050-12-31@23:44) => 2051-01-01@04:44
+localtoutc(2050-03-13@00:00) => 2050-03-13@05:00
+localtoutc(2050-03-13@02:00) => 2050-03-13@07:00
+localtoutc(2050-11-06@00:00) => 2050-11-06@04:00
+localtoutc(2050-11-06@02:00) => 2050-11-06@07:00
+utctolocal(2051-01-01@04:44) => 2050-12-31@23:44
+utctolocal(2050-03-13@05:00) => 2050-03-13@00:00
+utctolocal(2050-11-06@04:00) => 2050-11-06@00:00
+utctolocal(2050-11-06@07:00) => 2050-11-06@02:00
 No reminders.
diff --git a/tests/yearfold.rem b/tests/yearfold.rem
index bef98916..a0b516e3 100644
--- a/tests/yearfold.rem
+++ b/tests/yearfold.rem
@@ -18,3 +18,19 @@ SET $FoldYear 0
 set a trigger('2060-08-01@23:55', 1)
 SET $FoldYear 1
 set a trigger('2060-08-01@23:55', 1)
+
+# Test some edge-cases
+SET $FoldYear 0
+
+set a utctolocal('2050-01-01@01:00')
+set a localtoutc('2050-12-31@23:44')
+
+set a localtoutc('2050-03-13@00:00')
+set a localtoutc('2050-03-13@02:00')
+set a localtoutc('2050-11-06@00:00')
+set a localtoutc('2050-11-06@02:00')
+
+set a utctolocal('2051-01-01@04:44')
+set a utctolocal('2050-03-13@05:00')
+set a utctolocal('2050-11-06@04:00')
+set a utctolocal('2050-11-06@07:00')