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 6e550a629e..e4ad5ca919 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]"))