mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
112 lines
4.0 KiB
Scheme
112 lines
4.0 KiB
Scheme
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; This program is free software; you can redistribute it and/or
|
|
;; modify it under the terms of the GNU General Public License as
|
|
;; published by the Free Software Foundation; either version 2 of
|
|
;; the License, or (at your option) any later version.
|
|
;;
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program; if not, contact:
|
|
;;
|
|
;; Free Software Foundation Voice: +1-617-542-5942
|
|
;; 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652
|
|
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(use-modules (srfi srfi-1))
|
|
(use-modules (srfi srfi-14))
|
|
(use-modules (srfi srfi-64))
|
|
(use-modules (tests srfi64-extras))
|
|
|
|
(use-modules (gnucash utilities))
|
|
(use-modules (gnucash app-utils))
|
|
(use-modules (gnucash engine))
|
|
(use-modules (gnucash report))
|
|
(use-modules (gnucash reports standard equity-statement))
|
|
(use-modules (gnucash report stylesheets plain))
|
|
(use-modules (tests test-engine-extras))
|
|
(use-modules (tests test-report-extras))
|
|
|
|
;; Explicitly set locale to make the report output predictable
|
|
(setlocale LC_ALL "C")
|
|
(define uuid "c2a996c8970f43448654ca84f17dda24")
|
|
|
|
(define (run-test)
|
|
(test-runner-factory gnc:test-runner)
|
|
(test-begin "equity-statement")
|
|
(test-equity-statement)
|
|
(test-end "equity-statement"))
|
|
|
|
(define (set-option options page tag value)
|
|
(gnc-set-option (gnc:optiondb options) page tag value))
|
|
|
|
(define (teardown)
|
|
(gnc-clear-current-session))
|
|
|
|
(define (options->sxml options test-title)
|
|
(gnc:options->sxml uuid options "test-equity-statement" test-title))
|
|
|
|
(define (test-equity-statement)
|
|
(let* ((account-alist (create-test-data))
|
|
(options (gnc:make-report-options uuid))
|
|
(gbp-bank (assoc-ref account-alist "GBP Bank"))
|
|
(usd-bank (assoc-ref account-alist "Bank"))
|
|
(expense (assoc-ref account-alist "Expenses"))
|
|
(equity (assoc-ref account-alist "Equity"))
|
|
(income (assoc-ref account-alist "Income"))
|
|
(bank (assoc-ref account-alist "Bank")))
|
|
|
|
(gnc-commodity-set-user-symbol
|
|
(xaccAccountGetCommodity gbp-bank)
|
|
"#")
|
|
|
|
(let ((closing-txn (env-transfer #f 30 06 2003 expense equity
|
|
111 #:description "Closing Entries")))
|
|
(xaccTransSetIsClosingTxn closing-txn #t))
|
|
|
|
(env-transfer #f 01 06 2003 expense equity
|
|
33 #:description "Adjusting Entries")
|
|
(env-transfer #f 01 07 2003 income equity
|
|
-2500 #:description "Adjusting Entries")
|
|
|
|
(set-option options "General" "Start Date"
|
|
(cons 'absolute (gnc-dmy2time64 01 01 1970)))
|
|
(set-option options "General" "End Date"
|
|
(cons 'absolute (gnc-dmy2time64 01 01 2005)))
|
|
(let ((sxml (options->sxml options "current")))
|
|
(test-equal "current table has 22 cells"
|
|
14
|
|
(length (sxml->table-row-col sxml 1 #f #f)))
|
|
|
|
(test-equal "capital"
|
|
'("Capital, 01/01/70" "$29.00")
|
|
(sxml->table-row-col sxml 1 2 #f))
|
|
|
|
(test-equal "income"
|
|
'("Net income for Period" "$620.00")
|
|
(sxml->table-row-col sxml 1 3 #f))
|
|
|
|
(test-equal "investments"
|
|
'("Investments for Period" "$2,722.00")
|
|
(sxml->table-row-col sxml 1 4 #f))
|
|
|
|
(test-equal "withdrawals"
|
|
'("Withdrawals for Period" "$255.00")
|
|
(sxml->table-row-col sxml 1 5 #f))
|
|
|
|
(test-equal "unrealized"
|
|
'("Unrealized Losses for Period" "$1.00")
|
|
(sxml->table-row-col sxml 1 6 #f))
|
|
|
|
(test-equal "inc/dec in capital"
|
|
'("Increase in capital" "$3,086.00")
|
|
(sxml->table-row-col sxml 1 7 #f))
|
|
|
|
(test-equal "capital end"
|
|
'("Capital, 01/01/05" "$3,115.00")
|
|
(sxml->table-row-col sxml 1 8 #f)))))
|