IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Test more natural way of designating relative dates.

Browse Source
This commit is contained in:
John Ralls 2021-05-03 09:39:19 -07:00
parent 23461f1d6c
commit 7239eb809a
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
libgnucash/app-utils/test/test-gnc-optiondb.scm
View File

@ -212,15 +212,15 @@
(let* ((option-db (new-gnc-optiondb))
(date-opt (gnc-register-date-option-set
option-db "foo" "bar" "baz" "Phony Option"
(list (RelativeDatePeriod-TODAY)
(RelativeDatePeriod-START-THIS-MONTH)
(RelativeDatePeriod-START-PREV-MONTH)
(RelativeDatePeriod-START-CURRENT-QUARTER)
(RelativeDatePeriod-START-PREV-QUARTER)
(RelativeDatePeriod-START-CAL-YEAR)
(RelativeDatePeriod-START-CAL-YEAR)
(RelativeDatePeriod-START-PREV-YEAR)
(RelativeDatePeriod-START-ACCOUNTING-PERIOD)) #t)))
`(today
start-this-month
start-prev-month
start-current-quarter
start-prev-quarter
start-cal-year
start-cal-year
start-prev-year
start-accounting-period) #t)))
(test-equal (gnc-accounting-period-fiscal-start)
(gnc-option-value option-db "foo" "bar")))
(test-end "test-gnc-test-date-set-option"))