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

[qif/test-qif-parse] increase coverage

Browse Source
This commit is contained in:
Christopher Lam 2019-08-05 19:04:12 +08:00
parent 100ef2a01d
commit c7e60c1d53
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -163,6 +163,12 @@
"03/03/79" "03/03/79"
'(d-m-y y-m-d m-d-y y-d-m))) '(d-m-y y-m-d m-d-y y-d-m)))
(test-equal "qif-parse:check-date-format 03121984"
'(d-m-y m-d-y)
(qif-parse:check-date-format
"03121984"
'(d-m-y y-m-d m-d-y y-d-m)))
(test-equal "qif-parse:check-date-format 19790303" (test-equal "qif-parse:check-date-format 19790303"
'(y-m-d y-d-m) '(y-m-d y-d-m)
(qif-parse:check-date-format (qif-parse:check-date-format
@ -278,7 +284,6 @@
(qif-parse:parse-numbers/format '("1" #f "300") (qif-parse:parse-numbers/format '("1" #f "300")
'integer))) 'integer)))
;; unfinished
(define (test-qif-split:parse-category) (define (test-qif-split:parse-category)
(test-equal "qif-split:parse-category [Transfer]/Class" (test-equal "qif-split:parse-category [Transfer]/Class"
@ -301,6 +306,18 @@
'("Category" #f "" "miscx-category" #f "") '("Category" #f "" "miscx-category" #f "")
(qif-split:parse-category #f "Category/|miscx-category")) (qif-split:parse-category #f "Category/|miscx-category"))
(test-equal "qif-split:parse-category Category/Class|miscx-category"
'("Category" #f "Class" "miscx-category" #f "")
(qif-split:parse-category #f "Category/Class|miscx-category"))
(test-equal "qif-split:parse-category [Transfer]/Class|miscx-category"
'("Transfer" #t "Class" "miscx-category" #f "")
(qif-split:parse-category #f "[Transfer]/Class|miscx-category"))
(test-equal "qif-split:parse-category [Transfer]/Class|miscx-category/miscx-class"
'("Transfer" #t "Class" "miscx-category" #f "miscx-class")
(qif-split:parse-category #f "[Transfer]/Class|miscx-category/miscx-class"))
(test-equal "qif-split:parse-category Category/|[miscx-account]" (test-equal "qif-split:parse-category Category/|[miscx-account]"
'("Category" #f "" "miscx-account" #t "") '("Category" #f "" "miscx-account" #t "")
(qif-split:parse-category #f "Category/|[miscx-account]")) (qif-split:parse-category #f "Category/|[miscx-account]"))