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-extras.scm: remove dead code

Browse Source 
These functions are never used through code.
This commit is contained in:
Christopher Lam 2018-05-06 22:58:38 +08:00
parent 8ddee96463
commit 5e0fc04f7b
2 changed files with 1 additions and 148 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
gnucash/report/report-system/test/test-extras.scm
View File

@ -26,19 +26,12 @@
(export pattern-streamer)
(export create-option-set)
(export option-set-setter)
(export option-set-getter)
(export tbl-column-count)
(export tbl-row-count)
(export tbl-ref)
(export tbl-ref->number)
(export gnc:options->sxml)
;;
;; Random report test related syntax and the like
;;
;;
;; Table parsing
@ -91,71 +84,6 @@
(define (tbl-ref->number tbl row-index column-index)
(string->number (car (tbl-ref tbl row-index column-index))))
;;
;; Test sinks
;;
(define (make-test-sink) (list 'sink 0 '()))
(define (test-sink-count sink)
(second sink))
(define (test-sink-count! sink value)
(set-car! (cdr sink) value))
(define (test-sink-messages sink)
(third sink))
(define (test-sink-messages! sink messages)
(set-car! (cdr (cdr sink)) messages))
(define (test-sink-check sink message flag)
(test-sink-count! sink (+ (test-sink-count sink) 1))
(if flag #t
(test-sink-messages! sink (cons message (test-sink-messages sink)))))
(define (test-sink-report sink)
(format #t "Completed ~a tests ~a\n"
(test-sink-count sink)
(if (null? (test-sink-messages sink)) "PASS" "FAIL"))
(if (null? (test-sink-messages sink)) #t
(begin (for-each (lambda (delayed-message)
(delayed-format-render #t delayed-message))
(test-sink-messages sink))
#f)))
(define (delayed-format . x) x)
(define (delayed-format-render stream msg)
(apply format stream msg))
;;
;; options
;;
(define (create-option-set)
(make-hash-table) )
(define (option-set-setter option-set)
(lambda (category name value)
(hash-set! option-set (list category name) value)))
(define (option-set-getter option-set)
(lambda (category name)
(hash-ref option-set (list category name))))
;;
;;
;;
(define (report-show-options stream expense-options)
(gnc:options-for-each (lambda (option)
(format stream "Option: ~a.~a Value ~a\n"
(gnc:option-section option)
(gnc:option-name option)
(gnc:option-value option)))
expense-options))
(define (gnc:options->sxml uuid options prefix test-title)
;; uuid - str to locate report uuid

77
libgnucash/engine/test/test-extras.scm
View File

@ -29,13 +29,6 @@
(export logging-and)
(export test)
(export make-test-sink)
(export env-test-sink)
(export test-sink-report)
(export test-sink-check)
(export delayed-format)
(export delayed-format-render)
(export with-account)
(export with-transaction)
@ -112,8 +105,7 @@
(define (create-test-env)
(list (cons 'random (seed->random-state (random 1000)))
(cons 'counter (make-counter))
(cons 'sink (make-test-sink))))
(cons 'counter (make-counter))))
(define (env-random-amount env n)
(/ (env-random env n) 1))
@ -130,9 +122,6 @@
(define (env-select-price-source env)
'pricedb-nearest)
(define (env-test-sink env)
(assoc-ref env 'sink))
(define (env-any-date env) (gnc:get-today))
(define (env-create-transaction env date credit debit aaa)
@ -324,69 +313,5 @@
(list "Other")
(list "Expenses"
(list (cons 'type ACCT-TYPE-EXPENSE))))))
;;
;; Test sinks
;;
(define (make-test-sink) (list 'sink 0 '()))
(define (test-sink-count sink)
(second sink))
(define (test-sink-count! sink value)
(set-car! (cdr sink) value))
(define (test-sink-messages sink)
(third sink))
(define (test-sink-messages! sink messages)
(set-car! (cdr (cdr sink)) messages))
(define (test-sink-check sink message flag)
(test-sink-count! sink (+ (test-sink-count sink) 1))
(if flag #t
(test-sink-messages! sink (cons message (test-sink-messages sink)))))
(define (test-sink-report sink)
(format #t "Completed ~a tests ~a\n"
(test-sink-count sink)
(if (null? (test-sink-messages sink)) "PASS" "FAIL"))
(if (null? (test-sink-messages sink)) #t
(begin (for-each (lambda (delayed-message)
(delayed-format-render #t delayed-message))
(test-sink-messages sink))
#f)))
(define (delayed-format . x) x)
(define (delayed-format-render stream msg)
(apply format stream msg))
;;
;; options
;;
(define (create-option-set)
(make-hash-table) )
(define (option-set-setter option-set)
(lambda (category name value)
(hash-set! option-set (list category name) value)))
(define (option-set-getter option-set)
(lambda (category name)
(hash-ref option-set (list category name))))
;;
;;
;;
(define (report-show-options stream expense-options)
(gnc:options-for-each (lambda (option)
(format stream "Option: ~a.~a Value ~a\n"
(gnc:option-section option)
(gnc:option-name option)
(gnc:option-value option)))
expense-options))