"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "gnucash/report/test/test-test-extras.scm" between
gnucash-5.0.tar.bz2 and gnucash-5.1.tar.bz2

About: GnuCash is personal and small-business financial-accounting software.

test-test-extras.scm  (gnucash-5.0.tar.bz2)	:	test-test-extras.scm  (gnucash-5.1.tar.bz2)
skipping to change at line 31		skipping to change at line 31
(use-modules (tests test-engine-extras))		(use-modules (tests test-engine-extras))
(use-modules (gnucash engine))		(use-modules (gnucash engine))
(use-modules (sw_engine))		(use-modules (sw_engine))
(define (run-test)		(define (run-test)
(test-create-account-structure))		(test-create-account-structure))
(define (test-create-account-structure)		(define (test-create-account-structure)
(let ((env (create-test-env)))		(let ((env (create-test-env)))
(let ((accounts (env-create-account-structure env (list "Assets"		(let ((accounts (env-create-account-structure env (list "Assets"
(list (cons 'type ACC		(list (cons 'type AC
T-TYPE-ASSET))		CT-TYPE-ASSET))
(list "Bank Account")		(list "Bank Account"
(list "Savings"		)
(list "Instant"		(list "Savings"
)		(list "Instant
(list "30 day n		")
otice"))))))		(list "30 day
		notice"))))))
(format #t "Accounts ~a\n" accounts)		(format #t "Accounts ~a\n" accounts)
(and (= 3 (length accounts))		(and (= 3 (length accounts))
(equal? "Assets" (xaccAccountGetName (car accounts)))		(equal? "Assets" (xaccAccountGetName (car accounts)))
))))		))))
End of changes. 2 change blocks.
8 lines changed or deleted		9 lines changed or added

---