gnucash maint: [qif/test-qif-parse] increase coverage

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/c7e60c1d (commit)
	from  https://github.com/Gnucash/gnucash/commit/100ef2a0 (commit)



commit c7e60c1d534b884a9b255018fe03da212e9f985b
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Mon Aug 5 19:04:12 2019 +0800

    [qif/test-qif-parse] increase coverage

diff --git a/gnucash/import-export/qif-imp/test/test-qif-parse.scm b/gnucash/import-export/qif-imp/test/test-qif-parse.scm
index 6e550a629..e4ad5ca91 100644
--- a/gnucash/import-export/qif-imp/test/test-qif-parse.scm
+++ b/gnucash/import-export/qif-imp/test/test-qif-parse.scm
@@ -163,6 +163,12 @@
      "03/03/79"
      '(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"
     '(y-m-d y-d-m)
     (qif-parse:check-date-format
@@ -278,7 +284,6 @@
     (qif-parse:parse-numbers/format '("1" #f "300")
                                     'integer)))
 
-;; unfinished
 (define (test-qif-split:parse-category)
   
   (test-equal "qif-split:parse-category [Transfer]/Class"
@@ -301,6 +306,18 @@
     '("Category" #f "" "miscx-category" #f "")
     (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]"
     '("Category" #f "" "miscx-account" #t "")
     (qif-split:parse-category #f "Category/|[miscx-account]"))



Summary of changes:
 gnucash/import-export/qif-imp/test/test-qif-parse.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)