mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-22 17:06:36 -06:00
c1c75e8f81
The original merge was of a PR based on master into maint, bringing along all of the development changes in master along with it. We don't want that so the merge was reverted and the PR's two changes cherry-picked in. That fixed maint, but then the next regular merge of maint into master naturally included that revert commit undoing the changes in master. Not so good. Reverting the revert, this commit, restores the changes, albeit with messed up history.
95 lines
2.9 KiB
Scheme
95 lines
2.9 KiB
Scheme
(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)))))))
|