* guile: update guile tests for slightly updated testcases

This commit is contained in:
djcb
2013-05-15 00:18:05 +03:00
parent 00d0cb0f28
commit cbe595483f

View File

@ -97,9 +97,9 @@ exec guile -e main -s $0 $@
(define (test-stats)
"Test statistical functions."
;; average
(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:average mu:size) 82132/13)
(num-equal-or-exit (floor (mu:stddev mu:size)) 13020.0)
(num-equal-or-exit (mu:max mu:size) 46308)
(num-equal-or-exit (mu:min mu:size) 111))
(define (main args)