* update / add testcases for string normalization

1 files changed, 4 insertions, 5 deletions

diff --git a/guile/tests/test-mu-guile.scm b/guile/tests/test-mu-guile.scm
index a0d82b2..5ca760b 100755
--- a/guile/tests/test-mu-guile.scm
+++ b/guile/tests/test-mu-guile.scm
@@ -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))