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-transaction] test for display/enable links? feature

Browse Source
This commit is contained in:
Christopher Lam 2018-09-26 21:46:29 +08:00
parent f1e8de6886
commit a832600182
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnucash/report/standard-reports/test/test-transaction.scm
View File

@ -472,6 +472,16 @@
(length ((sxpath '(// (table 1) // (tr -1) // td)) sxml)) (length ((sxpath '(// (table 1) // (tr -1) // td)) sxml))
1))) 1)))
(set-option! options "Display" "Enable links" #f)
(let ((sxml (options->sxml options "disable hyperlinks")))
(test-assert "no anchor when disabling hyperlinks"
(zero? (length ((sxpath '(// a // *text*)) sxml)))))
(set-option! options "Display" "Enable links" #t)
(let ((sxml (options->sxml options "enable hyperlinks")))
(test-assert "anchors exist when enabling hyperlinks"
(positive? (length ((sxpath '(// a // *text*)) sxml)))))
(set-option! options "Display" "Amount" 'none) (set-option! options "Display" "Amount" 'none)
(let ((sxml (options->sxml options "no columns"))) (let ((sxml (options->sxml options "no columns")))
(test-assert "all display columns off, without amount nor subtotals, there should be 0 column" (test-assert "all display columns off, without amount nor subtotals, there should be 0 column"