2019-11-23 08:37:18 -06:00
|
|
|
(use-modules (gnucash app-utils))
|
2019-07-27 22:45:34 -05:00
|
|
|
(use-modules (srfi srfi-64))
|
2019-08-04 05:51:49 -05:00
|
|
|
(use-modules (tests srfi64-extras))
|
2019-07-27 22:45:34 -05:00
|
|
|
|
|
|
|
|
(define (run-test)
|
|
|
|
|
(test-runner-factory gnc:test-runner)
|
|
|
|
|
(test-begin "test-options")
|
|
|
|
|
(test-lookup-option)
|
|
|
|
|
(test-end "test-options"))
|
|
|
|
|
|
|
|
|
|
(define (test-lookup-option)
|
|
|
|
|
(let ((options (gnc:new-options)))
|
|
|
|
|
(gnc:register-option
|
|
|
|
|
options
|
|
|
|
|
(gnc:make-simple-boolean-option
|
|
|
|
|
"Section" "Start Date" "sort-tag" "docstring" 'default-val))
|
|
|
|
|
|
|
|
|
|
(gnc:register-option
|
|
|
|
|
options
|
|
|
|
|
(gnc:make-simple-boolean-option
|
|
|
|
|
"Filter" "Void Transactions" "sort-tag" "docstring" 'default-val))
|
|
|
|
|
|
|
|
|
|
(test-assert "lookup-option changed name"
|
|
|
|
|
(gnc:lookup-option options "Section" "From"))
|
|
|
|
|
|
|
|
|
|
(test-assert "lookup-option changed section and name"
|
|
|
|
|
(gnc:lookup-option options "Section" "Void Transactions?"))))
|
