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

test-report-html.scm reformatted (cosmetic)

Browse Source
This commit is contained in:
Carsten Rinke 2018-08-09 19:15:29 +02:00 committed by Geert Janssens
parent c59157763f
commit b0c5381cee
1 changed files with 233 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,8 @@
(define (run-test) (define (run-test)
(test-runner-factory gnc:test-runner) (test-runner-factory gnc:test-runner)
(test-begin "Testing/Temporary/test-report-html") ;; if (test-runner-factory gnc:test-runner) is commented out, this (test-begin "Testing/Temporary/test-report-html")
;; if (test-runner-factory gnc:test-runner) is commented out, this
;; will create Testing/Temporary/test-report-html.log ;; will create Testing/Temporary/test-report-html.log
(test-assert "HTML Document Definition" (test-check1)) (test-assert "HTML Document Definition" (test-check1))
(test-assert "HTML Objects Definition for literals" (test-check2)) (test-assert "HTML Objects Definition for literals" (test-check2))
@ -34,8 +35,14 @@
(string-null? (gnc:html-document-title test-doc)) (string-null? (gnc:html-document-title test-doc))
(not (gnc:html-document-headline test-doc)) (not (gnc:html-document-headline test-doc))
(null? (gnc:html-document-objects test-doc)) (null? (gnc:html-document-objects test-doc))
(string=? (gnc:html-document-render test-doc) (string=?
"<html>\n<head>\n<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n<title>\n</title></head><body></body>\n</html>\n" (gnc:html-document-render test-doc)
"<html>\n\
<head>\n\
<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n\
<title>\n\
</title></head><body></body>\n\
</html>\n")
;; BUG?: ;; BUG?:
;; this code looks ugly ;; this code looks ugly
;;<html> ;;<html>
@ -46,7 +53,8 @@
;;</html> ;;</html>
;; BUG?: ;; BUG?:
;; There is no way to suppress the header, (not (null? headers?)) is always true ;; There is no way to suppress the header,
;; (not (null? headers?)) is always true
;; BUG?: ;; BUG?:
;; There is no way to suppress the title, (if (title)) is always true ;; There is no way to suppress the title, (if (title)) is always true
@ -60,11 +68,15 @@
;; (if (not (string-null? title)) ;; (if (not (string-null? title))
;; (push (list "</title>" title "<title>\n"))) ;; (push (list "</title>" title "<title>\n")))
)
(gnc:html-document-set-title! test-doc "HTML Document Title") (gnc:html-document-set-title! test-doc "HTML Document Title")
(string=? (gnc:html-document-render test-doc) (string=?
"<html>\n<head>\n<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n<title>\nHTML Document Title</title></head><body></body>\n</html>\n" (gnc:html-document-render test-doc)
) "<html>\n\
<head>\n\
<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n\
<title>\n\
HTML Document Title</title></head><body></body>\n\
</html>\n")
) )
) )
) )
@ -86,8 +98,17 @@
) )
) )
(string=? (gnc:html-document-render test-doc) "<html>\n<head>\n<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n<title>\n</title></head><body><string> HTML Plain Text Body<number> 1234567890<boolean> #t<string> <generic> (a b c d)</body>\n</html>\n") (string=?
;; BUG: it is not possible to create a boolean false object, instead a string place holder is created (gnc:html-document-render test-doc)
"<html>\n\
<head>\n\
<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n\
<title>\n\
</title></head><body><string> HTML Plain Text Body<number> 1234567890\
<boolean> #t<string> <generic> (a b c d)</body>\n\
</html>\n")
;; BUG: it is not possible to create a boolean false object
;; instead a string place holder is created
) )
) )
@ -100,30 +121,121 @@
(gnc:html-document-append-objects! test-doc (gnc:html-document-append-objects! test-doc
(list (list
(gnc:make-html-text "HTML Text Body - Part 1." "Part 2.") (gnc:make-html-text
(gnc:make-html-text (gnc:html-markup/format "HTML Text with number ~a in decimal format." 7)) "HTML Text Body - Part 1."
(gnc:make-html-text (gnc:html-markup/format "HTML Text with number ~a in float format." 8.8)) "Part 2."
(gnc:make-html-text (gnc:html-markup/format "HTML Text with boolean ~a." #f)) )
(gnc:make-html-text (gnc:html-markup/format "HTML Text with literal ~a." "text123")) (gnc:make-html-text
(gnc:make-html-text (gnc:html-markup/format "HTML Text with generic ~a." '(a b c d))) (gnc:html-markup/format
(gnc:make-html-text (gnc:html-markup-p "HTML Text Paragraph")) "HTML Text with number ~a in decimal format."
(gnc:make-html-text (gnc:html-markup-tt "HTML Text Typewriter")) 7
(gnc:make-html-text (gnc:html-markup-em "HTML Text Emphasized")) )
(gnc:make-html-text (gnc:html-markup-b "HTML Text Bold")) )
(gnc:make-html-text (gnc:html-markup-i "HTML Text Italic")) (gnc:make-html-text
(gnc:make-html-text (gnc:html-markup-h1 "HTML Text Heading1")) (gnc:html-markup/format
(gnc:make-html-text (gnc:html-markup-h2 "HTML Text Heading2")) "HTML Text with number ~a in float format."
(gnc:make-html-text (gnc:html-markup-h3 "HTML Text Heading3")) 8.8
(gnc:make-html-text (gnc:html-markup-br) "HTML Text Linebreak") )
(gnc:make-html-text (gnc:html-markup-hr) "HTML Text Headrow") )
(gnc:make-html-text "HTML Text Unsorted List" (gnc:html-markup-ul '("Item1" "Item2"))) (gnc:make-html-text
(gnc:make-html-text (gnc:html-markup-anchor "HTML Text Anchor Link" "HTML Text Anchor Description")) (gnc:html-markup/format
(gnc:make-html-text (gnc:html-markup-img "http://www.gnucash.org/images/banner5.png" '("width" "72") '("height" "48") '("alt" "GunCash web site"))) "HTML Text with boolean ~a." #f
)
)
(gnc:make-html-text
(gnc:html-markup/format
"HTML Text with literal ~a."
"text123"
)
)
(gnc:make-html-text
(gnc:html-markup/format
"HTML Text with generic ~a."
'(a b c d)
)
)
(gnc:make-html-text
(gnc:html-markup-p "HTML Text Paragraph")
)
(gnc:make-html-text
(gnc:html-markup-tt "HTML Text Typewriter")
)
(gnc:make-html-text
(gnc:html-markup-em "HTML Text Emphasized")
)
(gnc:make-html-text
(gnc:html-markup-b "HTML Text Bold")
)
(gnc:make-html-text
(gnc:html-markup-i "HTML Text Italic")
)
(gnc:make-html-text
(gnc:html-markup-h1 "HTML Text Heading1")
)
(gnc:make-html-text
(gnc:html-markup-h2 "HTML Text Heading2")
)
(gnc:make-html-text
(gnc:html-markup-h3 "HTML Text Heading3")
)
(gnc:make-html-text
(gnc:html-markup-br)
"HTML Text Linebreak"
)
(gnc:make-html-text
(gnc:html-markup-hr)
"HTML Text Headrow"
)
(gnc:make-html-text
"HTML Text Unsorted List"
(gnc:html-markup-ul '("Item1" "Item2"))
)
(gnc:make-html-text
(gnc:html-markup-anchor
"HTML Text Anchor Link"
"HTML Text Anchor Description"
)
)
(gnc:make-html-text
(gnc:html-markup-img
"http://www.gnucash.org/images/banner5.png"
'("width" "72")
'("height" "48")
'("alt" "GunCash web site")
)
)
) )
) )
(string=? (gnc:html-document-render test-doc) "<html>\n<head>\n<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n<title>\n</title></head><body><string> HTML Text Body - Part 1.<string> Part 2.HTML Text with number <number> 7 in decimal format.HTML Text with number <number> 8.8 in float format.HTML Text with boolean <boolean> #f.HTML Text with literal <string> text123.HTML Text with generic <generic> (a b c d).<p><string> HTML Text Paragraph</p>\n<tt><string> HTML Text Typewriter</tt>\n<em><string> HTML Text Emphasized</em>\n<b><string> HTML Text Bold</b>\n<i><string> HTML Text Italic</i>\n<h1><string> HTML Text Heading1</h1>\n<h2><string> HTML Text Heading2</h2>\n<h3><string> HTML Text Heading3</h3>\n<br /><string> HTML Text Linebreak<hr /><string> HTML Text Headrow<string> HTML Text Unsorted List<ul><li><string> Item1</li>\n<li><string> Item2</li>\n</ul>\n<a href=\"HTML Text Anchor Link\"><string> HTML Text Anchor Description</a>\n<img src=\"http://www.gnucash.org/images/banner5.png\" width=\"72\" height=\"48\" alt=\"GunCash web site\" /></body>\n</html>\n") (string=?
(gnc:html-document-render test-doc)
"<html>\n\
<head>\n\
<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />\n\
<title>\n\
</title></head><body><string> HTML Text Body - Part 1.\
<string> Part 2.HTML Text with number <number> 7 in decimal format.\
HTML Text with number <number> 8.8 in float format.\
HTML Text with boolean <boolean> #f.\
HTML Text with literal <string> text123.\
HTML Text with generic <generic> (a b c d).\
<p><string> HTML Text Paragraph</p>\n\
<tt><string> HTML Text Typewriter</tt>\n\
<em><string> HTML Text Emphasized</em>\n\
<b><string> HTML Text Bold</b>\n\
<i><string> HTML Text Italic</i>\n\
<h1><string> HTML Text Heading1</h1>\n\
<h2><string> HTML Text Heading2</h2>\n\
<h3><string> HTML Text Heading3</h3>\n\
<br /><string> HTML Text Linebreak\
<hr /><string> HTML Text Headrow\
<string> HTML Text Unsorted List<ul><li><string> Item1</li>\n\
<li><string> Item2</li>\n\
</ul>\n\
<a href=\"HTML Text Anchor Link\"><string> HTML Text Anchor Description</a>\n\
<img src=\"http://www.gnucash.org/images/banner5.png\" \
width=\"72\" height=\"48\" alt=\"GunCash web site\" /></body>\n\
</html>\n")
) )
) )
@ -137,11 +249,22 @@
(gnc:html-table-cell-set-rowspan! html-table-cell 2) (gnc:html-table-cell-set-rowspan! html-table-cell 2)
(gnc:html-table-cell-set-colspan! html-table-cell 3) (gnc:html-table-cell-set-colspan! html-table-cell 3)
(gnc:html-table-cell-set-tag! html-table-cell "tag") (gnc:html-table-cell-set-tag! html-table-cell "tag")
(gnc:html-table-cell-append-objects! html-table-cell "obj1" "obj2" 123 #t #f '(a b c d)) (gnc:html-table-cell-append-objects!
html-table-cell "obj1" "obj2" 123 #t #f '(a b c d)
)
(string=? (string-concatenate (gnc:html-document-tree-collapse (gnc:html-table-cell-render html-table-cell test-doc))) (string=?
"<tag rowspan=\"2\" colspan=\"3\"><string> HTML Table Cell<string> obj1<string> obj2<number> 123<boolean> #t<string> <generic> (a b c d)</tag>\n" (string-concatenate
) ;; BUG: it is not possible to create a boolean false object, instead a string place holder is created (gnc:html-document-tree-collapse
(gnc:html-table-cell-render html-table-cell test-doc)))
"<tag rowspan=\"2\" colspan=\"3\">\
<string> HTML Table Cell\
<string> obj1\
<string> obj2<number> 123\
<boolean> #t\
<string> <generic> (a b c d)</tag>\n")
;; BUG: it is not possible to create a boolean false object
;; instead a string place holder is created
) )
) )
@ -165,33 +288,46 @@
;; change the default settings just to see what effect it has ;; change the default settings just to see what effect it has
;;(gnc:html-table-set-col-headers! test-table #t) ;;(gnc:html-table-set-col-headers! test-table #t)
;; -> this make (gnc:html-table-render test-table test-doc) crash, col-headers must be #f or a list ;; -> this make (gnc:html-table-render test-table test-doc) crash
;; col-headers must be #f or a list
(gnc:html-table-set-row-headers! test-table #t) (gnc:html-table-set-row-headers! test-table #t)
(gnc:html-table-set-caption! test-table #t) (gnc:html-table-set-caption! test-table #t)
(and (and
(= (gnc:html-table-append-row! test-table "Row 1") 1) (= (gnc:html-table-append-row! test-table "Row 1") 1)
(= (gnc:html-table-append-row! test-table "Row 2") 2) ;; data is now: (("Row 2") ("Row 1")) (= (gnc:html-table-append-row! test-table "Row 2") 2)
;; data is now: (("Row 2") ("Row 1"))
(= (gnc:html-table-num-rows test-table) 2) (= (gnc:html-table-num-rows test-table) 2)
(= (length (gnc:html-table-remove-last-row! test-table)) 1) (= (length (gnc:html-table-remove-last-row! test-table)) 1)
(= (length (gnc:html-table-remove-last-row! test-table)) 0) (= (length (gnc:html-table-remove-last-row! test-table)) 0)
(null? (gnc:html-table-remove-last-row! test-table)) ;; simple negative test: try to remove non existing row ;; simple negative test: try to remove non existing row
(null? (gnc:html-table-remove-last-row! test-table))
(= (gnc:html-table-append-row! test-table "Row 2") 1) (= (gnc:html-table-append-row! test-table "Row 2") 1)
(= (gnc:html-table-prepend-row! test-table "Row 1") 2) (= (gnc:html-table-prepend-row! test-table "Row 1") 2)
(= (gnc:html-table-prepend-row! test-table "Row 0") 3) (= (gnc:html-table-prepend-row! test-table "Row 0") 3)
(= (gnc:html-table-prepend-row! test-table "Row -1") 4) (= (gnc:html-table-prepend-row! test-table "Row -1") 4)
;; BUG: data is now: (("Row 2") "Row 1" "Row 0" "Row -1") ;; BUG: data is now: (("Row 2") "Row 1" "Row 0" "Row -1")
;; for (gnc:html-table-get-cell test-table 2 0) ;; for (gnc:html-table-get-cell test-table 2 0)
;; this leads to error: (wrong-type-arg "length" "Wrong type argument in position ~A: ~S" (1 "Row 1") ("Row 1")) ;; this leads to error:
;; BUG: gnc:html-table-prepend-row! updates the row-markup hash table which is ;; (wrong-type-arg "length"
;; "Wrong type argument in position ~A: ~S" (1 "Row 1") ("Row 1"))
;; BUG: gnc:html-table-prepend-row! updates
;; the row-markup hash table which is
;; - not updated on deletion of a row ;; - not updated on deletion of a row
;; - not updated anywhere else in the code ;; - not updated anywhere else in the code
;; - not used anywhere else in GnuCash ;; - not used anywhere else in GnuCash
;; --> should be removed ;; --> should be removed
;; (same goes for gnc:html-table-row-markup, gnc:html-table-set-row-markup-table! gnc:html-table-set-row-markup!) ;; (same goes for gnc:html-table-row-markup,
;; Reset table data: ;; gnc:html-table-set-row-markup-table! gnc:html-table-set-row-markup!)
(gnc:html-table-set-data! test-table '()) ;; reset the table data due to bug above
(gnc:html-table-set-num-rows-internal! test-table 0) ;; luckily for testng, this is not internal - BUG? ;; Reset table data due to bug above:
(gnc:html-table-set-data! test-table '())
;; luckily for testng, this is not internal - BUG?
(gnc:html-table-set-num-rows-internal! test-table 0)
(= (gnc:html-table-append-row! test-table "Row 1") 1) (= (gnc:html-table-append-row! test-table "Row 1") 1)
(= (gnc:html-table-append-row! test-table "Row 2") 2) (= (gnc:html-table-append-row! test-table "Row 2") 2)
(= (gnc:html-table-append-row! test-table "Row 3") 3) (= (gnc:html-table-append-row! test-table "Row 3") 3)
@ -200,18 +336,45 @@
(not (gnc:html-table-get-cell test-table -1 0)) ;; simple negative test (not (gnc:html-table-get-cell test-table -1 0)) ;; simple negative test
(and (and
(gnc:html-table-set-cell! test-table 2 1 "Row 3 Col 1") (gnc:html-table-set-cell! test-table 2 1 "Row 3 Col 1")
(string=? (car (gnc:html-table-cell-data (gnc:html-table-get-cell test-table 2 1))) "Row 3 Col 1") (string=?
(car
(gnc:html-table-cell-data
(gnc:html-table-get-cell test-table 2 1)
)
)
"Row 3 Col 1")
) )
(and (and
(gnc:html-table-remove-last-row! test-table) ;; -> (("Row 2") ("Row 1")) (gnc:html-table-remove-last-row! test-table) ;; -> (("Row 2") ("Row 1"))
(not (gnc:html-table-append-column! test-table '("Col A" "Col B" "Col C"))) ;; -> (("Col C") ("Row 2" "Col B") ("Row 1" "Col A"))
(not
(gnc:html-table-append-column!
test-table
'("Col A" "Col B" "Col C")
)
) ;; -> (("Col C") ("Row 2" "Col B") ("Row 1" "Col A"))
(string=? (gnc:html-table-get-cell test-table 0 0) "Row 1") (string=? (gnc:html-table-get-cell test-table 0 0) "Row 1")
(string=? (gnc:html-table-get-cell test-table 1 0) "Row 2") (string=? (gnc:html-table-get-cell test-table 1 0) "Row 2")
;;(string=? (gnc:html-table-get-cell test-table 2 0) "Col C") ;; -> error: "Value out of range" ;;(string=? (gnc:html-table-get-cell test-table 2 0) "Col C")
;; -> error: "Value out of range"
;; Bug: the row counter has not been adjusted, should be three ;; Bug: the row counter has not been adjusted, should be three
) )
(string=? (string-concatenate (gnc:html-document-tree-collapse (gnc:html-table-render test-table test-doc))) (string=?
"<table><caption><boolean> #t</caption>\n<tbody><tr><td><string> Row 1</td>\n<td><string> Col A</td>\n</tr>\n<tr><td><string> Row 2</td>\n<td><string> Col B</td>\n</tr>\n<tr><td><string> Col C</td>\n</tr>\n</tbody>\n</table>\n") (string-concatenate
(gnc:html-document-tree-collapse
(gnc:html-table-render test-table test-doc)))
"<table><caption><boolean> #t</caption>\n\
<tbody><tr><td><string> Row 1</td>\n\
<td><string> Col A</td>\n\
</tr>\n\
<tr><td><string> Row 2</td>\n\
<td><string> Col B</td>\n\
</tr>\n\
<tr><td><string> Col C</td>\n\
</tr>\n\
</tbody>\n\
</table>\n")
) )
) )
) )