From 8b7093e8d02f8d0d7a124cba7b1190114abf81c5 Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Wed, 31 Jul 2019 19:34:53 +0800
Subject: [PATCH] [qif/test-qif-parse] initial commit

near-100% coverage for qif-parse.scm
---
 .../import-export/qif-imp/test/CMakeLists.txt |   1 +
 .../qif-imp/test/test-qif-parse.scm           | 280 ++++++++++++++++++
 2 files changed, 281 insertions(+)
 create mode 100644 gnucash/import-export/qif-imp/test/test-qif-parse.scm

diff --git a/gnucash/import-export/qif-imp/test/CMakeLists.txt b/gnucash/import-export/qif-imp/test/CMakeLists.txt
index 119303ae80..629eaa6357 100644
--- a/gnucash/import-export/qif-imp/test/CMakeLists.txt
+++ b/gnucash/import-export/qif-imp/test/CMakeLists.txt
@@ -5,6 +5,7 @@ set(QIF_IMP_TEST_LIBS)
 
 set(scm_qifimp_test_with_srfi64_SOURCES
   test-qif-imp.scm
+  test-qif-parse.scm
   )
 
 
diff --git a/gnucash/import-export/qif-imp/test/test-qif-parse.scm b/gnucash/import-export/qif-imp/test/test-qif-parse.scm
new file mode 100644
index 0000000000..1fe5d57674
--- /dev/null
+++ b/gnucash/import-export/qif-imp/test/test-qif-parse.scm
@@ -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")))