guile: tests: Fix encoding of "atomic" message
It's stated to be US-ASCII with 7-bit encoding, but it contains the UTF-8 character '—'. Fixing the encoding very slightly changes the average size of messages reported by mu:average, so adjust the new expected value.
This commit is contained in:
@ -83,7 +83,7 @@ exec guile -e main -s $0 $@
|
||||
(str-equal-or-exit (mu:subject msg) "atoms")
|
||||
(str-equal-or-exit (mu:to msg) "Democritus <demo@example.com>")
|
||||
(str-equal-or-exit (mu:from msg) "Richard P. Feynman <rpf@example.com>")
|
||||
;;(str-equal-or-exit (mu:header msg "Content-transfer-encoding") "7BIT")
|
||||
;;(str-equal-or-exit (mu:header msg "Content-Transfer-Encoding") "8bit")
|
||||
|
||||
(if (not (equal? (mu:priority msg) mu:prio:high))
|
||||
(error-exit "Expected ~a, got ~a" (mu:priority msg) mu:prio:high))))
|
||||
@ -97,7 +97,7 @@ exec guile -e main -s $0 $@
|
||||
(define (test-stats)
|
||||
"Test statistical functions."
|
||||
;; average
|
||||
(num-equal-or-exit (mu:average mu:size) 82601/14)
|
||||
(num-equal-or-exit (mu:average mu:size) 41299/7)
|
||||
(num-equal-or-exit (floor (mu:stddev mu:size)) 12637.0)
|
||||
(num-equal-or-exit (mu:max mu:size) 46308)
|
||||
(num-equal-or-exit (mu:min mu:size) 111))
|
||||
|
||||
Reference in New Issue
Block a user