* guile: update guile tests for slightly updated testcases
This commit is contained in:
@ -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)
|
||||
|
||||
Reference in New Issue
Block a user