"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
(list "Bank Account") (list "Bank Account"
(list "Savings" )
(list "Instant" (list "Savings"
) (list "Instant
(list "30 day n ")
otice")))))) (list "30 day
(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

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)