calendar: fix end-of-week modifying the input

[factor.git] / basis / calendar / calendar-tests.factor

diff --git a/basis/calendar/calendar-tests.factor b/basis/calendar/calendar-tests.factor
index 20321455998419d28833063b731993099e22fdf7..51476b0d6969494d6404839ca10cfedcadbd091d 100644 (file)
--- a/basis/calendar/calendar-tests.factor
+++ b/basis/calendar/calendar-tests.factor
@@ -437,3 +437,15 @@ IN: calendar
     2000 1 1 <date> 4 >>hour
     2000 1 1 <date> same-day?
 ] unit-test
+
+{
+    T{ timestamp { year 2023 } { month 4 } { day 9 } }
+    T{ timestamp
+        { year 2023 }
+        { month 4 }
+        { day 15 }
+        { hour 23 }
+        { minute 59 }
+        { second 59+999/1000 }
+    }
+} [ 2023 4 13 <date-gmt> start-of-week dup end-of-week ] unit-test