mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Calc: fix business days calculation (bug43677)

Browse source 
The calculation of business days was broken in 2012 (probably
310e60d945 or thereabouts) when the date representation changed
epoch so that Jan 1, 1 AD became day number 1 instead of 0.  Repair
this, along with an unrelated bug that prevented arbitrary holiday
weekdays from working.

Reported by Aaron Zeng.

* lisp/calc/calc-forms.el (math-to-business-day)
(math-from-business-day): Correct calculation of weekdays using Calc's
current (Rata Die) chronology.  Modify loop condition to cope with odd
sets of holiday weekdays.
* test/lisp/calc/calc-tests.el (calc-business-days): New test.
This commit is contained in:
Mattias Engdegård 2020-09-30 23:57:27 +02:00
parent d037a6a2e6
commit 4cb16b6f42
2 changed files with 83 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

76
test/lisp/calc/calc-tests.el
View file

@ -458,6 +458,82 @@ An existing calc stack is reused, otherwise a new one is created."
(calcFunc-choose '(frac -15 2) 3))
(calc-tests--choose -7.5 3))))
(ert-deftest calc-business-days ()
(cl-flet ((m (s) (math-parse-date s))
(b+ (a b) (calcFunc-badd a b))
(b- (a b) (calcFunc-bsub a b)))
;; Sanity check.
(should (equal (m "2020-09-07") '(date 737675)))
;; Test with standard business days (Mon-Fri):
(should (equal (b+ (m "2020-09-07") 1) (m "2020-09-08"))) ; Mon->Tue
(should (equal (b+ (m "2020-09-08") 1) (m "2020-09-09"))) ; Tue->Wed
(should (equal (b+ (m "2020-09-09") 1) (m "2020-09-10"))) ; Wed->Thu
(should (equal (b+ (m "2020-09-10") 1) (m "2020-09-11"))) ; Thu->Fri
(should (equal (b+ (m "2020-09-11") 1) (m "2020-09-14"))) ; Fri->Mon
(should (equal (b+ (m "2020-09-07") 4) (m "2020-09-11"))) ; Mon->Fri
(should (equal (b+ (m "2020-09-07") 6) (m "2020-09-15"))) ; Mon->Tue
(should (equal (b+ (m "2020-09-12") 1) (m "2020-09-14"))) ; Sat->Mon
(should (equal (b+ (m "2020-09-13") 1) (m "2020-09-14"))) ; Sun->Mon
(should (equal (b- (m "2020-09-11") 1) (m "2020-09-10"))) ; Fri->Thu
(should (equal (b- (m "2020-09-10") 1) (m "2020-09-09"))) ; Thu->Wed
(should (equal (b- (m "2020-09-09") 1) (m "2020-09-08"))) ; Wed->Tue
(should (equal (b- (m "2020-09-08") 1) (m "2020-09-07"))) ; Tue->Mon
(should (equal (b- (m "2020-09-07") 1) (m "2020-09-04"))) ; Mon->Fri
(should (equal (b- (m "2020-09-11") 4) (m "2020-09-07"))) ; Fri->Mon
(should (equal (b- (m "2020-09-15") 6) (m "2020-09-07"))) ; Tue->Mon
(should (equal (b- (m "2020-09-12") 1) (m "2020-09-11"))) ; Sat->Fri
(should (equal (b- (m "2020-09-13") 1) (m "2020-09-11"))) ; Sun->Fri
;; Stepping fractional days
(should (equal (b+ (m "2020-09-08 21:00") '(frac 1 2))
(m "2020-09-09 09:00")))
(should (equal (b+ (m "2020-09-11 21:00") '(frac 1 2))
(m "2020-09-14 09:00")))
(should (equal (b- (m "2020-09-08 21:00") '(frac 1 2))
(m "2020-09-08 09:00")))
(should (equal (b- (m "2020-09-14 06:00") '(frac 1 2))
(m "2020-09-11 18:00")))
;; Test with a couple of extra days off:
(let ((var-Holidays (list 'vec
'(var sat var-sat) '(var sun var-sun)
(m "2020-09-09") (m "2020-09-11"))))
(should (equal (b+ (m "2020-09-07") 1) (m "2020-09-08"))) ; Mon->Tue
(should (equal (b+ (m "2020-09-08") 1) (m "2020-09-10"))) ; Tue->Thu
(should (equal (b+ (m "2020-09-10") 1) (m "2020-09-14"))) ; Thu->Mon
(should (equal (b+ (m "2020-09-14") 1) (m "2020-09-15"))) ; Mon->Tue
(should (equal (b+ (m "2020-09-15") 1) (m "2020-09-16"))) ; Tue->Wed
(should (equal (b- (m "2020-09-16") 1) (m "2020-09-15"))) ; Wed->Tue
(should (equal (b- (m "2020-09-15") 1) (m "2020-09-14"))) ; Tue->Mon
(should (equal (b- (m "2020-09-14") 1) (m "2020-09-10"))) ; Mon->Thu
(should (equal (b- (m "2020-09-10") 1) (m "2020-09-08"))) ; Thu->Tue
(should (equal (b- (m "2020-09-08") 1) (m "2020-09-07"))) ; Tue->Mon
)
;; Test with odd non-business weekdays (Tue, Wed, Sat):
(let ((var-Holidays '(vec (var tue var-tue)
(var wed var-wed)
(var sat var-sat))))
(should (equal (b+ (m "2020-09-07") 1) (m "2020-09-10"))) ; Mon->Thu
(should (equal (b+ (m "2020-09-10") 1) (m "2020-09-11"))) ; Thu->Fri
(should (equal (b+ (m "2020-09-11") 1) (m "2020-09-13"))) ; Fri->Sun
(should (equal (b+ (m "2020-09-13") 1) (m "2020-09-14"))) ; Sun->Mon
(should (equal (b- (m "2020-09-14") 1) (m "2020-09-13"))) ; Mon->Sun
(should (equal (b- (m "2020-09-13") 1) (m "2020-09-11"))) ; Sun->Fri
(should (equal (b- (m "2020-09-11") 1) (m "2020-09-10"))) ; Fri->Thu
(should (equal (b- (m "2020-09-10") 1) (m "2020-09-07"))) ; Thu->Mon
)
))
(provide 'calc-tests)
;;; calc-tests.el ends here