aherman
/
gnucash
mirror of https://github.com/Gnucash/gnucash
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[qif/test-qif-parse] initial commit

Browse Source 
near-100% coverage for qif-parse.scm
pull/546/head
Christopher Lam 7 years ago
parent a7a3f78648
commit 8b7093e8d0
2 changed files with 281 additions and 0 deletions
Show Stats Download Patch File Download Diff File

1
gnucash/import-export/qif-imp/test/CMakeLists.txt
Unescape View File

@ -5,6 +5,7 @@ set(QIF_IMP_TEST_LIBS)
set(scm_qifimp_test_with_srfi64_SOURCES
test-qif-imp.scm
test-qif-parse.scm
)

280
gnucash/import-export/qif-imp/test/test-qif-parse.scm
Unescape View File

@ -0,0 +1,280 @@
(use-modules (gnucash gnc-module))
(gnc:module-begin-syntax (gnc:module-load "gnucash/app-utils" 0))
(use-modules (srfi srfi-64))
(use-modules (gnucash engine test srfi64-extras))
(use-modules (gnucash import-export qif-import))
(use-modules (gnucash import-export string))
(define (run-test)
(test-runner-factory gnc:test-runner)
(test-begin "test-qif-imp")
(test-qif-parse:fix-year)
(test-qif-parse:parse-acct-type)
(test-qif-parse:parse-cleared-field)
(test-qif-parse:parse-action-field)
(test-qif-parse:check-date-format)
(test-qif-parse:parse-date/format)
(test-qif-parse:check-number-format)
(test-qif-parse:parse-number/format)
(test-qif-parse:check-number-formats)
(test-qif-parse:parse-numbers/format)
(test-qif-split:parse-category)
(test-end "test-qif-imp"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; qif-parse.scm
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the following isn't exported but can be tested anyway!
(define qif-parse:fix-year
(@@ (gnucash import-export qif-import) qif-parse:fix-year))
(define qif-parse:parse-acct-type
(@@ (gnucash import-export qif-import) qif-parse:parse-acct-type))
(define qif-parse:parse-cleared-field
(@@ (gnucash import-export qif-import) qif-parse:parse-cleared-field))
(define qif-split:parse-category
(@@ (gnucash import-export qif-import) qif-split:parse-category))
(define qif-parse:parse-action-field
(@@ (gnucash import-export qif-import) qif-parse:parse-action-field))
(define qif-parse:check-date-format
(@@ (gnucash import-export qif-import) qif-parse:check-date-format))
(define qif-parse:parse-date/format
(@@ (gnucash import-export qif-import) qif-parse:parse-date/format))
(define qif-parse:check-number-format
(@@ (gnucash import-export qif-import) qif-parse:check-number-format))
(define qif-parse:parse-number/format
(@@ (gnucash import-export qif-import) qif-parse:parse-number/format))
(define qif-parse:check-number-formats
(@@ (gnucash import-export qif-import) qif-parse:check-number-formats))
(define qif-parse:parse-numbers/format
(@@ (gnucash import-export qif-import) qif-parse:parse-numbers/format))
(define (test-qif-parse:fix-year)
(test-equal "qif-parse:fix-year 1998"
1998
(qif-parse:fix-year "1998" 50))
(test-equal "qif-parse:fix-year ' 0 = 2000"
2000
(qif-parse:fix-year "' 0" 50))
(test-equal "qif-parse:fix-year 98>50 = 1998"
1998
(qif-parse:fix-year "98" 50))
(test-equal "qif-parse:fix-year 48<50 = 2048"
2048
(qif-parse:fix-year "48" 50))
(test-equal "qif-parse:fix-year 19134 = 2034"
2034
(qif-parse:fix-year "19134" 50))
(test-equal "qif-parse:fix-year 102 = 2002"
2002
(qif-parse:fix-year "102" 50)))
(define (test-qif-parse:parse-acct-type)
(test-equal "qif-parse:parse-acct-type ccard"
(list 3)
(qif-parse:parse-acct-type "ccard" #f #f))
(test-equal "qif-parse:parse-acct-type oth s"
(list 2 0 1)
(qif-parse:parse-acct-type "oth s" #f #f))
(test-equal "qif-parse:parse-acct-type zzz"
(list 0)
(qif-parse:parse-acct-type "zzz" (const #f) #f)))
(define (test-qif-parse:parse-cleared-field)
(test-equal "qif-parse:parse-cleared-field xx = reconciled"
'reconciled
(qif-parse:parse-cleared-field "xx" (const #f) #f))
(test-equal "qif-parse:parse-cleared-field cc = cleared"
'cleared
(qif-parse:parse-cleared-field "cc" (const #f) #f))
(test-equal "qif-parse:parse-cleared-field !! = budgeted"
'budgeted
(qif-parse:parse-cleared-field "!!" (const #f) #f))
(test-equal "qif-parse:parse-cleared-field qq = #f"
#f
(qif-parse:parse-cleared-field "qq" (const #f) #f)))
(define (test-qif-parse:parse-action-field)
(test-equal "qif-parse:parse-action-field BuY"
'buy
(qif-parse:parse-action-field "BuY" (const #f) #f))
(test-equal "qif-parse:parse-action-field WithDrwX"
'xout
(qif-parse:parse-action-field "WithDrwX" (const #f) #f))
(test-equal "qif-parse:parse-action-field k.gewspx"
'cgshortx
(qif-parse:parse-action-field "k.gewspx" (const #f) #f)))
(define (test-qif-parse:check-date-format)
(test-equal "qif-parse:check-date-format 20/02/1981"
'(d-m-y)
(qif-parse:check-date-format
"20/02/1981"
'(d-m-y y-m-d y-d-m m-d-y)))
(test-equal "qif-parse:check-date-format 12/02/1981"
'(d-m-y m-d-y)
(qif-parse:check-date-format
"12/02/1981"
'(d-m-y y-m-d y-d-m m-d-y)))
(test-equal "qif-parse:check-date-format 1979/03/03"
'(y-m-d y-d-m)
(qif-parse:check-date-format
"1979/03/03"
'(d-m-y y-m-d m-d-y y-d-m)))
(test-equal "qif-parse:check-date-format 19790303"
'(y-m-d y-d-m)
(qif-parse:check-date-format
"19790303"
'(d-m-y y-m-d m-d-y y-d-m))))
(define (test-qif-parse:parse-date/format)
(test-equal "qif-parse:parse-date/format ok"
(list 31 01 1981)
(qif-parse:parse-date/format "31/01/81" 'd-m-y))
(test-equal "qif-parse:parse-date/format error"
#f
(qif-parse:parse-date/format "31/01/81" 'm-d-y)))
(define (test-qif-parse:check-number-format)
(test-equal "test-qif-parse:check-number-format 1,00"
'(comma)
(qif-parse:check-number-format "1,00" '(comma integer decimal)))
(test-equal "test-qif-parse:check-number-format 999"
'(comma integer decimal)
(qif-parse:check-number-format "999" '(comma integer decimal)))
(test-equal "test-qif-parse:check-number-format 999.20"
'(decimal)
(qif-parse:check-number-format "999.20" '(comma integer decimal)))
(test-equal "test-qif-parse:check-number-format 9.200,99"
'(comma)
(qif-parse:check-number-format "9.200,99" '(comma integer decimal)))
(test-equal "test-qif-parse:check-number-format $1000"
'(comma integer decimal)
(qif-parse:check-number-format "$1000" '(comma integer decimal))))
(define (test-qif-parse:parse-number/format)
(test-equal "qif-parse:parse-number/format 1,23"
123/100
(qif-parse:parse-number/format "1,23" 'comma))
(test-equal "qif-parse:parse-number/format 1,234.00"
1234
(qif-parse:parse-number/format "1,234.00" 'decimal))
(test-equal "qif-parse:parse-number/format -1234"
-1234
(qif-parse:parse-number/format "-1234" 'integer))
(test-equal "qif-parse:parse-number/format 1234"
1234
(qif-parse:parse-number/format "1234" 'integer))
)
(define (test-qif-parse:check-number-formats)
(test-equal "qif-parse:check-number-formats 1,000 2,000 300"
'(comma)
(qif-parse:check-number-formats '("1,00" "2,00" "300,00")
'(decimal comma integer)))
(test-equal "qif-parse:check-number-formats 10.50 20.54"
'(decimal)
(qif-parse:check-number-formats '("10.50" "20.54")
'(decimal comma integer)))
(test-equal "qif-parse:check-number-formats 1234 4567"
'(decimal comma integer)
(qif-parse:check-number-formats '("1234" "4567")
'(decimal comma integer))))
(define (test-qif-parse:parse-numbers/format)
(test-equal "qif-parse:parse-numbers/format 1,00 2,00 300,00"
'(1 2 300)
(qif-parse:parse-numbers/format '("1,00" "2,00" "300,00")
'comma))
(test-equal "qif-parse:parse-numbers/format 1,00 2,50 3,99"
'(1 5/2 399/100)
(qif-parse:parse-numbers/format '("1,00" "2,50" "3,99")
'comma))
(test-equal "qif-parse:parse-numbers/format 1.00 2.00 300.00"
'(1 2 300)
(qif-parse:parse-numbers/format '("1.00" "2.00" "300.00")
'decimal))
(test-equal "qif-parse:parse-numbers/format 1 2 300"
'(1 2 300)
(qif-parse:parse-numbers/format '("1" "2" "300")
'integer))
(test-equal "qif-parse:parse-numbers/format 1 * 300"
'(1 0 300)
(qif-parse:parse-numbers/format '("1" "*" "300")
'integer))
(test-equal "qif-parse:parse-numbers/format 1 #f 300"
'(1 0 300)
(qif-parse:parse-numbers/format '("1" #f "300")
'integer)))
;; unfinished
(define (test-qif-split:parse-category)
(test-equal "qif-split:parse-category"
'("LGas" #f "" #f #f #f)
(qif-split:parse-category #f "LGas")))
Write Preview
Loading…
Cancel
Save