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

50
doc/calendar.md
View file

@ -333,6 +333,56 @@ Parses the string and returns a valid cal-day structure.
Tries parsing the string as cal-day and returns the result upon
success. Upon failure, parses the string as cal-month.
(cal-day=? a b)
* ```a``` - a cal-day value
* ```b``` - a cal-day value
Returns ```#t``` if ```a``` respresents the same date as ```b``` in
calendar.
(cal-day<? a b)
* ```a``` - a cal-day value
* ```b``` - a cal-day value
Returns ```#t``` if ```a``` comes before ```b``` in calendar.
(cal-day<=? a b)
* ```a``` - a cal-day value
* ```b``` - a cal-day value
Returns ```#t``` if ```a``` comes before or is the same date as
```b``` in calendar.
(cal-day>=? a b)
* ```a``` - a cal-day value
* ```b``` - a cal-day value
Returns ```#t``` if ```a``` comes after or is the same date as ```b```
in calendar.
(cal-day>? a b)
Returns ```#t``` if ```a``` comes after ```b``` in calendar.
(cal-day/month<? a b)
* ```a``` - a cal-day or cal-month value
* ```b``` - a cal-day or cal-month value
Returns ```#t``` if ```a``` and ```b``` are of the same type and
```a``` comes before ```b``` in calendar. Raises error if the values
are not of the same type.
(cal-day/month->string v)
* ```v``` - a cal-day or cal-month value
Returns appropriate string representation of given value.
### Format
(import cal-format)

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")
))
)