test-budget.scm (gnucash-5.0.tar.bz2) | : | test-budget.scm (gnucash-5.1.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 182 | skipping to change at line 182 | |||
(test-equal "basic test" | (test-equal "basic test" | |||
72 | 72 | |||
(length (sxml->table-row-col sxml 1 #f #f))) | (length (sxml->table-row-col sxml 1 #f #f))) | |||
(test-equal "budgeted income amounts" | (test-equal "budgeted income amounts" | |||
'("$195.00" "Income") | '("$195.00" "Income") | |||
((sxpath '(// table // (tr 1) // table // (tr 3) // *text*)) | ((sxpath '(// table // (tr 1) // table // (tr 3) // *text*)) | |||
sxml)) | sxml)) | |||
(test-equal "net loss for budget" | (test-equal "net loss for budget" | |||
'("Net loss for Budget test budget" "$285.00") | '("Net income for Budget test budget" "$105.00") | |||
((sxpath '(// table // (tr 2) // table // (tr 5) // *text*)) | ((sxpath '(// table // (tr 2) // table // (tr 5) // *text*)) | |||
sxml))))) | sxml))))) | |||
(define (test-budget-balance-sheet) | (define (test-budget-balance-sheet) | |||
(let* ((env (create-test-env)) | (let* ((env (create-test-env)) | |||
(account-alist (create-test-data)) | (account-alist (create-test-data)) | |||
(budget (gnc:create-budget-and-transactions env account-alist)) | (budget (gnc:create-budget-and-transactions env account-alist)) | |||
(options (gnc:make-report-options budget-bs-uuid)) | (options (gnc:make-report-options budget-bs-uuid)) | |||
(bank (assoc-ref account-alist "Bank"))) | (bank (assoc-ref account-alist "Bank"))) | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |