alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* update / add testcases for string normalization

Browse Source
This commit is contained in:
djcb
2012-12-09 13:34:16 +02:00
parent 58599ab8f9
commit 241af50e97
7 changed files with 59 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
guile/tests/test-mu-guile.scm
View File

@ -50,8 +50,8 @@ exec guile -e main -s $0 $@
(n-results-or-exit "file:custer.*" 1)
(n-results-or-exit "j:sit*" 1)
(n-results-or-exit "mime:image/jpeg" 1)
(n-results-or-exit "mime:text/plain" 12)
(n-results-or-exit "y:text*" 12)
(n-results-or-exit "mime:text/plain" 13)
(n-results-or-exit "y:text*" 13)
(n-results-or-exit "y:image*" 1)
(n-results-or-exit "mime:message/rfc822" 2))
@ -97,9 +97,8 @@ exec guile -e main -s $0 $@
(define (test-stats)
"Test statistical functions."
;; average
(num-equal-or-exit (mu:average mu:size) 40859/6)
(num-equal-or-exit (floor (mu:stddev mu:size))
(floor 13413.7101616927))
(num-equal-or-exit (mu:average mu:size) 82054/13)
(num-equal-or-exit (floor (mu:stddev mu:size)) 13002.0)
(num-equal-or-exit (mu:max mu:size) 46230)
(num-equal-or-exit (mu:min mu:size) 111))