mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
The value of a list-option is a list. Duh.
This commit is contained in:
parent
12f8df1eab
commit
23461f1d6c
@ -189,10 +189,10 @@
|
||||
(list-op (gnc-register-list-option option-db "foo" "bar" "baz"
|
||||
"Phony Option" "AvgBalPlot"
|
||||
value-list)))
|
||||
(test-equal "AvgBalPlot" (gnc-option-value option-db "foo" "bar"))
|
||||
(gnc-set-option option-db "foo" "bar" "GLPlot")
|
||||
(test-equal "GLPlot" (gnc-option-value option-db "foo" "bar"))
|
||||
(test-equal "AvgBalPlot" (gnc-option-default-value option-db "foo" "bar")))
|
||||
(test-equal '("AvgBalPlot") (gnc-option-value option-db "foo" "bar"))
|
||||
(gnc-set-option option-db "foo" "bar" '("GainPlot" "GLPlot"))
|
||||
(test-equal '("GainPlot" "GLPlot") (gnc-option-value option-db "foo" "bar"))
|
||||
(test-equal '("AvgBalPlot") (gnc-option-default-value option-db "foo" "bar")))
|
||||
(test-end "test-gnc-test-list-option"))
|
||||
|
||||
(define (test-gnc-make-date-option)
|
||||
|
Loading…
Reference in New Issue
Block a user