mirror of https://github.com/Gnucash/gnucash
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
95 lines
2.9 KiB
95 lines
2.9 KiB
(use-modules (gnucash app-utils))
|
|
(use-modules (gnucash engine))
|
|
(use-modules (gnucash utilities))
|
|
(use-modules (srfi srfi-64))
|
|
(use-modules (tests srfi64-extras))
|
|
|
|
(define (run-test)
|
|
(test-runner-factory gnc:test-runner)
|
|
(test-begin "test-scm-utilities.scm")
|
|
(test-substring-replace)
|
|
(test-sort-and-delete-duplicates)
|
|
(test-gnc:html-string-sanitize)
|
|
(test-gnc:list-flatten)
|
|
(test-end "test-scm-utilities.scm"))
|
|
|
|
(define (test-substring-replace)
|
|
(test-begin "substring-replace")
|
|
|
|
;; generic gnc:substring-replace used in qif-guess-map.scm
|
|
(test-equal "gnc:substring-replace"
|
|
"fooxyzfooxyz"
|
|
(gnc:substring-replace "foobarfoobar" "bar" "xyz"))
|
|
|
|
(test-end "substring-replace"))
|
|
|
|
(define (test-sort-and-delete-duplicates)
|
|
(test-begin "sort-and-delete-duplicates")
|
|
(test-equal "sort-and-delete-duplicates empty"
|
|
'()
|
|
(sort-and-delete-duplicates '() <))
|
|
(test-equal "sort-and-delete-duplicates 1-element"
|
|
'(1)
|
|
(sort-and-delete-duplicates '(1) <))
|
|
(test-equal "sort-and-delete-duplicates 2-element, equal"
|
|
'(1)
|
|
(sort-and-delete-duplicates '(1 1) <))
|
|
(test-equal "sort-and-delete-duplicates 2-element, unequal"
|
|
'(1 2)
|
|
(sort-and-delete-duplicates '(2 1) <))
|
|
(test-equal "sort-and-delete-duplicates 3-element, equal"
|
|
'(1)
|
|
(sort-and-delete-duplicates '(1 1 1) <))
|
|
(test-equal "sort-and-delete-duplicates 3-element, 2-equal"
|
|
'(1 2)
|
|
(sort-and-delete-duplicates '(1 2 1) <))
|
|
(test-equal "sort-and-delete-duplicates 3-element, unequal"
|
|
'(1 2 3)
|
|
(sort-and-delete-duplicates '(3 1 2) <))
|
|
(test-end "sort-and-delete-duplicates"))
|
|
|
|
(define (test-gnc:html-string-sanitize)
|
|
(test-begin "gnc:html-string-sanitize")
|
|
(test-equal "null test"
|
|
"abc"
|
|
(gnc:html-string-sanitize "abc"))
|
|
|
|
(test-equal "sanitize ©"
|
|
"&copy;"
|
|
(gnc:html-string-sanitize "©"))
|
|
|
|
(if (not (string=? (with-output-to-string (lambda () (display "🎃"))) "🎃"))
|
|
(test-skip 2))
|
|
(test-equal "emoji unchanged"
|
|
"🎃"
|
|
(gnc:html-string-sanitize "🎃"))
|
|
|
|
(test-equal "complex string"
|
|
"Smiley:\"🙂\" something"
|
|
(gnc:html-string-sanitize "Smiley:\"🙂\" something"))
|
|
|
|
(test-equal "sanitize <b>bold tags</b>"
|
|
"<b>bold tags</b>"
|
|
(gnc:html-string-sanitize "<b>bold tags</b>"))
|
|
|
|
(test-equal "quotes are unchanged for html"
|
|
"\""
|
|
(gnc:html-string-sanitize "\""))
|
|
|
|
(test-equal "backslash is unchanged for html"
|
|
"\\"
|
|
(gnc:html-string-sanitize "\\"))
|
|
|
|
(test-end "gnc:html-string-sanitize"))
|
|
|
|
(define (test-gnc:list-flatten)
|
|
(test-equal "gnc:list-flatten null"
|
|
'()
|
|
(gnc:list-flatten '()))
|
|
(test-equal "gnc:list-flatten noop"
|
|
'(1 2 3)
|
|
(gnc:list-flatten '(1 2 3)))
|
|
(test-equal "gnc:list-flatten deep"
|
|
'(1 2 3 4 5 6)
|
|
(gnc:list-flatten '(1 (2) (() () (((((3))) ())) 4 () ((5) (6)))))))
|