From 0598675f3cd9ea211136a43adf507b623c1989cf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 27 Oct 2023 17:24:25 +0200
Subject: Finish coverage for week-1-start.

---
 tests/unit/datetime/datetime.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests/unit')

diff --git a/tests/unit/datetime/datetime.scm b/tests/unit/datetime/datetime.scm
index 650eea02..0ea8bcae 100644
--- a/tests/unit/datetime/datetime.scm
+++ b/tests/unit/datetime/datetime.scm
@@ -503,6 +503,11 @@
   (test-equal
       (date year: 2018 month: 1 day: 1)
     (week-1-start (date year: 2018)
+                  mon))
+
+  (test-equal
+      (date year: 2017 month: 1 day: 2)
+    (week-1-start (date year: 2017 month: 1 day: 1)
                   mon)))
 
 (test-group "week-number"
-- 
cgit v1.2.3