From 7239eb809ac4b807aebd05020f9b317e4a5c341b Mon Sep 17 00:00:00 2001 From: John Ralls Date: Mon, 3 May 2021 09:39:19 -0700 Subject: [PATCH] Test more natural way of designating relative dates. --- .../app-utils/test/test-gnc-optiondb.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/libgnucash/app-utils/test/test-gnc-optiondb.scm b/libgnucash/app-utils/test/test-gnc-optiondb.scm index 0cf743c431..38215ce20a 100644 --- a/libgnucash/app-utils/test/test-gnc-optiondb.scm +++ b/libgnucash/app-utils/test/test-gnc-optiondb.scm @@ -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"))