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

improved logging for HTML table tests

Browse Source
This commit is contained in:
Carsten Rinke
2018-10-12 18:29:26 +02:00
committed by Geert Janssens
parent 40a0bfd979
commit d048caeda3
1 changed files with 27 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
gnucash/report/report-system/test/test-report-html.scm
View File

@@ -608,8 +608,8 @@ HTML Document Title</title></head><body></body>\n\
(test-begin "HTML Tables - without style sheets") (test-begin "HTML Tables - without style sheets")
(test-begin "Row Manipulations") (test-begin "HTML Table - Row Manipulations")
(test-begin "Append Rows") (test-begin "HTML Table - Append Rows")
(let ( (let (
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
@@ -622,17 +622,17 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-table-set-caption! test-table #t) (gnc:html-table-set-caption! test-table #t)
(gnc:html-table-append-row! test-table "Row 1") (gnc:html-table-append-row! test-table "Row 1")
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")
(test-equal "Check Num Rows after append row" (test-equal "HTML Table - Check Num Rows after append row"
2 2
(gnc:html-table-num-rows test-table) (gnc:html-table-num-rows test-table)
) )
(test-equal "Check data after append row" (test-equal "HTML Table - Check data after append row"
'(("Row 2") ("Row 1")) '(("Row 2") ("Row 1"))
(gnc:html-table-data test-table) (gnc:html-table-data test-table)
) )
) )
(test-end "Append Rows") (test-end "HTML Table - Append Rows")
(test-begin "Remove Rows") (test-begin "HTML Table - Remove Rows")
(let ( (let (
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
@@ -646,19 +646,19 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-table-append-row! test-table "Row 1") (gnc:html-table-append-row! test-table "Row 1")
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")
(gnc:html-table-remove-last-row! test-table) (gnc:html-table-remove-last-row! test-table)
(test-equal "Check Num Rows after remove row" (test-equal "HTML Table - Check Num Rows after remove row"
1 1
(gnc:html-table-num-rows test-table) (gnc:html-table-num-rows test-table)
) )
(test-equal "Check data after remove row" (test-equal "HTML Table - Check data after remove row"
'(("Row 1")) '(("Row 1"))
(gnc:html-table-data test-table) (gnc:html-table-data test-table)
) )
(gnc:html-table-remove-last-row! test-table) (gnc:html-table-remove-last-row! test-table)
(test-equal "Negative Test: Remove non-existing rows" '() (gnc:html-table-remove-last-row! test-table)) (test-equal "HTML Table - Negative Test: Remove non-existing rows" '() (gnc:html-table-remove-last-row! test-table))
) )
(test-end "Remove Rows") (test-end "HTML Table - Remove Rows")
(test-begin "Prepend Rows") (test-begin "HTML Table - Prepend Rows")
(let ( (let (
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
@@ -674,18 +674,18 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-table-prepend-row! test-table "Row 0") (gnc:html-table-prepend-row! test-table "Row 0")
(gnc:html-table-prepend-row! test-table "Row -1") (gnc:html-table-prepend-row! test-table "Row -1")
(gnc:html-table-prepend-row! test-table '("r-2-c1" "r-2-c2")) (gnc:html-table-prepend-row! test-table '("r-2-c1" "r-2-c2"))
(test-equal "Check Num Rows after prepend row" (test-equal "HTML Table - Check Num Rows after prepend row"
5 5
(gnc:html-table-num-rows test-table) (gnc:html-table-num-rows test-table)
) )
(test-equal "Check data after prepend row" (test-equal "HTML Table - Check data after prepend row"
'(("Row 2") ("Row 1") ("Row 0") ("Row -1") ("r-2-c1" "r-2-c2")) '(("Row 2") ("Row 1") ("Row 0") ("Row -1") ("r-2-c1" "r-2-c2"))
(gnc:html-table-data test-table) (gnc:html-table-data test-table)
) )
) )
(test-end "Prepend Rows") (test-end "HTML Table - Prepend Rows")
(test-end "Row Manipulations") (test-end "HTML Table - Row Manipulations")
(test-begin "Cell Access and Edit") (test-begin "HTML Table - Cell Access and Edit")
(let ( (let (
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
@@ -699,7 +699,7 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-table-append-row! test-table "Row 1") (gnc:html-table-append-row! test-table "Row 1")
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")
(gnc:html-table-append-row! test-table "Row 3") (gnc:html-table-append-row! test-table "Row 3")
(test-equal "Check Cell Access" (test-equal "HTML Table - Check Cell Access"
"Row 1Row 2Row 3" "Row 1Row 2Row 3"
(string-append (string-append
(gnc:html-table-get-cell test-table 0 0) (gnc:html-table-get-cell test-table 0 0)
@@ -707,7 +707,7 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-table-get-cell test-table 2 0) (gnc:html-table-get-cell test-table 2 0)
) )
) )
(test-assert "Negative Test: Check Cell Access - non-existing cells" (test-assert "HTML Table - Negative Test: Check Cell Access - non-existing cells"
(not (not
(or (gnc:html-table-get-cell test-table 1 1) (or (gnc:html-table-get-cell test-table 1 1)
(gnc:html-table-get-cell test-table -1 0) (gnc:html-table-get-cell test-table -1 0)
@@ -715,8 +715,8 @@ HTML Document Title</title></head><body></body>\n\
) )
) )
) )
(test-end "Cell Access and Edit") (test-end "HTML Table - Cell Access and Edit")
(test-begin "Append Columns") (test-begin "HTML Table - Append Columns")
(let ( (let (
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
@@ -731,21 +731,21 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-table-append-row! test-table '("r2c1" "r2c2" "r2c3")) (gnc:html-table-append-row! test-table '("r2c1" "r2c2" "r2c3"))
(gnc:html-table-append-row! test-table '("r3c1" "r3c2")) (gnc:html-table-append-row! test-table '("r3c1" "r3c2"))
(gnc:html-table-append-column! test-table '("r1c4" "r2c4" "r3c4" "r4c4")) (gnc:html-table-append-column! test-table '("r1c4" "r2c4" "r3c4" "r4c4"))
(test-equal "Check Num Rows after append column" (test-equal "HTML Table - Check Num Rows after append column"
4 4
(gnc:html-table-num-rows test-table) (gnc:html-table-num-rows test-table)
) )
(test-equal "Check data after append column" (test-equal "HTML Table - Check data after append column"
'((#f #f #f "r4c4") ("r3c1" "r3c2" #f "r3c4") ("r2c1" "r2c2" "r2c3" "r2c4") ("r1c1" #f #f "r1c4")) '((#f #f #f "r4c4") ("r3c1" "r3c2" #f "r3c4") ("r2c1" "r2c2" "r2c3" "r2c4") ("r1c1" #f #f "r1c4"))
(gnc:html-table-data test-table) (gnc:html-table-data test-table)
) )
(test-equal "Check Cell Access after append column" (test-equal "HTML Table - Check Cell Access after append column"
"r3c2" "r3c2"
(gnc:html-table-get-cell test-table 2 1) (gnc:html-table-get-cell test-table 2 1)
) )
) )
(test-end "Append Columns") (test-end "HTML Table - Append Columns")
(test-begin "Table Rendering") (test-begin "HTML Table - Table Rendering")
(let ( (let (
(test-doc (gnc:make-html-document)) (test-doc (gnc:make-html-document))
(test-table (gnc:make-html-table)) (test-table (gnc:make-html-table))
@@ -759,7 +759,7 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-table-append-row! test-table "Row 1") (gnc:html-table-append-row! test-table "Row 1")
(gnc:html-table-append-row! test-table "Row 2") (gnc:html-table-append-row! test-table "Row 2")
(gnc:html-table-append-column! test-table '("Col A" "Col B")) (gnc:html-table-append-column! test-table '("Col A" "Col B"))
(test-equal "Check table rendering result" (test-equal "HTML Table - Check table rendering result"
"<table><caption><boolean> #t</caption>\n\ "<table><caption><boolean> #t</caption>\n\
<tbody>\ <tbody>\
<tr><td><string> Row 1</td>\n<td><string> Col A</td>\n</tr>\n\ <tr><td><string> Row 1</td>\n<td><string> Col A</td>\n</tr>\n\
@@ -773,7 +773,7 @@ HTML Document Title</title></head><body></body>\n\
) )
) )
) )
(test-end "Table Rendering") (test-end "HTML Table - Table Rendering")
(test-end "HTML Tables - without style sheets") (test-end "HTML Tables - without style sheets")
) )