Finish conditional parsing of calendar days and months.

This commit is contained in:
Dominik Pantůček 2023-05-11 10:04:58 +02:00
parent 2e86d96b41
commit 57571f10c0

View file

@ -38,6 +38,10 @@
cal-day->month cal-day->month
cal-day->string
string->cal-day
parse-cal-day/month
cal-day-tests! cal-day-tests!
) )
@ -180,6 +184,8 @@
(make-cal-day 2023 5 11)) (make-cal-day 2023 5 11))
(test-true parse-cal-day/month (test-true parse-cal-day/month
(cal-day? (parse-cal-day/month "2023-05-11"))) (cal-day? (parse-cal-day/month "2023-05-11")))
(test-true parse-cal-day/month
(cal-month? (parse-cal-day/month "2023-05")))
)) ))
) )