brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Document new cal-day procedures and add more tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-22 20:25:33 +02:00
parent 420b096bea
commit aa6a9ac705
2 changed files with 68 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/cal-day.scm
View file

@ -255,6 +255,24 @@
(cal-day? (parse-cal-day/month "2023-05-11")))
(test-true parse-cal-day/month
(cal-month? (parse-cal-day/month "2023-05")))
(test-true cal-day/month<?
(cal-day/month<? (make-cal-day 2023 5 21)
(make-cal-day 2023 5 22)))
(test-exn cal-day/month<?
(cal-day/month<? (make-cal-day 2023 5 21)
(make-cal-month 2023 5)))
(test-true cal-day/month<?
(cal-day/month<? (make-cal-month 2023 4)
(make-cal-month 2023 5)))
(test-false cal-day/month<?
(cal-day/month<? (make-cal-day 2023 5 22)
(make-cal-day 2023 5 22)))
(test-equal? cal-day/month->string
(cal-day/month->string (make-cal-day 2023 5 22))
"2023-05-22")
(test-equal? cal-day/month->string
(cal-day/month->string (make-cal-month 2023 5))
"2023-05")
))
)