From 277ba729d16e970adaa0efdcfadbcde79f523858 Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Sat, 3 Aug 2019 16:21:48 +0800
Subject: [PATCH] [qif/test-qif-parse] increase coverage

---
 .../qif-imp/test/test-qif-parse.scm           | 34 +++++++++++++++++--
 1 file changed, 31 insertions(+), 3 deletions(-)

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 1fe5d57674..ea47029d94 100644
--- a/gnucash/import-export/qif-imp/test/test-qif-parse.scm
+++ b/gnucash/import-export/qif-imp/test/test-qif-parse.scm
@@ -275,6 +275,34 @@
 ;; unfinished
 (define (test-qif-split:parse-category)
   
-  (test-equal "qif-split:parse-category"
-    '("LGas" #f "" #f #f #f)
-    (qif-split:parse-category #f "LGas")))
+  (test-equal "qif-split:parse-category [Transfer]/Class"
+    '("Transfer" #t "Class" #f #f #f)
+    (qif-split:parse-category #f "[Transfer]/Class"))
+
+  (test-equal "qif-split:parse-category Category/Class"
+    '("Category" #f "Class" #f #f #f)
+    (qif-split:parse-category #f "Category/Class"))
+
+  (test-equal "qif-split:parse-category Category"
+    '("Category" #f "" #f #f #f)
+    (qif-split:parse-category #f "Category"))
+
+  (test-equal "qif-split:parse-category [Transfer]"
+    '("Transfer" #t "" #f #f #f)
+    (qif-split:parse-category #f "[Transfer]"))
+
+  (test-equal "qif-split:parse-category Category/|miscx-category"
+    '("Category" #f "" "miscx-category" #f "")
+    (qif-split:parse-category #f "Category/|miscx-category"))
+
+  (test-equal "qif-split:parse-category Category/|[miscx-account]"
+    '("Category" #f "" "miscx-account" #t "")
+    (qif-split:parse-category #f "Category/|[miscx-account]"))
+
+  (test-equal "qif-split:parse-category Category/|miscx-category/miscx-class"
+    '("Category" #f "" "miscx-category" #f "miscx-class")
+    (qif-split:parse-category #f "Category/|miscx-category/miscx-class"))
+
+  (test-equal "qif-split:parse-category Category/|[miscx-account]/miscx-class"
+    '("Category" #f "" "miscx-account" #t "miscx-class")
+    (qif-split:parse-category #f "Category/|[miscx-account]/miscx-class")))