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

Update test-gnc-optiondb.scm for not renaming the RelativeDatePeriod enums.

Browse Source
This commit is contained in:
John Ralls 2021-02-25 10:42:58 -08:00
parent 43cd81ba78
commit d9984f75ab
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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