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

Fix period tests with error reporting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 20:53:02 +01:00
parent 4b26c653d9
commit 019136319f
1 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
period.scm
View file

@ -75,7 +75,9 @@
(rmt (if cb 'stop 'start))
(mtype (car marker))
(month (cadr marker))
(line-number (caddr marker)))
(line-number (if (null? (cddr marker))
#f
(caddr marker))))
(if (eq? mtype rmt)
(if cb
(loop (cdr l)
@ -161,14 +163,20 @@
(test-equal? period-markers->periods
(period-markers->periods
'((start (2022 3)) (stop (2022 10)) (start (2023 1)) (stop (2023 4))))
'(((2022 3) . (2022 10))
((2023 1) . (2023 4))))
'(#t
(((2022 3) . (2022 10))
((2023 1) . (2023 4)))
""
-1))
(test-equal? period-markers->periods-open
(period-markers->periods
'((start (2022 3)) (stop (2022 10)) (start (2023 1)) (stop (2023 4)) (start (2023 5))))
'(((2022 3) . (2022 10))
((2023 1) . (2023 4))
((2023 5) . #f)))
'(#t
(((2022 3) . (2022 10))
((2023 1) . (2023 4))
((2023 5) . #f))
""
-1))
(test-eq? period-duration
(period->duration '((2023 1) . (2023 4))) 3)
(parameterize ((*current-month* (list 2023 4)))